---

Jeg har i min side en linie (#44), der lyder:
If Not (rs.BOF Or rs.EOF) Then
Men når jeg eksekverer siden, får jeg fejlen
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'rs.BOF'

/chat/default.asp, line 44

Hvorfor????

Det er en ganske almindelig database-forbindelse, jeg har lavet!
Jeg bruger den igen og igen i mange sider, men lige denne dur
altså ik!

MVH Jonas (aka Juke)

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Jonas Schmeltz Aaberg wrote:
> Jeg har i min side en linie (#44), der lyder:
> If Not (rs.BOF Or rs.EOF) Then
> Men når jeg eksekverer siden, får jeg fejlen
> Microsoft VBScript runtime error '800a01b6'
>
> Object doesn't support this property or method: 'rs.BOF'
>
> /chat/default.asp, line 44
>
> Hvorfor????
>
> Det er en ganske almindelig database-forbindelse, jeg har lavet!
> Jeg bruger den igen og igen i mange sider, men lige denne dur
> altså ik!

Mon vi må se den helt almindelige database-forbindelse? :)

Torben

---

> Mon vi må se den helt almindelige database-forbindelse? :)

Sæ'fø'li!!!

strSQL = "SELECT * FROM Admin WHERE Brugernavn='" &
MD5(Request.Form("UID")) & "' AND Adgangskode='" &
MD5(Request.Form("PW")) & "'"

strDSN = "DRIVER={Microsoft Access Driver
(*.mdb)};DBQ="&Server.MapPath(DBPATH)
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

Set rs = myConn.Execute(strSQL)

If Not (rs.BOF Or rs.EOF) Then
osv...
End If

myConn.Close
Set myConn = Nothing
Set rs = Nothing

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Jonas Schmeltz Aaberg wrote:
>>Mon vi må se den helt almindelige database-forbindelse? :)
>
> Sæ'fø'li!!!
>
> strSQL = "SELECT * FROM Admin WHERE Brugernavn='" &
> MD5(Request.Form("UID")) & "' AND Adgangskode='" &
> MD5(Request.Form("PW")) & "'"
>
> strDSN = "DRIVER={Microsoft Access Driver
> (*.mdb)};DBQ="&Server.MapPath(DBPATH)
> Set myConn = Server.CreateObject("ADODB.Connection")
> myConn.Open strDSN
>
> Set rs = myConn.Execute(strSQL)
>
> If Not (rs.BOF Or rs.EOF) Then
> osv...
> End If
>
> myConn.Close
> Set myConn = Nothing
> Set rs = Nothing

Hmmm, jeg har copy-pasted ovenstående og det giver ingen fejl uanset om
rs er tomt eller ikke...

Det eneste jeg kan komme i tanke om er hvis du er kommet til at skrive
rs = myConn.Execute(strSQL)
i stedet for
Set rs = myConn.Execute(strSQL)

Hvad sker det hvis du indsætter
Response.Write TypeName(rs)
efter linien med
Set rs = myConn.Execute(strSQL)

Hvad sker der hvis du bytter om på BOF og EOF og skriver
If Not (rs.EOF Or rs.BOF) Then

mvh Torben