jag har skapat en databas connection så jag senare i mitt inloggnings script ska kunna skriva du är nu inloggad som:(nickname)...
hit kommmer man när man loggar in:
logga.asp
<%
If Session("UserId")="" Then
'======================================================
' GLÖM INTE ATT ÄNDRA SÖKVÄGEN TILL DIN DATABAS
'======================================================
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("members.mdb"))
SQLStmt = "SELECT * FROM Members Where Members = '" & (Request.Form("Username")) & "'"
Set RS = Connection.Execute(SQLStmt)
If RS.EOF Then
Response.Redirect("default2.asp")
Else
Session("Username") = RS("Members")
RS.Close
Connection.Close
End If
End If
%>
</body>
</html>
men då får jag felet:
Microsoft OLE DB Provider for ODBC Drivers fel '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
<%
If Session("UserId")="" Then
'======================================================
' GLÖM INTE ATT ÄNDRA SÖKVÄGEN TILL DIN DATABAS
'======================================================
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("members.mdb"))
if request.form("Username") <> "" then
SQLStmt = "SELECT * FROM Members Where Members = '" & (Request.Form("Username")) & "'"
Set RS = Connection.Execute(SQLStmt)
If RS.EOF Then
Response.Redirect("default2.asp")
Else
Session("Username") = RS("Members")
RS.Close
Connection.Close
End If
else
response.write "Du skrev inget"
end if
End If
%>
Gör en if-sats "se om ovan" där om request.form("Username") är tomt så körs inte frågan.
Det skapas nämligen ett felmeddelande ifall där villkor är tomt. ;)
