codice:
if scelta = "0" then 
sSQL = "SELECT * FROM Menu WHERE Voci='"&Voci&"'" 
response.write ("Voci")


set rs = conn.execute(sSQL) 
if not rs.EOF then 
   id=(rs.Fields.Item("ID").Value) 
end if
end if
e poi devi controllare prima di stamparlo che il recordset non sia .eof...cmq mi sembra uno schifo sta cosa...ma che stai cercando di fare?