29. januar 2002 - 10:02
Der er
9 kommentarer og 1 løsning
True eller hvad
Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("innovation.mdb") strSQL = "SELECT userid,active FROM tuser WHERE (name = '" & strUID & "') AND (password = '" & strPWD & "')" Set rs = myConn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then intUID = rs("userid") Else strERR = "Ingen adgang" End If if rs("active") = "False" then response.redirect("error.asp") end if Når jeg prøver at logge ind får jeg fejlen: error '80020009' Exception occurred. /innovation/login.asp, line 25 Linie 25 er: if rs("active") = "False" then active er et ja/nej felt i databasen.
Annonceindlæg fra Salesforce
29. januar 2002 - 10:07
#1
prøv at fjerne "" omkring dit false
29. januar 2002 - 10:09
#2
giver samme fejl
29. januar 2002 - 10:09
#3
det er jo ikke en string men en boolean du tester på :)
29. januar 2002 - 10:10
#4
prøv at lave en response.write rs("active") og se hvad den skriver så er det nemmere at tilrette koden.
29. januar 2002 - 10:22
#5
Så virker det: strSQL = "SELECT userid,active FROM tuser WHERE (name = '" & strUID & "') AND (password = '" & strPWD & "')" Set rs = myConn.Execute(strSQL) If Not rs.EOF Then intUID = rs("userid") response.write rs("active") if rs("active") = False then response.redirect("error.asp") end if Else strERR = "Ingen adgang" End If jeg havde sat if rs("active") = False then på den forkerte side af end if
29. januar 2002 - 10:24
#6
ja oki det var jo ikke til at se ud fra den stump kode, men nu virker det og det er jo det vigtigste :)
29. januar 2002 - 10:29
#7
æv jeg tog fejl det virker stadig ikke
29. januar 2002 - 10:30
#8
If Request.Form("Action") = "Login" Then strUID = Trim(Replace(Request.Form("username"),"'","")) strPWD = Trim(Replace(Request.Form("password"),"'","")) If Len(strUID) > 0 And Len(strPWD) > 0 Then Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("innovation.mdb") strSQL = "SELECT userid,active FROM tuser WHERE (name = '" & strUID & "') AND (password = '" & strPWD & "')" Set rs = myConn.Execute(strSQL) If Not rs.EOF Then intUID = rs("userid") if rs("active") = "no" then end if Else response.write rs("active") strERR = "No ACCES" End If Jeg får fejlen: Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
29. januar 2002 - 10:31
#9
så er der måske noget i vejen med dit sql
29. januar 2002 - 10:33
#10
ja det ser sådan ud
Kurser inden for grundlæggende programmering