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,
2 svar · 215 visningar · startad av ReloadMaster
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.