problema connessione database

[fbdesign]

Devo fare stampare a video i record di un db di nome parco_auto.
Quando apro la pagina però mi da quest'errore:
Tipo di errore:

Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: ''
/corso_asp/alcars/offerta.asp, line 37

Perfavore datemi una mano a farlo funzionare. Grazie


<%
set dbconn = server.createobject("adodb.connection")
dbconn.open(application("strconn"))
set rstcategorie = server.createobject("adodb.recordset")
dim sql
SQL = "SELECT * FROM parco_auto"
set rstCategorie = ObjConn.Execute(SQL)

if not rstCategorie.EOF then
response.write "<TABLE BORDER=0><tr>"
For i=0 to rstCategorie.Fields.Count-1
response.write "<td>" & rstCategorie.fields(i).Name & "</td>"
Next
response.write "</tr>"

rstCategorie.MoveFirst
While not rstCategorie.EOF
response.write "<tr>"
For i=0 to rstCategorie.Fields.Count-1
response.write "<td>" & rstCategorie(i) & "</td>"
Next
response.write "</tr>"
rstCategorie.MoveNext
Wend
response.write "</TABLE>"
End if

Set rstCategorie=Nothing
dbconn.Close
%>


ps
la linea 37 è questa:
set rstCategorie = ObjConn.Execute(SQL)

[Sypher]

cos'è ObjConn? te lo dico io...niente

[fbdesign]

ma me la puoi dare una mano?

[fbdesign]

Se ti mando un pvt cn il db ed il file asp puoi dargli un'occhiata?
Mi faresti un gran favore...

[Sypher]

Originariamente inviato da fbdesign
Se ti mando un pvt cn il db ed il file asp puoi dargli un'occhiata?
Mi faresti un gran favore...

intendevo..objconn non è un oggetto...dbconn è un oggetto

[fbdesign]

Originariamente inviato da Sypher
intendevo..objconn non è un oggetto...dbconn è un oggetto

Ma mi puoi aiutare o no??

[Sypher]

<%
set dbconn = server.createobject("adodb.connection")
dbconn.open(application("strconn"))
set rstcategorie = server.createobject("adodb.recordset")
dim sql
SQL = "SELECT * FROM parco_auto"
set rstCategorie = dbconn.Execute(SQL)

if not rstCategorie.EOF then
response.write "<TABLE BORDER=0><tr>"
For i=0 to rstCategorie.Fields.Count-1
response.write "<td>" & rstCategorie.fields(i).Name & "</td>" 
Next
response.write "</tr>"

rstCategorie.MoveFirst
While not rstCategorie.EOF
response.write "<tr>"
For i=0 to rstCategorie.Fields.Count-1
response.write "<td>" & rstCategorie(i) & "</td>"
Next
response.write "</tr>"
rstCategorie.MoveNext
Wend 
response.write "</TABLE>"
End if

Set rstCategorie=Nothing
dbconn.Close
%>

vedi così che succede

[fbdesign]

funonzia...
ciao grazie