Prøv det her.
<%
Response.Buffer = True
%>
<html>
<head>
<title>JolleR Community</title>
</head>
<%
Dim fejl, username, password
fejl = false
brugernavn = Trim(Replace(Request.Form("brugernavn"), "'", "''"))
kode = Trim(Replace(Request.Form("kode"), "'", "''"))
If brugernavn = "" Then
Response.Write "<font color=red>Indtast venligst dit brugernavn!</font>"
fejl = true
End If
If kode = "" Then
Response.Write "<font color=red>Indtast venligst dit password!</font>"
fejl = true
End If
If fejl = true Then
Response.Redirect "javascript:history.back();"
End If
If fejl <> true Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN
Dim samletAntal
strSQL = "SELECT * FROM brugere WHERE brugernavn='" & brugernavn & "' and kode = '" & kode & "'"
Set rs = Conn.Execute(strSQL)
If Not rs.eof Then
Session("login") = "true"
Session("brugernavn") = rs("brugernavn")
Session("id") = rs("id")
Session("email") = rs("email")
Session("msn") = rs("msn")
Session("icq") = rs("icq")
strSQL = "UPDATE brugere SET sidste_login='" & Now & "' WHERE id=" & Session("id") & ""
Conn.Execute(strSQL)
strSQL = "UPDATE brugere SET ip='" & Request.ServerVariables("REMOTE_ADDR") & "' WHERE id=" & Session("id") & ""
Conn.Execute(strSQL)
strSQL = "UPDATE brugere SET online ='online' WHERE id=" & Session("id") & ""
Conn.Execute(strSQL)
strSQL = "UPDATE brugere SET tid='" & Now & "' WHERE id=" & Session("id") & ""
Conn.Execute(strSQL)
strSQL = "UPDATE brugere SET sidste_login='" & Now & "' WHERE id=" & Session("id") & ""
Conn.Execute(strSQL)
Response.Redirect "loggetind.asp"
Else
Response.Redirect "javascript:history.back();"
End If
Conn.Close
Set Conn = Nothing
End If
%>
</body>
</html>
Er overhovedet ikke sikker på om det virker, har ikke undersøgt, men prøv alligevel.
Christoffer Buchholz
Brihhzel@raiser.dk
http://raiser.dk