codice:
<html>
<body>
<font face="mirror" size="2"><%
'creo l'oggetto
set form = new ClassForm
'imposto l'action del form
form.Action="form.asp"
'imposto il nome del form
form.formname="nomeform"
'imposto il nome dei campi di tipo numerico (separare da virgola eventuale altri campi)
form.formnumeric="costo"
'imposto il nome dei campi di tipo data (separare da virgola eventuale altri campi)
form.FormDate="data"
'imposto il nome dei campi di tipo multiriga con controllo caratteri non validi (separare da virgola eventuale altri campi)
form.FormMulti="unom,duem"
'imposto il nome dei campi di tipo riga singola con controllo caratteri non validi (separare da virgola eventuale altri campi)
form.SingolaReplace="campo,obbligatorio"
'imposto i caratteri non validi (separare da virgola icaratteri)
form.FormReplace="@,',#,[,],{,},|,*,^,§,\,/,<,>,.,:,;,&,%,$,£,^,?,=,(,),*,~,€,ciao"
'imposto il tipo di font
form.fontface="arial"
'imposto la dimensione del font
form.fontsize="2"
'imposto il colore del font
form.fontcolor="#000000"
'imposto l'allineamento del form
form.align="right"
'imposto la distanza dal margine alto della pagina
form.top=0
'imposto la distanza dal margine sx della pagina
form.left=0
'imposto il nome dei campi di tipo e-mail (separare da virgola eventuale altri campi)
form.formemail="email"
'imposto i nomi dei campi obbligatori
form.richiesto="campo,data,costo,obbligatorio"
'imposto la dimensione dei campi riga singola
form.singolasize=12
if request("ok") = "" then
'creo l'apertura del form
form.creaform()
'creo i vari campi
form.controlemail()
form.singolereplace()
form.singoladata()
'*******se ho bisogno di un secondo campo e non voglio creare un nuovo oggetto, dopo aver creato il primo cambio le proprietà
'reimposto i parametri obbligatori dopo avere creato il primo campo obbligatorio
'form.SingolaReplace="obbligo"
'ricreo un altro campo obbligatorio con i nuovi parametri
'form.singolereplace()
'***********************************
form.singolanumerica()
'prima di chiudere il form aggiungo dei campi da database
'creo l'oggetto (menu discesa)
set selezione = new FormSelect
'imposto il database
selezione.DataBase="/mdb-database/esterofilo.mdb"
'imposto la tabella del db
selezione.Tabella="menu_cat"
'imposto il tipo di font
selezione.FontFace="mirror"
'imposto la dimensione del font
selezione.FontSize=2
'imposto il colore del font
selezione.FontColor="#000000"
'imposto il nome del campo
selezione.SelectName="tabella"
'imposto la dimensione del campo
selezione.SelectSize=""
'creo il campo
selezione.CreaSelect()
'creo l'oggetto (menu opzione) ***** utilizzare come la classe formselect
set selezione = new FormRadio
selezione.DataBase="/mdb-database/esterofilo.mdb"
selezione.Tabella="menu_cat"'utilizzabile anche come query sql es. "menu_cat where tabella ='offerte' or tabella='vaneziano'"
selezione.FontFace="mirror"
selezione.FontSize=2
selezione.FontColor="#000000"
selezione.SelectName="tabella"
selezione.SelectSize=""
selezione.CreaRadio()
'creo l'oggetto (menu checkbox) ***** utilizzare come la classe formselect
set selezione = new FormCheckBox
selezione.DataBase="/mdb-database/esterofilo.mdb"
selezione.Tabella= "menu_cat where tabella ='offerte' or tabella='vaneziano'"
selezione.FontFace="mirror"
selezione.FontSize=2
selezione.FontColor="#000000"
selezione.SelectName="tabella"
selezione.SelectSize=""
selezione.CreaCheckBox()
'chiudo il form
form.chiusura()
else
'faccio un controllo lato server
nomecampo="campo,data,costo,email,obbligatorio"
contenuto="$" & request.form("campo")&",$"&request.form("data")&",$"&request.form("costo")&",$"&request.form("email")&",$"&request.form("obbligo")
rtipo="1,3,2,4,1"
set controllo= new ControlloServer
CONTROLLO.FORMaction="form.asp"
controllo.FormReplace="@,',#,[,],{,},|,*,^,§,\,/,<,>,.,:,;,&,%,$,£,^,?,=,(,),*,~,€,ciao"
controllo.formname="nomeform"
controllo.action="request.asp"
controllo.tipo=rtipo
controllo.nomecampo=nomecampo
controllo.ServerValido(contenuto)
end if%></font>
</body>
</html>
Rispondi quotando
