StolPaaOs.dk

<% ' 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 :

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

Glemt adgangskode

Indtast det brugernavn du har hos spo . Der vil derefter blive sendt en email til den adresse du har opgivet, med den tilhørende adgangskode. Bemærk, at der vil gå et lille stykke tid, inden emailen ankommer.
Hvis du har mistet din adgangskode og har skiftet emailadresse, så send en email til Webmaster - du vil så modtage en ny adgangskode hurtigst muligt.

<%=strPWDG%> <%=strPASSWORD%>

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