Login problem...

Tjena,
har ett problem med det här scriptet
ska söka igenom ALLA IDn men det kollar bara det sista...

<%
db = Server.MapPath("login.mdb") 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& db

If Len(Request.Form("pass")) <1 OR Len(Request.Form("anv")) <1 then
Response.Redirect("login.asp?login=skriv")
Else

Set RecSet = Server.CreateObject("ADODB.Recordset") 
SQL = "SELECT * FROM admin Where pass = '" & Request.Form("pass") & "' And anv = '" & Request.Form("anv") & "' " 
RecSet.Open SQL, Conn

If NOT RecSet.EOF Then

Session("inloggad") = "ja"
Session("pass") = Request.Form("pass")

Response.Redirect("admin.asp")

Else

Response.Redirect("login.asp?login=fel")

End If

RecSet.Close 
Set RecSet = Nothing 

End If

Conn.close 
Set Conn = Nothing
%>

Vad kan vara fel?

Koden ser ut att vara helt korrekt.

Det enda jag kan tänka mig är att tabellen i databasen inte innehåller så mycket som du tror, ex. om du råkar köra mot fel version av databasen...

Mvh,

RecSet.Open SQL, Conn

Vad har du för konstanter här då?

Lägg till ,3 ,3 efter 'Conn' på samma rad.