<% ' Hvis der er blevet trykket på knappen "Login" If Request.Form("Action") = "Login" Then ' Her forberedes de indtastede værdier til validering strUID = Trim(Replace(Request.Form("Brugernavn"),"'","")) strPWD = Trim(Replace(Request.Form("Adgangskode"),"'","")) ' Hvis der er skrevet noget i både brugernavn og adgangskode If Len(strUID) > 0 And Len(strPWD) > 0 Then ' DSNLess forbindelse til databasen Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open "DRIVER={MySQL}; Server=mydb6.surf-town.net; Database=spoforum; Uid=spoaddict; Password=spassersoren;" ' Opbygning af SQL streng strSQL = "SELECT brugerID,userid,username FROM spobruger"&_ " WHERE (firstname = '" & strUID & "')"&_ " AND (Password = '" & strPWD & "')" Set rs = myConn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then ' Hvis brugeren fandtes i databasen intUID = rs("brugerID") intUID2 = rs("userid") strNAME = rs("username") Else ' Hvis brugeren ikke fandtes i databasen strERR = "Du blev ikke godkendt af systemet" End If ' Rydder op i vores connection objekt myConn.Close Set myConn = Nothing If Len(intUID) Then 'Hvis variablen intUID indeholder en værdi sættes denne i sessionen "modelID" og brugeren bliver sendt videre Session("ID") = intUID2 Session("ADMINID") = intUID Session("NAME") = strNAME Session.Timeout = 30 If Request.Form("cookie") = 1 then Response.Cookies("Cookie") = "stolpaaos" Response.Cookies("Cookie")("USERNAME") = strNAME Response.Cookies("Cookie")("ID") = intUID Response.Cookies("Cookie")("ADMINID") = intUID2 'Response.Write("spasserspil") Response.Cookies("Cookie").Domain = "www.stolpaaos.dk" Response.Cookies("Cookie").Expires = Date + 7 End If Response.Redirect("../index.asp") End If Else ' Hvis der ikke var angivet brugernavn og adgangskode strErr = "Du skal skrive både brugernavn og adgangskode" End If If Len(strErr) > 0 Then ' Her laves fejlmeddelsen om til rød skrift strErr = "

" & strErr & "

" End If End If 'glemt password ' Hvis der er blevet trykket på knappen "Login" If Request.Form("mailpswd") = "Send" Then ' Her forberedes de indtastede værdier til validering strUID = Trim(Replace(Request.Form("email"),"'","")) ' Hvis der er skrevet noget i både brugernavn og adgangskode If Len(strUID) > 0 Then ' DSNLess forbindelse til databasen Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open "DRIVER={MySQL}; Server=mydb6.surf-town.net; Database=spoforum; Uid=spoaddict; Password=spassersoren;" ' Opbygning af SQL streng strSQL = "SELECT password FROM spobruger"&_ " WHERE (Email = '" & strUID & "')" Set rs = myConn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then ' Hvis brugeren fandtes i databasen strPASSWORD = rs("password") Else ' Hvis brugeren ikke fandtes i databasen strPWDG = "Din emailadresse blev ikke genkendt" End If ' Rydder op i vores connection objekt myConn.Close Set myConn = Nothing Else ' Hvis der ikke var angivet brugernavn og adgangskode strPWDG = "Du skal skrive din emailadresse i feltet" End If If Len(strPWDG) > 0 Then ' Her laves fejlmeddelsen om til rød skrift strPWDG = "

" & strPWDG & "

" End If End If %> StolPaaOs.dk - Login
For at kunne skrive i forummet skal du være logget ind
Hvis du ikke allerede er oprettet som bruger på SPO kan du registrere dig her : Opret ny bruger
Log ind :
<%=strErr%>

Efter du har logget ind, er det muligt at se egne oplysninger, samt at rette i dem.

 Fornavn:

 Adgangskode:

Du skal skrive dit fornavn og ikke dit brugernavn når du skal logge ind!!
Glemt adgangskode

Du kan se hvordan du kan få tilsendt dit password på vores hjælpe side
<%=strPWDG%> <%=strPASSWORD%>