%
If Session("Medlem") = True Then
response.redirect "styrels.asp"
End If
%>
Inloggning till medlemmarnas sidor
<%
' Start clean
Mess=""
Loggin=0
Session("Medlem")=Null
' Is the form filled in?
If Request.Form("Medlemsnr") <> "" Then
' Verify we are here (debug)
Medlemnr = Request.Form("medlemsnr")
' Response.Write "Medlemnr:" & Medlemnr & " "
' Connect to the server
Set dbCon = Server.CreateObject("ADODB.Connection")
' Open our database
DSNtest = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtest = DSNtest & "DBQ=" & Server.MapPath("../db/peerreg.mdb")
dbCon.Open DSNtest
' Create a dataset
Set dbSet = Server.CreateObject("ADODB.Recordset")
' Select the record corresponding to the member number supplied
Selection = "SELECT * From Medlem WHERE Medlemsnr = '" & Medlemnr & "'"
dbSet.Open Selection,dbCon,1,2
If dbSet.BOF and dbSet.EOF Then
' Response.Write "Medlem med nummer" & Medlemnr & " saknas."
Mess = "Medlem med nummer " & Medlemnr & " saknas."
Session("Medlem")=Null
Loggin=0
Else
' Show me some fields (debug)
' Response.Write dbSet("Företag") & " "
' Response.Write dbSet("Lösenord") & "! "
' Response.Write Request.Form("Losen") & "! "
' Check the supplied password
If IsNull(dbSet("Lösenord")) Then
dbSet("Lösenord") = Request.Form("Losen")
dbSet("Loggin")=CStr(Now())
Session("Medlem")=True
Session("Medlemnr")=Medlemnr
Loggin=1
Mess = Mess & "Du är inloggad och ditt lösenord har sparats."
Else
If Request.Form("Losen") = dbSet("Lösenord") Then
dbSet("Loggin")=CStr(Now())
' Response.Write "Du är inloggad"
Mess = Mess & "Du är inloggad"
If Request.Form("Nytt1") <> "" Then
dbSet("Lösenord")=Request.Form("Nytt1")
Mess = Mess & " och ditt lösen är bytt"
End If
Session("Medlem")=True
Session("Medlemnr")=Medlemnr
Loggin=1
Else
dbSet("Loggin")=Null
' Response.Write "Felaktig lösen"
Mess = "Felaktig lösen"
Session("Medlem")=Null
Loggin=0
End If
End If
dbSet.Update
End If
dbSet.Close
dbCon.Close
Set dbCon = Nothing
Else
' Response.Write "test3b "
End If
%>
OBS: Gemener och versaler är inte likställda i lösenordet.