My Advanced Input Form
My Advanced Input Form

ONEDo Not Send Me
TWOSend Me
THREEClick me for help
FOUR
PHONE
FIVE
SIX
SEVEN2003 2004 2005 2006
NINE

 Reset
MyInput FORM - Advanced
<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
  Dim pop As String = "<A HREF='#' onClick=""window.open('./_HelpSample.html'," _
    & "'window_name', 'width=330, height=300, left=200, top=200, directories=no,menubar=no," _
    & "toolbar=no,status=no')"">Click me for help</A>"
  Dim Mi As New Tornado.z
  With Mi
    .dbDebug = "Request"
    .dbQP = "U=1|S=aspdb|th=tit=My Advanced Input Form"
    .dbValidatorParams = "code=/tornado/Jars|entry=false" 
    .dbOptions = "DropFirst=[Select a Value]"
    Dim Inp As String = "(;~)Fi=One|Ty=RONOSEND|Def=Do Not Send Me~ " _
      & "Fi=Two| Ty=ROSEND|Def=Send Me~ " _
      & "Fi=Three| Ty=RONOSEND|Def=" & pop & "~ " _
      & "Fi=Four| Ty=textcalendar~ " _
      & "Fi=Phone| Ty=TEXT|tag=size=25|mask=USPHONE|event=both|req=true|" _
      & "err=Phone format must be XXX-XXX-XXXX~" _
      & "Fi=Five| Ty=CheckBox~ " _
      & "Fi=Six| Ty=SelectBox| Val={{One,Three,Five,Seven}}| Tex={{1-7-2}}~" _
      & "Fi=Seven| Ty=RADIO| Val={{2003-2006}}~" _
      & "Fi=Eight| Ty=HIDDEN| Def=I am a hidden field~" _
      & "Fi=Nine| Ty=TextArea| Tag=cols=25 rows=5"
      .dbMyInputFlds = Inp
    Response.Write("<Center>" & .ASPdbMyInputForm() & "</Center>")
  End With
End Sub
</script>

The example illustrates building a complex Input FORM with ROsend, RONOsend, Hidden, Popup Help,.Calendar, Validation, Selectbox, Checkbox,  Radiobox and TextArea. Can you think of any more variations?