prøv noget i den her retning...
<%
If len(Request.Cookies("esports-magazine.net")("ID")) > 0 then
' Checker om brugeren stadigvæk er gyldig
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("aabbccddee.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Bruger WHERE ID = " & Request.Cookies("esports-magazine.net")("ID")
rs.Open strSQL, myConn, 1, 3
if not rs.eof then
Session("ID") = rs("ID")
Session("Username") = rs("Username")
Session("gamernick") = rs("Gamernick")
Session("Access_Level") = rs("Access_Level")
Session("Password") = rs("Password")
Session("Signatur") = rs("signatur")
Session("icon") = rs("icon")
end if
else
session("Authenticated") = 0
response.redirect("default.asp")
end if
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("aabbccddee.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT Count(*) AS ItemCount1 FROM Bruger"
rs.Open strSQL, myConn, 1, 3
If Request.Form("Action") = "Login" Then
strID = Trim(Replace(Request.Form("Brugernavn"),"'",""))
strPWD = Trim(Replace(Request.Form("Adgangskode"),"'",""))
If Len(strID) > 0 And Len(strPWD) > 0 Then
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("aabbccddee.mdb")
strSQL = "SELECT * FROM Bruger"&_
" WHERE (Username = '" & strID & "')"&_
" AND (Password = '" & strPWD & "')"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
intID = rs("ID")
strlevel = rs("Access_Level")
Else
strERR = "<H2>HTTP Error 401</H2><P><STRONG>401.1 Unauthorized: Logon Failed</STRONG></P><P>This error indicates that the credentials passed to the server do not match the credentials required to log on to the server.</P"
End If
If Len(intID) Then
Session("ID") = rs("ID")
Session("Username") = StrID
Session("gamernick") = rs("Gamernick")
Session("Access_Level") = strlevel
Session("Password") = strPWD
Session("Signatur") = rs("signatur")
Session("icon") = rs("icon")
If Request.Form("checkbox") = "autologon" then
' Gemmer oplysninger i cookie på brugerens pc
Response.Cookies("esports-magazine.net")("ID") = rs("ID")
Response.Cookies("esports-magazine.net")("Username") = StrID
Response.Cookies("esports-magazine.net")("gamernick") = rs("Gamernick")
Response.Cookies("esports-magazine.net")("Access_Level") = strlevel
Response.Cookies("esports-magazine.net")("Password") = strPWD
Response.Cookies("esports-magazine.net")("Signatur") = rs("signatur")
Response.Cookies("esports-magazine.net")("icon") = rs("icon")
' Hvornår cookien skal udløbe, her udløber den efter 400 dage
Response.Cookies("default.asp").Expires = Date+400
End if
If Rs.EOF Then
Session("Authenticated") = 0
Response.Redirect ("default.asp")
Else
Session("Authenticated") = 1
end if
' End If
end if
If Len(strErr) > 0 Then
strErr = "<p><font color=red>" & strErr & "</font></p>"
End If
End If
end if
'If RS2("Access_Level") = "User" then
'response.write " <table width='23%' border='0' height='31'>"
'response.write " <tr> "
'response.write " <td><a href='#' ><font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#000000'>Navn "
'response.write " : <font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#0066CC'> " & RS2("Username") & "</font></font></td>"
'response.write " </tr>"
'response.write " <tr> "
'response.write " <td><a href='#' ><font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#000000'>Rediger "
'response.write " Profil</font></a></td>"
'response.write " </tr>"
'response.write " <tr> "
'response.write " <td><a href='#' ><font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#000000'>Din "
'response.write " Clan</font></a></td>"
'response.write " </tr>"
'response.write " <tr> "
'response.write " <td> </td>"
'response.write " </tr>"
'response.write " <tr> "
'response.write " <td height='2'> </td>"
'response.write " </tr>"
'response.write " </table>"
if Session("Authenticated") = 0 then
response.write " <font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#000000'>Login:</font>"
response.write " <table width='100%' table border='0' style='border-collapse: collapse' bordercolor='#111111' cellpadding='3' cellspacing='1' width='70'> "
response.write " <tr> "
response.write " </tr>"
response.write " <tr> "
response.write " <td height='35'><font color='#000000' face='Verdana, Arial, Helvetica, sans-serif' size='2'>"
response.write " <input type='text' name='brugernavn' size='15' font face='Verdana, Arial, Helvetica, sans-serif'; style='border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; 'class=mitfelt>"
response.write " </font></td>"
response.write " </tr>"
response.write " <tr> "
response.write " <td><font face='Verdana, Arial, Helvetica, sans-serif' size='2'><small>Password:</small></font></td>"
response.write " </tr>"
response.write " <tr> "
response.write " <td><font face='Verdana, Arial, Helvetica, sans-serif' size='2'> "
response.write " <input type='password' name='Adgangskode' size='15' font face='Verdana, Arial, Helvetica, sans-serif'; style='border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#fffff; ' class=mitfelt>"
response.write " </font></td>"
response.write " </tr>"
response.write " </table>"
response.write " <font face='Verdana, Arial, Helvetica, sans-serif' size='2'>"
response.write " <input type='submit' value='Login' name='Action' style='border: 1px solid #C4E1FF; ; color:#0066CC; background-color:#ffffff' class=mitfelt>"
response.write " <br></font>Auto Login<font face='Verdana, Arial, Helvetica, sans-serif' size='1'><input type='checkbox' name='autologon' Value='autologon' class='mitfelt' checked></font><br>"
response.write " <font face='Verdana, Arial, Helvetica, sans-serif' size='1'><a href='default.asp?page=opretbruger' >Opret "
response.write " Bruger</a></font><br> "
response.write " <font face='Verdana, Arial, Helvetica, sans-serif' size='1'><a href='default.asp?page=glemtpassword' >Glemt "
response.write " Password ?</a></font> "
response.write " <p> <font face='Verdana, Arial, Helvetica, sans-serif' size='2'> </font></p>"
response.write " </form>"
