per semplicità ti posto una classetta..
codice:
<%
CLASS FormSelect
PUBLIC SelectSize
PUBLIC SelectName
PUBLIC DataBase
PUBLIC Tabella
PUBLIC FontFace
PUBLIC FontSize
PUBLIC FontColor
PUBLIC Plus
PUBLIC Plus2
PUBLIC Evento
PUBLIC Css
PUBLIC FName
FUNCTION CreaSelect()
set cdb=server.createobject("adodb.connection")
cdb.open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath(ME.DataBase)
vari=split(ME.SelectName,",")
FName=ME.FName
for each varia in vari
%>
<%=CHR(13)&ME.Plus%><FONT FACE= <%=ME.FontFace%> SIZE= <%=ME.FontSize%> COLOR= <%=ME.FontColor%> ><%=varia%><%=ME.Plus2%>
<%=CHR(13)&ME.Plus%><select size= <%=ME.SelectSize%> name= <%=FName%> ><%=ME.Plus2%>
<%
set sottocat=server.createobject("adodb.recordset")
sottocat.open ME.Tabella,cdb,3,3
cont=sottocat.recordcount
sottocat.pagesize = 1
%><%=CHR(13)&ME.Plus%><option <%=ME.Css%> <%=ME.Evento%> selected><%=sottocat(varia)%></option><%=ME.Plus2%><%
for i = 2 to cont
sottocat.absolutepage = cint(i)
response.write CHR(13)&ME.Plus&" <option> " & sottocat(varia) & " </option> " & ME.Plus2
next%>
<%=CHR(13)&ME.Plus%></select></FONT><%=ME.Plus2%>
<%
next
cdb.close
END FUNCTION
END CLASS
%>
metti questa prima parte un un punto qualsiasi della tua pagina, poi nel form fai cosi' :
setaggi :
codice:
set selezione = new FormSelect
'inserisci il percorso del db
selezione.DataBase="/mdb-database/tuodb.mdb"
'inserisci il nome della tabella
selezione.Tabella="tuaTabella"
'inserisci il tipo di font che vuoi utilizzare (facoltativo)
selezione.FontFace="mirror"
'inserisci la dimensione di font che vuoi utilizzare (facoltativo)
selezione.FontSize=2
'inserisci il colore del font che vuoi utilizzare (facoltativo)
selezione.FontColor="#000000"
'inserisci il nome del campo
selezione.SelectName="tabella"
'inserisci la dimensione del campo (facoltativo)
selezione.SelectSize=15
questi sopra sono i setaggi che puoi variare ottenendo campi diversi,
ad esempio :
codice:
<form name="form1" method="post" action="">
'con questo comando puoi richiamare ovunque il campo
selezione.CreaSelect()
</form>
adesso supponiamo che voglia fare un altro campo da una tabella diversa, sara sufficiente fare questo :
codice:
<form name="form2" method="post" action="">
'cambio il nome della tabella
selezione.Tabella="altraTabella"
selezione.SelectName="altroNomeCampo"
selezione.CreaSelect()
</form>
cosi facendo otterrai un altro campo semplicemente indicando un altra tabella (ed ovviamente un altro nome al campo!!), chiaramente possono stare anche nello stesso form.