Develop a web page for accepting information regarding stock, Visual Basic Programming

Assignment Help:

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>


Related Discussions:- Develop a web page for accepting information regarding stock

Object naming conventions, The following table lists suggested conventions ...

The following table lists suggested conventions for objects you might encounter while programming VBScript. Code Commenting Conventions All process should begin with a brie

Vbscript operators, VBScript Operators VBScript contain a full range of...

VBScript Operators VBScript contain a full range of operators, including comparison operators, arithmetic operators, concatenation operators, and logical operators.

How to, need general help in pseudo code

need general help in pseudo code

Declaring variables in vbscript, You declare variables explicitly in script...

You declare variables explicitly in script via the Dim statement, the Public statement, & the Private statement. For illustration: Dim DegreesFahrenheit You declare multiple

Naming restrictions, For naming anything variable names follow the standard...

For naming anything variable names follow the standard rules in VBScript. A variable name: Should begin with an alphabetic character. Cannot have an embedded period. Sh

Variable scope prefixes, Variable Scope Prefixes As script size rise, s...

Variable Scope Prefixes As script size rise, so does the value of being capable to rapidly differentiate the scope of variables. A one-letter scope prefix preceding type prefix

Windows programming, WINDOWS PROGRAMMING The Windows programming is a d...

WINDOWS PROGRAMMING The Windows programming is a developing application using the C and the native Win32 application interface (API) or C++ and the class libraries like Microso

Scope and lifetime of variables, The scope of a variable is finding out by ...

The scope of a variable is finding out by where you declare it. While you declare a variable in a procedure, only code in that procedure can access or alter the value of that varia

Write Your Message!

Captcha
Free Assignment Quote

Assured A++ Grade

Get guaranteed satisfaction & time on delivery in every assignment order you paid with us! We ensure premium quality solution document along with free turntin report!

All rights reserved! Copyrights ©2019-2020 ExpertsMind IT Educational Pvt Ltd