dette er den kode jeg bruger til et af mine projekter lige for tiden:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("data/data.mdb")
If Request.Form("mode") = "check" Then
' Her forberedes de indtastede værdier til validering
strUID = Trim(Replace(Request.Form("user"),"'",""))
strPWD = Trim(Replace(Request.Form("password"),"'",""))
' Hvis der er skrevet noget i både brugernavn og adgangskode
If Len(strUID) > 0 And Len(strPWD) > 0 Then
' Opbygning af SQL streng
sSQL = "SELECT * FROM users WHERE (user = '" & strUID & "') AND (pass = '" & strPWD & "')"
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open sSQL, Conn, 3,3
If Not (rs.BOF Or rs.EOF) Then
' Hvis brugeren fandtes i databasen
session("IRLname") = Rs("IRLname")
session("login") = "true"
session("brugerid") = Rs("brugerid")
Response.redirect "default.asp?page=default"
Else
' Hvis brugeren ikke fandtes i databasen
Response.redirect "default.asp?page=login"
End If
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
Else
Response.redirect "default.asp?page=login"
End If
End If
%>
der kan læses mere om problemet på denne side:
http://www.asp.dk/articles.asp?mode=show_article&article_id=132&tech_id=1/Søren Søndergård