<%public function getUsername()
dim strSQL
dim Db
dim Rs
dim strPass
strPass = Request.Form("pass")
' Öppnar databasen
set Db = createobject( "adodb.connection" )
Db.open "driver={Microsoft Access Driver (*.mdb)};dbq=c:/inetpub/wwwroot/ZODA/database.mdb"
strSQL = "select * from tblAnvandare where pass = strPass"
[B]set Rs = Db.execute(strSQL)[/B]
if Rs.eof then
getUserName = "Vi kunde inte hitta dig i databasen...försök igen"
else
getUsername = Rs( "Username" )
end if
end function
%>
Inloggad som: <%=getUsername()%>
Men jag får detta felmeddelande:
Microsoft OLE DB Provider for ODBC Drivers fel '80040e10'
[Microsoft][Drivrutin för ODBC Microsoft Access] För få parametrar angavs. 1 förväntades.
Microsoft JET Database Engine fel '80040e10'
Det har inte angetts något värde för en eller flera nödvändiga parametrar.
/ZODA/check.asp, rad 13
På den här koden:
<%If ((Request.Form("username") = "") OR (Request.Form("pass") = "")) Then
Response.Redirect("main.asp")
End If
Dim strPass
strPass = Request.Form("pass")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
SQL = "SELECT * FROM tblAnvandare Where pass = strPass"
Set RS = Server.CreateObject("ADODB.Recordset")
[B]RS.Open SQL, Conn, 3, 3[/B]
If RS.Eof Then
Response.Write"Vi kunde inte hitta dig i databasen...försök igen"
Else
Response.Write"Du är inloggad som:"%><%=RS("username")%>
<%End If
Conn.Close
Set Conn = Nothing
RS.Close
Set RS = Nothing
%>
SQL = "SELECT * FROM tblAnvandare Where pass = strPass"
ser lite konstig ut, prova
SQL = "SELECT * FROM tblAnvandare Where pass = '"&strPass&"'"
istället
