menu da visualizzare

[David_pop]

Salve,
sto cercando di inserire della parole (che fungono da menu nel sito) da un DB. La Tabella si chiama "Menu" e la colonna con i valori (parole) si chiama "Voci"... ho fatto questo nella pagina Asp:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%

Dim scelta
Dim Recordset2
Dim Recordset2_numRows
dim id

set conn = server.createObject("ADODB.Connection") 
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/db.mdb")  

sSQL = "SELECT * FROM Menu WHERE Voci='"&Voci&"'" 

set rs = conn.execute(sSQL) 
if not rs.EOF then 
   id=(rs.Fields.Item("ID").Value) 
end if
%>

e nella cella dove va la parola...

<a href="#" class="menu_lat"><%=(rs.Fields.Item("Voci").Value)%>

                  <input type="hidden" name="Menu" value="<%=(rs.Fields.Item("Voci").Value)%>"></a>

Tutto ciò però sembra che legga dal DB ma da errore:

ADODB.Field error '800a0bcd' 
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. 
/sito/prova/second2_out.asp, line 205  --> <a href="#" class="menu_lat"><%=(rs.Fields.Item("Voci").Value)%>

che faccio?

[santino83]

questa

sSQL = "SELECT * FROM Menu WHERE Voci='"&Voci&"'" 

set rs = conn.execute(sSQL)

sembrerebbe non restituire record

[David_pop]

perche no?
lo usato altre volte e mi dava risposta...

[santino83]

Originariamente inviato da David_pop
perche no?
lo usato altre volte e mi dava risposta...

e che vuoi che ti dica? l'errore non mente, rs è vuoto quindi se cerchi di stamparlo a video ti da errore...prenditela col db...

metti:

if rs.eof then
response.write ("recordset vuoto")
else
response.write ("recordset pieno")
end if

e vediamo che ti dice

[David_pop]

questo è vero... il db ha i dati però..

ho fatto questo ma da errore di "Command text was not set for the command object. "

scelta= Request.QueryString("scelta")

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

set rs = conn.execute(sSQL) 
if not rs.EOF then 
   id=(rs.Fields.Item("ID").Value) 
end if
%>

[santino83]

forse scelta non si valorizza e non ti crea la ssQl

[David_pop]

quindi dici di mettere scelta ="1"?

[santino83]

stampa il valore di scelta e vedi che ottieni..e poi scusa, ma se scelta è <>0 mi spieghi quella sSql come dovrbebe valorizzarsi? al conn.execute che gli passi una stringa vuota?

[David_pop]

senza "scelta" da l'errore iniziale, non riesco a capire...

[santino83]

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?