Questo è il modo con cui chiamo la funzione selectDB

response.write selectDB("Prezzo","[ seleziona prezzo ]","*","tabTypeImmobili",[objRS("link")],[objRS("descr")])


la funzione è questa:

function selectDB(string,strSelezione,colonna,tab
ella,valore,descr)

response.write "<a class=F5>"
response.write string
response.write "</a><br>"
response.write "<select class=S1 name='select'>"
response.write "<option selected>" & strSelezione & "</option>"
'Creazione delle query
strSQL = "SELECT " & colonna & " FROM " & tabella
'Setto l'oggetto Recordset
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn, 3, 3
Do While NOT objRS.EOF
Response.Write "<option value='"& valore &"'>"
Response.Write descr
objRS.MoveNext
loop
response.write "</select>"
response.write "<br>"

end function

Non ricevo nessuno errore ma quando visualizzo il contenuto della select è vuoto, ma la cosa strana e che la select si espande per quanti record ci sono nel DB senza far vedere niente.

Spero di essere stato chiaro.

Non vorrei che l'errore sia dato dal fatto che ho utilizzato le parentesi quadre per richiamare l'oggetto Recorset.

Mi aiuto a risolvere anche questo problema?


mungo mauro

Ciao linker, tutto bene?

Puoi fare così:

function selectDB(string,strSelezione,colonna,tab
ella,valore,descr)
.......................................
.......................................

While NOT objRS.EOF
Response.Write "<option value='"& valore &"'>"
Response.Write descr
objRS.MoveNext
wend

.......................................
.......................................


end function