I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
luisa
luisa
il 19 luglio 2002 alle 22:05
22 messaggi dal 10 luglio 2002
Ciao,
avrei bisogno di impostare in un form un menù a tendina che "peschi" le voci da visualizzare da una tabella di un db, scoppiazzando qua e là ho scritto questo codice...ma viene un pasticcio, chi mi aiuta dove ho sbagliato il mio puzzle ?
grazie
<select name="tipol">
<%

Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")

conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\xx\mdb-database\scadenzedb1.mdb"

Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from tipologie order by tipologia ASC", conn

Do while NOT RS.EOF
Dim id1
id1=rs("tipologia")
%>
<option><%=id1%></option>

</select>
<% RS.MoveNext
Loop
RS.Close
Set RS = Nothing
conn.Close
Set conn=Nothing
%>
</form>
</body>
</html>

lu
Linea Web's
RispondiQuoting
hyppos
hyppos
il 19 luglio 2002 alle 22:19
1.818 messaggi dal 21 giugno 2001
Contributi
<%

Dim Conn
Dim rs
Dim id1
Dim ComboSelect

Set Conn = Server.CreateObject("ADODB.Connection")

conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\xx\mdb-database\scadenzedb1.mdb"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from tipologie order by tipologia ASC", conn

ComboSelect="<select name=" & Chr(34) & "tipol" & Chr(34) & ">"

If Not(rs.Eof) Then
    Do while NOT RS.EOF

        id1=rs("tipologia")

        ComboSelect=ComboSelect & "<option value="& chr(34) & id1 & chr(34) & ">" & Chr(34) & id1& Chr(34) "</option>"

        RS.MoveNext
    Loop
End If

ComboSelect=ComboSelect & "</select>"

RS.Close
Set RS = Nothing
conn.Close
Set conn=Nothing
%>


Poi nel punto del codice HTML in cui vuoi la select scrivi
<%=Select%>

Cia Cia
hyppos

www.teatrolabaracca.com

<code>
|--------------------------------------|
|<font color=white><b>in giro torte sol ciclos et rotor igni</b></font id=white>|
|--------------------------------------|
</code>
hyppos
<code> in giro torte sol ciclos et rotor igni</code>
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.