Originariamente inviato da gold
che classe è ?
mi sembra di averla gia vista una cosa del genere
si puo' avere il cod. ?
certooooooooo (ho tolto le parti personali dell'autore della classe):
codice:
<%
class DinamicSelect
public SelectText 'impostare il nome del campo del database che verrà visualizzato nella lista
public SelectValue 'impostare il nome del campo del database che verrà passato come valore della lista
public Selected 'impostare la voce che verrà visualizzata nella lista al caricamento di pagina
public DataBase 'impostare l'url del database
public sql 'impostare la query per estrarre i dati
public Evento 'impostare l'evento che provvederà al submit "parziale" del form
public NomeCampo 'impostare il nome del campo (nell'ambito del form)
function CreaDinamicSelect()
'creazione e apertura della connessione
set conn=server.createobject("adodb.connection")
conn.open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath(me.DataBase)
%>
<select name='<%=me.NomeCampo%>' <%=me.Evento%>>
<%
'creazione del recordset
set rs=server.createobject("adodb.recordset")
'apertura del recordset
rs.open me.sql,conn,3,3
do until rs.eof
%>
<option value='<%=rs(me.SelectValue)%>' <%if rs(me.SelectValue) = me.selected then
response.write("selected")
end if
%>><%=rs(me.SelectText)%></option>
<%
rs.movenext
loop
%>
</select>
<%
'chiusura e distruzione del recordset
rs.close
set rs = nothing
'chiusura e distruzione della connessione
conn.close
set conn = nothing
end function
end class
%>
Rispondi quotando
