Object required fejl

du kalder din connection for conn:
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("../../../db/college.mdb")

og du bruger et connection object nogle steder i koden som hedder objConn:
set objRec = objConn.Execute(strSQL)


Enten ændre Conn til objConn alle steder
eller ændre objConn til Conn alle steder.

Har rettet til Conn alle steder, men nu fås denne fejl:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/beta/login/New.asp, line 16

Ny kode:
<%
'Dimension the variables
Dim Randchar, password, StrLen, objRec

'Define the length of the passwordword password
StrLen=5

'Forbindelsen til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("../../../db/college.mdb")

call pass

'SQL forespørgsel
strSQL = "select User_ID from STUDENTS where User_ID = '" & password & "'"
set objRec = Conn.Execute(strSQL)

'Generate the password
do until objRec.EOF
    call pass
    set objRec = Conn.Execute(strSQL)
loop

objRec.close
Set objRec = Nothing
Conn.Close
Set Conn = Nothing

Response.Write password

sub pass

DO UNTIL Len(password)=StrLen
Randomize
Randchar = Int(Rnd*122)+1
IF (Randchar>64 AND Randchar<91) OR (Randchar>96 AND Randchar<123) OR (Randchar>47 AND Randchar<58) THEN
password=password & chr(Randchar)
END IF    
loop

end sub
%>

Fejlen kommer hvis du prøve at sammeligne Tal med Tekst: Eksvis hvis User_ID er defineret som tal skal du i SQL ikke havde ' omkring.

strSQL = "select User_ID from STUDENTS where User_ID = " & password & ""

Hej eagleeye!

Vi kommer da fremad!

Har rettet SQL-sætningen. Nu fås:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/beta/login/New.asp, line 16

så det nook fordi password er tom den bruger du til at sammenligne med User_ID. Er det rigtigt User_ID = password ??

Du kalder en function pass som jeg ikke lige kan se?

Hej eagleeye!

Jeg har løst det med denne reviderede kode:

Du får alle pts for din indsats.

/ Chr.

<%
'Dimension the variables
Dim Randchar, password, StrLen

'Define the length of the passwordword password
StrLen=5

'Forbindelsen til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("../../../db/college.mdb")

password = "temp"
call pass

'SQL forespørgsel
strSQL = "select User_ID from STUDENTS where Password = '" & password & "'"
Set objRec = Conn.Execute(strSQL)



'Generate the password
do until objRec.EOF
    call pass
    strSQL = "select User_ID from STUDENTS where Password = '" & password & "'"
    set objRec = Conn.Execute(strSQL)
loop

objRec.close
Set objRec = Nothing
Conn.Close
Set Conn = Nothing

Response.Write password

sub pass
password = ""
DO UNTIL Len(password)=StrLen
Randomize
Randchar = Int(Rnd*122)+1
IF (Randchar>64 AND Randchar<91) OR (Randchar>96 AND Randchar<123) OR (Randchar>47 AND Randchar<58) THEN
password=password & chr(Randchar)
END IF    
loop

end sub
%>