funzione crealistbox errore

[Jacqui]

questa la funzione

'---Funzione Crea ListBox
function Crea_Listbox(Campo_Valore, Campo_Nome, Tabella, Nome_listbox)
Temp="<select name='"&Nome_listbox&"' class='caselladitesto'>" & chr(10)
Temp=Temp & "<option value=''></option>" & chr(10)
sql="select "&Campo_Valore&", "&Campo_Nome&" from "&Tabella&" "
Set rs = Cnn.Execute(sql)
do while not rs.eof
Temp=Temp & "<option value='" & RS(Campo_Valore) & "'>" & left(lcase(RS(Campo_Nome)),17) & "</option>" & chr(10)
rs.movenext
loop
rs.close
set rs=nothing
Temp=Temp & "</select>"
Crea_Listbox=Temp
end function

questo l'errore che ricevo
passando come campo_valore tariffa
campo_nome NStato
tabella Nazioni
nome_listbox Stati

Microsoft JET Database Engine error '80040e14'

The SELECT statement includes a reserved word or an argument name that is misspelled or missing, or the punctuation is incorrect.

/ecomm/include/inc_function.asp, line 139

questa la linea 139
sql="select "&Campo_Valore&", "&Campo_Nome&" from "&Tabella&" "
Set rs = Cnn.Execute(sql) <------

[[trodat]]

E l'errore?

[Jacqui]

Microsoft JET Database Engine error '80040e14'

The SELECT statement includes a reserved word or an argument name that is misspelled or missing, or the punctuation is incorrect.

/ecomm/include/inc_function.asp, line 139

[[trodat]]

L'errore mi pare chiaro:

Stai cercando di chiamare qualcosa all'interno della tua query con un nome riservato alle procedure ASP o ACCESS.

Scrivi così:

sql="select "&Campo_Valore&", "&Campo_Nome&" from "&Tabella&" " 
response.write sql:response.end
Set rs = Cnn.Execute(sql)

e posta cosa visualizzi sul browser.

[Jacqui]

risolto.....

passavo come valore di select la virgola quindi dava errore.

cioè come se il campo della tabella da leggere si chiamasse [,].

grazie.... era così visibile che passava inosservato!