<% Option Explicit Response.Buffer = TRUE '--- www.prilex.se ----------- '--- ny_anvandare.asp -------- '--- uppdaterad 2012-11-11 --- '--- © - Kenneth Ryding ------ %> <%PrintHeader "Ansökan medlemsinloggning"%> <% dim RecSet, strSQL, strEpost, strNamn, strLosen, strPrilex, strAnv_namn, strFnamn, strLogg dim strInloggad, strLoggNy, strBehorig_0, strBehorig_1, strBehorig_2, strBehorig_nr dim anvuppdaterad, updat, medlemmar dim strPassord, langd dbConnect Connection If Request("fel") = "true" Then %>

Felaktiga uppgifter !

<% End If If Request("behorig") = "false" Then %>

	Du är inte medlem i PRILEX !
	Vill du bli medlem i Prilex ?

<% End If If Request("Action") = "kontroll" Then Set RecSet = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM medlem Order By Prilex" RecSet.Open strSQL, Connection Do Until RecSet.EOF If RecSet("prilex")= request("reg_prilexnr") then If RecSet("Fnamn")<>"" and RecSet("Ort")<>"" then strPrilex=RecSet("Prilex") strFnamn=RecSet("Fnamn") strEpost=RecSet("Epost") Exit Do End If End If RecSet.MoveNext Loop If RecSet.EOF=true then Response.Redirect "ny_anvandare.asp?behorig=false" End If If Request("reg_epost")<> "" then If RecSet("Epost")<> Request("reg_epost") then Response.Redirect "ny_anvandare.asp?fel=true" End If Else strEpost="info@prilex.se" End If RecSet.Close Set RecSet = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM inloggning WHERE prilexnr ='"& strPrilex &"'" RecSet.Open strSQL, Connection If RecSet.EOF=true then langd = CStr(8) strPassord=CreatePassword(langd) strLogg = now '------spara-uppgifter-------------------------------------------------------------------------- Set RecSet = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM inloggning" RecSet.Open strSQL, Connection, 1, 3 RecSet.AddNew RecSet("prilexnr") = strPrilex RecSet("anv_namn") = strFnamn RecSet("anv_nr") = strPassord RecSet("anv_logg") = strLogg RecSet("anv_inloggad") = strLogg RecSet("anv_logg_ny") = strLogg RecSet("anv_behorig_0") = false RecSet("anv_behorig_1") = false RecSet("anv_behorig_2") = false RecSet("anv_behorig_nr") = "10" RecSet.Update '----skicka mail------------------- strJmailFrom = "info@prilex.se" ' Avsändare (Email) strJmailFromName = "PRILEX Inloggning " ' Avsändare namn strJmailMottagare = strEpost ' Mottagare (Email) strJmailMottagarex = "info@prilex.se" ' Extra mottagare (Email) strJmailCC = "ordforande@prilex.se" ' CC Mottagare (Email) strJmailBCC = "webmaster@prilex.se" ' BCC Mottagare (Email) strJmailSubject = "Ansökan om medlemsinloggning " ' Ämne strJmailBody = "PRILEX Inloggningsansökan " & strLogg strJmailText = "Din ansökan är nu behandlad och du loggar in med följande uppgifter: " & vbCrLf & vbCrLf &_ "Prilexnr " & strPrilex & vbCrLf & "Användarnamn " & strFnamn & vbCrLf &_ "Password " & strPassord & vbCrLf & vbCrLf & vbCrLf & "73 de webbmaster Radioklubben Prilex" skicka_mail '----------------------------------- %> <%If strEpost = "info@prilex.se" then %> <%Else%> <%End If%>

	Dina inloggningsuppgifter är nu skickade till Prilex E-post : <%=strEpost%> Kontakta webbmaster 517 Kenneth så får du dina inloggningsuppgifter och kan sedan logga in på medlemssidorna.
	Dina inloggningsuppgifter är nu skickade till din E-post: <%=strEpost%> När du läst dina inloggningsuppfter kan du logga in på Prilex medlemssidor.

<% Else %>

	Du har redan behörighet till medlemssidorna !
	Har du glömt dina uppgifter ?

<% End If RecSet.Close Else If not Request("behorig") = "false" Then %>

	Fyll i ditt prilexnummer
	och din E-postadress som du lämnat till PRILEX.

<% End If End If %> <% Connection.Close Set Connection = Nothing PrintFooter %> <% Function CreatePassword(IngCnt) Const strPassChars ="a8bfg3hPQijFGHklmnoSTUVwxyzABCDqrstuORWXYZ124cde56KLM790" Randomize CreatePassword="" Do while IngCnt > 0 CreatePassword = CreatePassword & Mid(strPassChars, Int(Rnd()*Len(strPassChars))+1,1) IngCnt=IngCnt-1 Loop End Function %>