J jwradhe Medlem sedan juni 2002 711 inlägg Frågan 11 dec. 2002 22:28 #1 Va har jag missat??
<%
Set Connect = Server.CreateObject("ADODB.connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bin/swedb.mdb")
Set RecSet = Server.CreateObject("ADODB.recordset")
SQL "SELECT * From users WHERE user = " & Request.Form("user") & " AND pass = " & Request.Form("pass") & " "
RecSet.Open SQL, Connect
if RecSet.EOF then
Session("inloggad") = "no"
else
Do while RecSet.EOF
Session("user") = RecSet("user")
Session("pass") = RecSet("pass")
Session("inloggad") = "yes"
RecSet.Close
Connect.Close
[B]end if[/B]
Response.Redirect "index3.asp"
%>
får felmeddelande
Microsoft VBScript compilation error '800a0400'
Expected statement
/checkuser.asp, line 24
end if
^
va kan va fel?
Jesper T Medlem sedan nov. 2001 7 144 inlägg Om user är texttyp och pass "tal-typ" så skall det så ut så här:
SQL "SELECT * From users WHERE user = '" & Request.Form("user") & "' AND pass = " & cint(Request.Form("pass"))
Är det tvärt om skall det se ut så här:
SQL "SELECT * From users WHERE user = " & cint(Request.Form("user")) & " AND pass = '" & Request.Form("pass") & "'"
J jwradhe Medlem sedan juni 2002 711 inlägg strå Microsoft VBScript compilation error '800a0400'
Expected statement
/checkuser.asp, line 24
end if
^
fortfarande
J jwradhe Medlem sedan juni 2002 711 inlägg vadå text å tal typ?? om du menar TEXT i databsene så har jag satt MEMO/PM
Jesper T Medlem sedan nov. 2001 7 144 inlägg Do while [b]not[/b] RecSet.EOF
Session("user") = RecSet("user")
Session("pass") = RecSet("pass")
Session("inloggad") = "yes"
RecSet.movenext
loop
end if
RecSet.Close
Connect.Close
Jesper T Medlem sedan nov. 2001 7 144 inlägg
jwradhe skrev:
vadå text å tal typ?? om du menar TEXT i databsene så har jag satt MEMO/PM
Tal: 1234567890
Text/pm: A-Ö, a-ö,!"#¤)!%=?!¤%)="?%)#¤=%`??´
J jwradhe Medlem sedan juni 2002 711 inlägg hmm....nu förvirar du mig... =)
J jwradhe Medlem sedan juni 2002 711 inlägg du jespet .har du möjligt viss inte msn?
if RecSet.EOF then
Session("inloggad") = "no"
else
Session("user") = RecSet("user")
Session("pass") = RecSet("pass")
Session("inloggad") = "yes"
end if
RecSet.Close
Connect.Close
Response.Redirect "index3.asp"
Jesper T Medlem sedan nov. 2001 7 144 inlägg Testa:
<%
Dim user,pass
user=replace(Request.Form("user"),"'","")
pass=replace(Request.Form("pass"),"'","")
Set Connect = Server.CreateObject("ADODB.connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bin/swedb.mdb")
Set RecSet = Server.CreateObject("ADODB.recordset")
SQL="SELECT u.user,u.pass From users u WHERE u.user = '"& user &"' AND u.pass = '"& pass &"'"
RecSet.Open SQL, Connect
if RecSet.EOF then
Session("inloggad") = "no"
else
Session("user") = RecSet("user")
Session("pass") = RecSet("pass")
Session("inloggad") = "yes"
end if
RecSet.Close
Connect.Close
Response.Redirect "index3.asp"
%>
Palle Medlem sedan apr. 2000 3 174 inlägg Anledningen till att det blir fel i den kod som du postade först är att du har
en Do while RecSet.EOF som du aldrig fortsätter loopen på, därför får du ett Expected statement .
J jwradhe Medlem sedan juni 2002 711 inlägg tack Jesper . det funka me din kod. ! =)