Menu a tendina

**19pantarei75** · 31-05-2007, 13:10

Ciao ragazzi.
Vorrei creare un menù a tendina che pesca i valori in una tabella.
Ho fatto questo:

codice:

<html>
<form name="form1" method="post" action="">
<% SET Connessione= Server.CreateObject("ADODB.Connection")
   Connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mapPath("\rubrica\rubrica.mdb")
   sql="SELECT * FROM Citta "
   rsCitta=Connessione.Execute(sql)
   %>
   
    <%Do Until rsCitta.Eof %>
  <select name="ElencoCitta" >
    <option value="<%rsCitta.Fields("Id Citta")%>"><%rsCitta.Fields("Citta")%></option>
	<% rsCitta.MoveNext
	    Loop 
		rsCitta.Close
		%>
  </select>
</form>


</html>

solo che mi genera il seguente errore:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01B6)
Proprietà o metodo non supportati dall'oggetto: 'Eof'
/rubrica/selectdinamico.asp, line 9

Come posso sistemarlo?
Grazie!

**imente** · 31-05-2007, 13:20

usa questo

codice:

<html>
<form name="form1" method="post" action="">
<% SET Connessione= Server.CreateObject("ADODB.Connection")
   Connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mapPath("\rubrica\rubrica.mdb")
   sql="SELECT * FROM Citta "
   set rsCitta = Connessione.Execute(sql)
   %>
   
    <%while not rsCitta.Eof %>
  <select name="ElencoCitta" >
    <option value="<%rsCitta.Fields("Id Citta")%>"><%rsCitta.Fields("Citta")%></option>
	<% rsCitta.MoveNext
	wend
	%>
  </select>
</form>


</html>

1. l'oggetto deve essere impostato (con SET)
2. rsCitta.close è superfluo, non è un recordset dinamico
3. al posto di Do loop io preferisco While wend... questione di preferenze in lettura e abitudine

**19pantarei75** · 31-05-2007, 13:32

Grazie per aver risposto.
Ho sostituito il codice. Solo che ora mi dà il seguente errore:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01C2)
Numero errato di argomenti o assegnazione di proprietà non valida: 'Fields'
/rubrica/selectdinamico.asp, line 11

**19pantarei75** · 31-05-2007, 15:49

Ho cosi risolto:

codice:

<html>
<form name="form1" method="post" action="">
<% SET Connessione= Server.CreateObject("ADODB.Connection")
   Connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mapPath("\rubrica\rubrica.mdb")
   sql="SELECT * FROM Citta "
   set rsCitta = Connessione.Execute(sql)
   %>
   
    
  
  <select name="ElencoCitta" >
  <%while not rsCitta.Eof %>
    <option value="<%=rsCitta.Fields("Id Citta")%>"><%=rsCitta.Fields("Citta")%></option>
	<% rsCitta.MoveNext
	wend
	%>
  </select>
</form>


</html>

Discussione: Menu a tendina

Strumenti discussione

Ricerca discussione

Visualizza

Menu a tendina

Permessi di invio