Adgangskode og Response.Redirect
HejJeg har et login-script som jeg ikke kan få til at virke ordentligt.
Jeg får følgende fejl :
ADODB.Recordset error \'800a0bb9\'
The application is using arguments that are of the wrong type, are out of acceptable range, or are in conflict with one another.
/2000/opslag.asp, line 9
Formularen hvor man skriver brugernavn og adgangskode :
<form action=\"opslag.asp\" method=\"post\" name=\"loginform\">
<table width=\"766\" height=\"22\" align=\"left\" valign=\"top\" cellspacing=\"0\" cellpadding=\"0\" border=\"0\">
<tr>
<td width=\"110\" height=\"22\" align=\"left\" valign=\"middle\"><div class=\"hvid\">Indtast brugernavn :</div></td>
<td width=\"135\" height=\"22\" align=\"left\" valign=\"top\"><input type=\"text\" name=\"login\" style=\"font-family: Tahoma, Verdena; font-size: 11px; margin-top: 0px; width: 125px;\"></td>
<td width=\"115\" height=\"22\" align=\"left\" valign=\"middle\"><div class=\"hvid\">Indtast adgangskode :</div></td>
<td width=\"135\" height=\"22\" align=\"left\" valign=\"top\"><input type=\"password\" name=\"pw\" style=\"font-family: Tahoma, Verdena; font-size: 11px; margin-top: 0px; width: 125px;\"></td>
<td width=\"71\" height=\"22\" align=\"right\" valign=\"top\"><input type=\"submit\" value=\"LOG PÅ\" style=\"font-family: Tahoma, Verdena; font-size: 10px; font-weight: bold; margin-top: 1px; width: 61px;\"></td>
<td width=\"200\" height=\"22\" align=\"center\" valign=\"middle\"><div class=\"hvid\"><u><b>Ansøg om adgangskode!</b></u></div></td>
</tr>
</table>
</form>
opslag.asp:
<%
Set objRS = Server.CreateObject(\"ADODB.RecordSet\")
strQ = \"SELECT * FROM Adgangskoder WHERE (Password=\'\" & Request.Form(\"pw\") & \"\')\" & _
\" AND (Username = \'\" & Request.Form(\"login\") & \"\');\"
objRS.Open strQ, strConn
If objRS.EOF Then
Response.Redirect(\"index.asp?valg=fejl\")
Else
Session(\"Pris\") = \"EPris\"
Response.Redirect(\"index.asp?valg=kunde&RealName=\" & objRS(\"RealName\") & \"&KundeNr=\" & objRS(\"KundeNr\") & \"&Betaling=\" & objRS(\"Betaling\") & \"&Garanti=\" & objRS(\"Garanti\") & \"&Returret=\" & objRS(\"Returret\") & \"\")
End If
objRS.Close
Set objRS = Nothing
%>
I kan også se det på adressen http://www.lm-handel.dk/2000
Hvad gør jeg galt???
Jeg håber 100point er nok ellers må i sige til.
Regards
Rütger Jacobsen