così perchè non funziona?

codice:
<%
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%>