Develop a web page that is used for accepting information regarding stocks. Make sure the form carry out the possible validations. The simple instance code below merely illustrates the form & accepts input however does not store the data or perform any action.
<HTML>
<HEAD>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub cmd_submit_OnClick
'To continue the flow if any error take place on Error Resume Next
If document.form1.TxtName.Value = "" or document.form1.TxtEMail.Value = ""
Then
Dim MyMessage
MyMessage = "Please enter your name & id." MsgBox MyMessage, 0, "Incomplete Form Error"
document.form1.TxtName.focus() End If
'Check to make out if the user entered anything.
If (Len (document.form1.txtAge.value) = 0) Then
MsgBox "Before submitting you have to inscribe your age." Exit Sub
document.form1.txtAge.focus()
End If
If (Not (Is Numeric (document.form1.txtAge.value))) Then
MsgBox "You must enter a numeral for age." Exit sub
End If
'Check to make out if the age entered is valid.
If (document.form1.txtAge.value < 0) Or (document.form1.txtAge.value > 100)
Then
' MsgBox "The age you entered is wrong." Err.clear
Err.Raise 6
Err.description = "Error - The age you entered is wrong." msgbox Err.description
Exit Sub
End If
' Data looks okay thus submit it.
MsgBox "Thanks for your valuable advice." document.form1.submit
End Sub
-->
</SCRIPT>
</HEAD>
<BODY bgColor="#ffffcc" Text="#000099" Link="#ff0000" VLink="#ff0000" ALink="#009900">
<!--ENDOFADD -->
<FORM name = "form1" >
<CENTER>
<TABLE BORDER=8 CELLSPACING=1 CELLPADDING=0
WIDTH="600"><TR><TD>
<TABLE BORDER=5 CELLSPACING=1 CELLPADDING=0
WIDTH=100%><TR><TD>
<FONT SIZE=""FACE="Arial"><B><CENTER><H2>Sample Stock
Survey</H2></CENTER></B></FONT></TD>
<A NAME="ItemAnchor1"></A>
</TR></TABLE>
<HR>
<TABLE BORDER=5 CELLSPACING=1 CELLPADDING=0 WIDTH=100%>
<TR>
<TD ALIGN=RIGHT>*Name:</TD>
<TD><INPUT TYPE="TEXT" NAME="TxtName">
</TD>
<TD ALIGN=RIGHT>*E-Mail:</TD>
<TD><INPUT TYPE="TEXT" NAME="TxtEMail"></TD>
</TR>
<TR><TD ALIGN=RIGHT>Address:</TD>
<TD><INPUT TYPE="TEXT" NAME="TxtAddress"></TD>
<TD ALIGN=RIGHT>Age:</TD>
<TD><INPUT TYPE="TEXT" NAME="txtAge"></TD>
<A NAME="ItemAnchor1"></A>
</TR></TABLE>
<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=0
WIDTH=100%><TR><TD>
<CENTER>
<FONT SIZE="" FACE="Arial">
<CENTER>
<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="75%">
<BR></CENTER>
</FONT></CENTER></TD>
<TD>
<FONT SIZE="" FACE="Arial">
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=0>
<TR>
<TD>
<TABLE BORDER=0><TR><TD VALIGN="TOP">
<FONT SIZE="2" FACE="Arial" >
<B>Define your investment experience</B>
</FONT>
</TD>
</TR>
</TABLE>
<TABLE BORDER=0>
<TR>
<TD VALIGN="TOP">
<FONT SIZE="2" FACE="Arial" >
<INPUT TYPE="RADIO" NAME="RESULT_RadioButton-3" VALUE="Radio-
0">beginner
</FONT>
</TD>
<TD VALIGN="TOP">
<FONT SIZE="2" FACE="Arial" >
<INPUT TYPE="RADIO" NAME="RESULT_RadioButton-3" VALUE="Radio- 1">intermediate
</FONT>
</TD>
<TD VALIGN="TOP">
<FONT SIZE="2" FACE="Arial" >
<INPUT TYPE="RADIO" NAME="RESULT_RadioButton-3" VALUE="Radio-
2">expert
</FONT>
</TD>
<TD VALIGN="TOP">
<FONT SIZE="2" FACE="Arial" >
</FONT>
</TD>
</TR>
</TABLE>
</TD>
<A NAME="ItemAnchor4"></A>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=0>
<TR>
<TD>
<TABLE BORDER=0>
<TR>
<TD>
<FONT SIZE="2" FACE="Arial" >
<B>Types of Investments you make</B>
</FONT>
</TD>
</TR>
</TABLE>
<TABLE BORDER=0><TR><TD VALIGN="TOP">
<FONT SIZE="2" FACE="Arial" >
<INPUT TYPE="CHECKBOX" NAME="RESULT_CheckBox-4" VALUE="CheckBox-0">Individual Stocks<BR>
<INPUT TYPE="CHECKBOX" NAME="RESULT_CheckBox-4" VALUE="CheckBox-1">Options<BR>
<INPUT TYPE="CHECKBOX" NAME="RESULT_CheckBox-4" VALUE="CheckBox-2">Mutual Funds<BR>
<INPUT TYPE="CHECKBOX" NAME="RESULT_CheckBox-4" VALUE="CheckBox-3">Real Estate
</FONT>
</TD>
</TR>
</TABLE>
</TD>
<A NAME="ItemAnchor5"></A>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=0>
<TR>
<TD>
<TABLE BORDER=0>
<TR>
<TD VALIGN="TOP">
<FONT SIZE="2" FACE="Arial" >
<B>How do you buy your stocks?</B>
</FONT>
</TD>
</TR>
</TABLE>
<TABLE BORDER=0><TR><TD VALIGN="TOP">
<FONT SIZE="2" FACE="Arial" >
<!--DROP_DOWN_TYPE -->
<SELECT NAME="RESULT_RadioButton-5">
<OPTION>
</OPTION>
<!--DROP_DOWN_TYPE NAME="RESULT_RadioButton-5" VALUE="Radio-0" -
-><OPTION>1) On-Line</OPTION>
<!--DROP_DOWN_TYPE NAME="RESULT_RadioButton-5" VALUE="Radio-1" -
-><OPTION>2) Touch Tone Trading
</OPTION>
<!--DROP_DOWN_TYPE NAME="RESULT_RadioButton-5" VALUE="Radio-2" -
-><OPTION>3) Brokers Assisted
</OPTION>
<!--DROP_DOWN_TYPE NAME="RESULT_RadioButton-5" VALUE="Radio-3" -
-><OPTION>4) Other</OPTION>
</SELECT>
</FONT>
</TD>
</TR>
</TABLE>
</TD>
<A NAME="ItemAnchor6"></A>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=0>
<TR><TD>
<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=0>
<TR><TD>
<FONT SIZE="2" FACE="Arial" >
<B>What is your hot stock pick for this year? </B>
</FONT></TD>
</TR><TR>
<TD>
<FONT SIZE="2" FACE="Arial" >
<INPUT TYPE="TEXT" NAME="RESULT_TextField-6" SIZE="30" MAXLENGTH="30">
</FONT>
</TD></TR>
</TABLE>
</TD>
<A NAME="ItemAnchor7"></A>
<TD>
<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=0><TR><TD>
<FONT SIZE="2" FACE="Arial" >
<B>Stock Symbol if you know it</B>
</FONT>
</TD>
</TR><TR>
<TD>
<FONT SIZE="2" FACE="Arial" >
<INPUT TYPE="TEXT" NAME="RESULT_TextField-7" SIZE="4" MAXLENGTH="4">
</FONT>
</TD></TR>
</TABLE>
</TD>
<A NAME="ItemAnchor8"></A>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=0>
<TR><TD>
<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=0>
<TR><TD VALIGN="BOTTOM">
<FONT SIZE="2" FACE="Arial" >
<B>Any Investment recommendation for others?</B>
</FONT>
</TD>
</TR><TR>
<TD>
<FONT SIZE="2" FACE="Arial" >
<TEXTAREA NAME="RESULT_TextArea-8" ROWS="7" COLS="35" WRAP="SOFT"></TEXTAREA>
</FONT></TD></TR>
</TABLE>
</TD>
<A NAME="ItemAnchor9"></A>
</TD></TR><TR><TD>
</CENTER>
</TD></TR>
</TABLE>
</TD></TR>
</TABLE>
</CENTER>
<BR>
<CENTER>
<INPUT TYPE="SUBMIT" NAME="cmd_submit" VALUE="Submit">
</CENTER>
</FORM>
</BODY>
</HTML>