Problema con l'oggetto

[Digenis]

Salve a tutti ho bisogno di creare una lista del tipo

Gruppo1 (campo "gruppo" della tabella)

ciccio (campo "nome" della tabella)
nemo
andrea

gruppo 2

Pino
Gino
Dino
Vino

Gruppo 3
Pierfrancesco
Piergiovanni
Piergiorgio

e uso la seguente

<%
rs.source="select * from chisiamo order BY gruppo desc" 
g=""
RS.Open ()
while (not rs.eof) and (rs.bof)
gu=rs.field("gruppo")
if g<>gu then
response.write("Gruppo :" & gu & "
")
g=gu
end if
response.write("nome" & rs.field("nome") & "
")
rs.movenext
wend%>

ma mi da il seguente errore

Microsoft VBScript runtime error '800a01a8' 

Object required: ''

come faccio a creare l'oggetto? o meglio ho paira di aver cancellato l'oggetto, insomma come posso risolvere sto problema?
Grazie ragazzi

[killer]

linea dell'errore?

[Sypher]

dovrai creare il recordset?

[Digenis]

dovrei crearlo ma non ci riesco

<%
rs.source="select * from chisiamo order BY gruppo desc" 
'faccio così?
Set RS = Server.CreateObject("ADODB.RecordSet")
g=""
RS.Open ()
while (not rs.eof) and (rs.bof)
gu=rs.field("gruppo")
if g<>gu then
response.write("Gruppo :" & gu & "
")
g=gu
end if
response.write("nome" & rs.field("nome") & "
")
rs.movenext
wend%>

[optime]

non ti pare il caso di crearlo prima di usarlo?

[Digenis]

ehheh mmmm ho problemi co ste cose fra un po non riesco neanche a fare i conti della spesa e per fare questo mi hanno aiutato , ma si vede che non sono buono neanche a copiare 8°°°( .
Cmq come fo a crearlo? Me lo puoi dire pls? ^_^

[Digenis]

così perchè non funziona?

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/------.mdb")
set rs = server.createobject("adodb.recordset")
set rs.activeconnection = conn
sql="select * from chisiamo order BY gruppo desc" 
g=""
RS.Open sql
while (not rs.eof) and (rs.bof(
gu=rs.field("gruppo")
if  g<>gu then
response.write("Gruppo :" & gu & "
")
g=gu
end if
response.write("nome" & rs.field("nome") & "
")
rs.movenext
wend%>

[Roby_72]

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/------.mdb")
set rs = server.createobject("adodb.recordset")
sql="select * from chisiamo order BY gruppo desc" 
g=""
RS.Open sql, conn
while not rs.eof
gu=rs.field("gruppo")
if  g<>gu then
response.write("Gruppo :" & gu & "
")
g=gu
end if
response.write("nome" & rs.field("nome") & "
")
rs.movenext
wend
RS.Close
set RS = nothing
conn.Close
set Conn = nothing
%>

Roby

[Sypher]

Originariamente inviato da optime
non ti pare il caso di crearlo prima di usarlo?

ehm non ho resistito scusate

[Digenis]

Roby, mi dà errore interno del server