Declare variables in own subroutine

dancer · Sep 14, 2007

Using ASP.net 1.1 and VB

Is it possible to declare variables in their own subroutine?

I had my DIM statements within a sub that worked just fine.
I wanted to be able to use them in another sub, so I isolated them in their
own subroutine.
But when I call that subroutine within another sub and then try to use those
variables, it does not remember that they have been declared. I get the
message, "Name is not declared."

When I have those same variables declared in the exact same way WITHIN the
second sub it works fine.

James · Sep 14, 2007

dancer said:
Using ASP.net 1.1 and VB

Is it possible to declare variables in their own subroutine?

I had my DIM statements within a sub that worked just fine.
I wanted to be able to use them in another sub, so I isolated them in
their own subroutine.
But when I call that subroutine within another sub and then try to use
those variables, it does not remember that they have been declared. I get
the message, "Name is not declared."

When I have those same variables declared in the exact same way WITHIN the
second sub it works fine.

If you want a variable to be accessible from multiple routines, you'll
either have to declare the variable at a higher level, or do something like
passing it ByRef. If you can provide a trivial example of what you're doing
and trying to accomplish, even generically, it will probably be a lot easier
to get you from point A to point B.

dancer · Sep 14, 2007

Thanks for replying. Here is my example.
-------------------------------------------------
<%@ Page Language="VB" Debug = "true" ValidateRequest="false" %>

<%@ Import Namespace="System.Web.Mail" %>

<%@ Import Namespace="System.Data.Oledb" %>

<script language="VB" runat="server">

Sub SendMailandDatabase(Source As Object, E As EventArgs)

btnSendMail_OnClick

'I called another subroutine here, but to save you having to read so much
code, I eliminated it.

End Sub

Sub Declare_Var

Dim TheEmpName As String = EmpName.text

Dim TheHomeNumber As String = HomeNumber.text

Dim TheDateofAccident As String = DateofAccident.Text

Dim TheNotifyDate As String = NotifyDate.Text

Dim TheTimeAM As String = am.Text

Dim TheTimePM As String = pm.Text

Dim TheTime As String

Dim Thedie As String = Die.SelectedItem.Text

Dim TheLostDays As String = LostDays.SelectedItem.Text

Dim TheStateOfInjury As String = StateOfInjury.Text

Dim TheStreet As String = street.text

Dim TheCity As String = city.text

Dim TheAddressState as String = AddressState.Text

Dim TheZip As String = Zip.text

Dim Thebirth as String = Birth.Text

Dim TheSSN As String = SSN.text

Dim TheSex As String = Sex.SelectedItem.Text

Dim TheMarital As String = Marital.SelectedItem.Text

Dim TheContactNumber As String = ContactNumber.Text

Dim TheJob As string = Job.SelectedItem.Text

Dim ThePart As String = Part.Text

Dim TheSupervisor As String = Supervisor.Text

Dim TheHours As String = Hours.Text

Dim TheDays As String = Days.Text

Dim TheNature As String = nature.SelectedItem.Text

Dim TheDescription As String = Description.Text

Dim TheCaused As String = Caused.Text

Dim TheInitial As String = Initial.SelectedItem.Text

Dim TheProvider As String = Provider.SelectedItem.Text

Dim TheAdmitted As String = Admitted.SelectedItem.Text

Dim TheProviderName as String = ProviderName.Text

Dim TheProviderStreet as string = ProviderStreet.Text

Dim TheProviderCity as string = ProviderCity.Text

Dim TheProviderPhone as string = ProviderPhone.Text

Dim Thefull as String = Full.Text

Dim TheFullNew As String

Dim TheOccur As String = Occur.SelectedItem.Text

Dim TheWhere As String = Where.Text

Dim TheAccidentStreet As String = AccidentStreet.Text

Dim TheAccidentCity As String = AccidentCity.Text

dim TheAccidentState as String = AccidentState.Text

Dim TheAccidentZip as String = AccidentZip.Text

Dim TheOtherClaims as String = OtherClaims.SelectedItem.Text

Dim TheSafetyDevices as string = SafetyDevices.selectedItem.Text

Dim TheDevicesUtilized as string = DevicesUtilized.selectedItem.Text

Dim TheWitness as string = Witness.SelectedItem.Text

Dim TheWitnessName as String = WitnessName.Text

Dim TheReceivePay as String = ReceivePay.SelectedItem.Text

Dim TheComments as String = Comments.Text

Dim TheCommentsNew as String

Dim ThePrevented as String = Prevented.Text

Dim ThePreventedNew as String

Dim TheSubmitter As String = Submitter.Text

Dim TheTitle As String = Title.Text

Dim TheToday As String = Today.Text

Dim TheLocation As String = Location.SelectedItem.Text

Dim myMessage As New MailMessage

Dim myMail As SmtpMail

Dim strEmail As String

Dim UserMessage As String

End Sub

Sub Get_Info

myMessage.Body = "<h2>Wheeler's Express Accident Report Form</h2>" & vbCrLf
_

& " " & vbCrLf _

& "<html><body> <table width = ""750"" bgcolor=""#E9EDF4"" height=""25""
border=""1"" cellpadding=""1"" cellspacing=""0""fontface=""Verdana""
Size=""2"">" & vbCrLf _

& "<td colspan=""3"" bgcolor=""maroon"" align=""center""> BASIC CLAIM
FACTS</td></tr>" & vbCrLf _

& "<tr><td> Employee's Name: " &
TheEmpName & "</td>" & vbCrLf _

& "<td colspan=""2""> Home Phone Number:
"& TheHomeNumber & "</td></tr>" & vbCrLf _

& "<tr><td> Date of Injury: " &
TheDateOfAccident & " " & "</td>" & vbCrLf _

& "<td> Time of Injury: " & TheTime &
" " & "</td></tr>" & "</tr>" & vbCrLf _

& "<tr><td> Date Employer Notified: " &
TheNotifyDate & "</td>" & vbCrLf _

& "<td> Did Employee Die? " & Thedie &
"</td></tr>" & vbCrLf _

& "<tr><td colspan=""1""> Has the Injured
Employee Lost Days From Work? " & TheLostDays & "</td>" & vbCrLf _

& "<td colspan=""2""> What State Did
Injury Occur? " & TheStateOfInjury & "</td></tr>" & vbCrLf _

& "<tr><td colspan=""3"" bgcolor=""maroon"" align=""center""> EMPLOYER
INFORMATION</td></tr>" & vbCrLf _

& "<tr><td colspan=""3""> Employer Name:
</td></tr>" & vbCrLf _

& "<tr><td height=""35"" valign=""bottom"" colspan=""3""> Work Location: 
(street)&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp"
& vbCrLf _

&
"(city)&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp(state)&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp(Zip)</td></tr>"
& vbCrLf _

& "<tr><td colspan=""3""> Nature of
Business: </td></tr>" & vbCrLf _

& "<tr><td colspan=""3""> Employee FED ID:
</td></tr>" & vbCrLf _

& "<tr><td colspan=""3""> Liberty Mutual
Policy # &nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp" &
vbCrLf _

&
"&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp
Store# </td></tr>" & vbCrLf _

& "<tr><td colspan=""1""> Employer Code:
</td>" & vbCrLf _

& "<td colspan=""2""> Employer Location
Code: </td></tr>" & vbCrLf _

& "<tr><td> Employer SIC Code: </td>" &
vbCrLf _

& "<td> Employer Type: </td></tr>" &
vbCrLf _

& "<tr><td colspan=""3"" bgcolor=""maroon"" align=""center""> INJURED EMPLOYEE
</td></tr>" & vbCrLf _

& "<tr><td colspan= ""3""> Home Address:
" & TheStreet & "&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp" & TheCity &
"&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp" & TheAddressState & "&nbsp&nbsp&nbsp" &
TheZip & "</td></tr>" & vbCrLf _

& "<tr><td> Date of Birth:" & TheBirth
& "</td>" & vbCrLf _

& "<td> SSN: " & TheSSN & "</td>" &
vbCrLf _

& "<td> " & TheSex & "</td></tr>"
& vbCrLf _

& "<tr><td> Marital Status: " &
TheMarital & "</td>" & vbCrLf _

& "<tr><td colspan = ""3""> Phone Number
where Employee can be contacted: " & TheContactNumber & "</td></tr>"
& vbCrLf _

& "<tr><td>Job Description: " & TheJob
& "</td></tr>" & vbCrLf _

& "<tr><td> Supervisor's Name: " &
TheSupervisor & "</td>" & vbCrLf _

& "<td> Hire Date: " & "</td></tr>" &
vbCrLf _

& "<td colspan=""2""> Work Per Week " &
TheHours & "&nbsp&nbsp Hours " & TheDays & "&nbsp&nbsp Days 
</td>" & vbCrLf _

& "<tr><td></td></tr>" & vbCrLf _

& "<tr><td colspan=""3"" bgcolor=""maroon"" align=""center""> INJURY OR ILLNESS
</td></tr>" & vbCrLf _

& "<tr><td colspan=""3""> Which Part of
the Body Was Injured? " & ThePart & "</td></tr>" & vbCrLf _

& "<tr><td colspan=""3""> What was the
Nature of Injury? " & TheNature & "</td></tr>" & vbCrLf _

& "<tr><td colspan=""3""> Injury/Illness
Description " & TheDescription & "</td></tr>" & vbCrLf _

& "<tr><td colspan=""3""> Initial Medical
Treatment: " & TheInitial & "</td></tr>" & vbCrLf _

& "<tr><td colspan=""3"">What Type of
Medical Provider Performed Treatment? " & TheProvider & "</td></tr>"
& vbCrLf _

& "<tr><td colspan=""3""> Was Employee
Admittted into a Hospital? " & TheAdmitted & "</td></tr>" & vbCrLf _

& "<tr><td colspan=""3""> Medical Provider
Name: " & TheProviderName & "</td></tr>" & vbCrLf _

& "<tr><td colspan=""3""> Medical Provider
Address: " & TheProviderStreet & "</td></tr>" & vbCrLf _

& "<tr><td colspan=""3""> Medical Provider
City State: " & TheProviderCity & "</td></tr>" & vbCrLf _

& "<tr><td colspan=""3""> Medical Provider
Phone: " & TheProviderPhone & "</td></tr>" & vbCrLf _

& "<tr><td colspan=""3""> Give a Full
Description of the Accident: " & TheFullNew & "</td></tr>" & vbCrLf _

& "<tr><td colspan=""3""> What Caused The
Injury? " & TheCaused & "</td></tr>" & vbCrLf _

& "<tr><td> Did the Accident Occur at the
Store or Plant? " & TheOccur & "</td></tr>" & vbCrLf _

& "<tr><td colspan=""2""> If No, where
did the accident occur?" & TheWhere & "</td>" & vbCrLf _

& "<tr><td> Accident Address " &
TheAccidentStreet & "</td></tr>" & vbCrLf _

& "<tr><td> Accident City " &
TheAccidentCity & "&nbsp" & TheAccidentState & "&nbsp" & TheAccidentZip &
"</td></tr>" & vbCrLf _

& "<tr><td> Are Other Claims Involved?
" & TheOtherClaims & "</td>" & vbCrLf _

& "<tr><td> Safety Devices Provided? "
& TheSafetyDevices & "</td>" & vbCrLf _

& "<td> Safety Devices Utilized? " &
TheDevicesUtilized & "</td></tr>" & vbCrLf _

& "<tr><td> Was There a Witness " &
TheWitness & "</td>" & vbCrLf _

& "<td colspan=""2""> If yes, ListName
" & TheWitnessName & "</td></tr>" & vbCrLf _

& "<tr><td colspan=""3"" bgcolor=""maroon"" align=""center""> DISABILITY STATUS
</td></tr>" & vbCrLf _

& "<tr><td colspan=""3""> Did Employee
Receive Pay for Date of Injury? " & TheReceivePay & "</td></tr>" &
vbCrLf _

& "<tr><td colspan=""3"" bgcolor=""maroon"" align=""center""> ADDITIONAL COMMENTS &
INFORMATION </td></tr>" & vbCrLf _

& "<tr><td colspan=""3"">" &
TheCommentsNew & " </td></tr>" & vbCrLf _

& "<tr> <td> Person submitting this form:
" & "" & theSubmitter & "</td>" & vbCrLf _

& "<td> Title: " & "" & theTitle &
"</td></tr>" & vbCrLf _

& "<td> Date: " & Thetoday & "" &
vbCrLf _

& "<td> Location: " & TheLocation &
"" & vbCrLf _

& "<tr> <td colspan=""3""> How can the
above incident be prevented from happening again? " & "" &
ThePreventedNew & "</td>" & vbCrLf _

& "</td><tr></table> </body>"

End Sub

'*************** Main Module************************************

Sub btnSendMail_OnClick

Declare_Var

Get_Info

If Page.IsValid() Then

Response.Write ("FORM HAS BEEN SENT TO
RIVERSIDE")

myMessage.From = "(e-mail address removed)"

MyMessage.To = "(e-mail address removed);"

myMessage.Subject = "Accident Form"

MyMessage.BodyFormat = MailFormat.Html

myMail.SmtpServer = ""

myMail.Send(myMessage)

frmEmail.Visible = False

UserMessage = "Has Been Sent."

End If

End Sub

</script>

<html>

<head>

<title>ASP.NET Email (HTML Format) Sample</title>

</head>

<body>

<table width="750" bgcolor="#E9EDF4" table border="1" cellpadding="3">

<h3><center>Wheeler's Express Accident Report
Form</center></h3>

<form method="post" id="frmEmail" runat="server">

<%--____________________________________________________________________________--%>

<%--Section 1--%>

<tr><td colspan="3" bgcolor="maroon" align="center"> BASIC CLAIM FACTS</td></tr>

<td bgcolor="#E9EDF4" colspan="2">



Employee's Name: <asp:textbox id="EmpName" runat=server columns="45"/>

<asp:RequiredFieldValidator id="RequiredFiedlValidator1" display=dynamic
runat="server" Text="The Employee name is required."

ControlToValidate="EmpName"></asp:RequiredFieldValidator>

</td>

<%---------------------------------------------------------------------------%>

<td align="right" valign="top">

Home Phone Number

<asp:TextBox id=HomeNumber runat="server"/>

</td></tr>

<%--____________________________________________________________________________--%>

<%--ROW 2--%>

<tr><td colspan="1" valign="center">

Date of Injury 

<asp:textbox id="DateofAccident" runat=server /></asp:textbox>

<asp:RequiredFieldValidator id="RequiredFieldValidator2" runat="server"

Text="The Date field is required" ControlToValidate="Dateofaccident">

</asp:RequiredFieldValidator>

</td><td colspan="2">Time of Injury
<asp:textbox columns="6" id ="am" runat=server/>a.m.

<asp:textbox columns="6" id= "pm" runat = server/> p.m.</td>

</TD>

</tr>

<tr>

<td>

Date Employer Notified <asp:textbox
id="Notifydate" runat=server/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorNotify" runat="server"

Text="This field is required" ControlToValidate="NotifyDate">

</asp:RequiredFieldValidator>

</td>

<td colspan="2"> Did employee die?
<asp:RadioButtonList id="Die" RepeatDirection="Horizontal" Runat=server>

<asp:ListItem>Yes</asp:ListItem>

<asp:ListItem>No</asp:ListItem>
</asp:RadioButtonList>

</td></tr>

<tr><td> Has the Injured Employee Lost Days
From Work?

<asp:RadioButtonList id="LostDays" font-name="verdana" font-size="10 pt"
RepeatDirection="Horizontal" Runat=server>

<asp:ListItem>Yes</asp:ListItem>

<asp:ListItem>No</asp:ListItem> </asp:RadioButtonList>

<asp:RequiredFieldValidator id="RequiredFieldValidatorLostDays"
Display=Dynamic runat="server"

Text="This field is required" ControlToValidate="LostDays">

</asp:RequiredFieldValidator>

<td colspan="3">What State did Injury Occur?
<asp:textbox id="StateOfInjury" runat=server/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorStateofInjury"
Display=Dynamic runat="server"

Text="The State is required" ControlToValidate="StateOfInjury">

</asp:RequiredFieldValidator>

</td></tr>

<%--SECTION3-----------------------------------------------------------------------------------%>

<tr><td colspan="3" bgcolor="maroon" align="center"> INJURED EMPLOYEE</td></tr>

<tr><td colspan="3"> Home address Street
<asp:TextBox id="street" columns="90" runat=server/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorStreet"
Display=Dynamic runat="server"

Text="The Street is required" ControlToValidate="Street">

</asp:RequiredFieldValidator>

</td></tr>

<tr><td> City <asp:TextBox id="City"
columns="40" runat=server/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorCity" Display=Dynamic
runat="server"

Text="The City is required" ControlToValidate="City">

</asp:RequiredFieldValidator>

</td><td> State <asp:TextBox
id="AddressState" columns="2" runat=server/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorADdressState"
Display=Dynamic runat="server"

Text="The State is required" ControlToValidate="AddressState">

</asp:RequiredFieldValidator>

</td> <td> Zip <asp:TextBox id="Zip"
runat=server/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorZip" Display=Dynamic
runat="server"

Text="The Zip field is required" ControlToValidate="Zip">

</asp:RequiredFieldValidator>

</td></tr>

<tr><td> Date of Birth: <asp:textbox id=birth
columns="10" runat=server/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorBirth" Display=Dynamic
runat="server"

Text="This field required" ControlToValidate="Birth">

</asp:RequiredFieldValidator>

</td><td> SSN:<asp:textbox id=SSN columns="11"
runat=server/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorSSN" Display=Dynamic
runat="server"

Text="The SSN field is required" ControlToValidate="SSN">

</asp:RequiredFieldValidator>

</td><td> Check one<asp:RadioButtonList
id="Sex" RepeatDirection="Horizontal" runat="server">

<asp:ListItem>Male</asp:ListItem>

<asp:ListItem>Female</asp:ListItem>
</asp:RadioButtonList>

</td></tr><td colspan="1"> Marital Status
<asp:RadiobuttonList id=Marital RepeatDirection="Vertical"

runat=server>

<asp:ListItem> Single </asp:ListItem>

<asp:ListItem> Married </asp:ListItem>

<asp:ListItem> Widowed </asp:ListItem>

<asp:ListItem>
Divorced</asp:ListItem></asp:RadioButtonList>

</td><td colspan="2"> Phone Number where
Employee can be Contacted: <asp:TextBox id=contactnumber runat=server/>

</td></tr><tr><td colspan="3"> Job
Description - Choose One <Asp

ropDownList id=Job runat=server>

<asp:ListItem Text="Choose One"/>

<asp:ListItem Text="Clerical"/>

<asp:ListItem Text="Driver"/>

<asp:ListItem Text="Door Manufacturing"/>

<asp:ListItem Text="Installed Sales"/>

<asp:ListItem Text="Manager"/>

<asp:ListItem Text="Puller"/>

<asp:ListItem Text="Sales"/>

<asp:ListItem Text="Shop Tech"/>

<asp:ListItem Text="Truss Manufacturing"/>

<asp:ListItem Text="Yard Worker"/>

<asp:ListItem Text="Warehouse Worker"/>

<asp:ListItem Text="Window Manufacturing"/>

</asp

ropDownList>

<asp:RequiredFieldValidator id="RequiredFieldValidatorJob" Display=Dynamic
runat="server"

Text="This field required" ControlToValidate="Job">

</asp:RequiredFieldValidator>

</td></tr><tr><td colspan="2"> Supervisor's
Name <Asp:TextBox id=Supervisor Columns = "40" runat=server/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorSupervisor"
Display=Dynamic runat="server"

Text="This field required" ControlToValidate="Supervisor">

</asp:RequiredFieldValidator>

</td><td> Time Worked Per Week Hours

<asp:TextBox id=hours Columns="1" runat=server/> 

<asp:RequiredFieldValidator id="RequiredFieldValidatorHours" Display=Dynamic
runat="server"

Text="This field required" ControlToValidate="Hours">

</asp:RequiredFieldValidator>

Days &nbsp<Asp:TextBox id=Days columns="1"
runat=server/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorDays" Display=Dynamic
runat="server"

Text="This field required" ControlToValidate="Days">

</asp:RequiredFieldValidator>

<tr><td colspan="3" bgcolor="MAROON" align="center"> INJURY OR ILLNESS</td></tr>

</td></tr> <tr><td colspan="3"> Which part of
the Body Was Injured? (If leg, hand or arm, specify left or right. If
finger, specify which)

<asp:textbox id="part" columns = "40" runat = server/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorPart" Display=Dynamic
runat="server"

Text="This field required" ControlToValidate="Part">

</asp:RequiredFieldValidator>

</td></tr> <tr><td colspan="3">

 What was the Nature of the Injury? - Choose
one

<asp

ropDownList id="nature" runat=server>

<asp:ListItem Text="Choose One"/>

<asp:ListItem Text="Abdominal Strain"/>

<asp:ListItem Text="Ankle Sprain"/>

<asp:ListItem Text="Back Strain"/>

<asp:ListItem Text="Arm Strain"/>

<asp:ListItem Text="Contusion"/>

<asp:ListItem Text="Embedded Foreign Object"/>

<asp:ListItem Text="Foot Fracture"/>

<asp:ListItem Text="Foreign substance in eye"/>

<asp:ListItem Text="Hand/Finger Fracture"/>

<asp:ListItem Text="Hand/Finger Smash"/>

<asp:ListItem Text="Laceration"/>

<asp:ListItem Text="Leg Fracture"/>

<asp:ListItem Text="Puncture Wound"/>

<asp:ListItem Text="Repetitive Motion Injury"/>

<asp:ListItem Text="Shoulder Strain"/>

<asp:ListItem Text="Struck By Lumber"/>

<asp:ListItem Text="Torn Tendon"/>

<asp:ListItem Text="Other"/>

</asp

ropDownList>

<asp:RequiredFieldValidator id="RequiredFieldValidatorNature" runat="server"

Text="You must answer this question" ControlToValidate="nature">

</asp:RequiredFieldValidator>

</td></tr><tr><td colspan="3" valign="center">

 Injury/Illness Description:

<asp:textbox TextMode="MultiLine" Rows="2" columns= "65" id="Description"
runat=server/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorDescrip"
runat="server"

Text="You must answer this question" ControlToValidate="Description">

</asp:RequiredFieldValidator>

</td></tr><tr><td> Initial Medical Treatment:

<asp:RadioButtonList font-name="verdana" font-size="10 pt" id=Initial
runat="server">

<asp:ListItem>ER Treated & Released</asp:ListItem>

<asp:ListItem>Hospitalized less than 24 hours</asp:ListItem>

<asp:ListItem>Hospitalized more than 24 hours</asp:ListItem>

<asp:ListItem>Physician/Clinic</asp:ListItem>

<asp:ListItem>Minor/Onsite</asp:ListItem>

<asp:ListItem>None</asp:ListItem>

</asp:RadioButtonList>

<asp:RequiredFieldValidator id="RequiredFieldValidatorInitial"
runat="server"

Text="You must answer this question" ControlToValidate="Initial">

</asp:RequiredFieldValidator>

</td><td colspan="2" valign="top"> What Type
of Medical Provider Performed Treatment?

<asp:RadioButtonList font-name="verdana" font-size="10 pt" id=Provider
runat="server">

<asp:ListItem>Hospital</asp:ListItem>

<asp:ListItem>Clinic</asp:ListItem>

<asp:ListItem>Physician</asp:ListItem>

</asp:RadioButtonList>

<asp:RequiredFieldValidator id="RequiredFieldValidatorProvider"
runat="server"

Text="You must answer this question" ControlToValidate="Provider">

</asp:RequiredFieldValidator>

 

 Was Employee admitted into a Hospital?

<asp:RadioButtonList font-name="verdana" font-size="10 pt" id=Admitted
runat="server">

<asp:ListItem>Yes</asp:ListItem>

<asp:ListItem>No</asp:ListItem>

</asp:RadioButtonList>

<asp:RequiredFieldValidator id="RequiredFieldValidatorAdmitted"
runat="server"

Text="You must answer this question" ControlToValidate="Admitted">

</asp:RequiredFieldValidator>

</td></tr><tr><td colspan="3">Medical
Provider - Name:

<asp:TextBox Columns = "65" id=ProviderName runat=server/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorProviderName"
runat="server"

Text="You must answer this question" ControlToValidate="ProviderName">

</asp:RequiredFieldValidator>

</td></tr><tr><td colspan="3">Medical
Provider - Address:

<asp:TextBox Columns = "65" id=ProviderStreet runat=server/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorProviderStreet"
runat="server"

Text="You must answer this question" ControlToValidate="ProviderStreet">

</asp:RequiredFieldValidator>

</td></tr><tr><td colspan="3">Medical
Provider - City State Zip:

<asp:TextBox Columns = "65" id=ProviderCity runat=server/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorProviderCity"
runat="server"

Text="You must answer this question" ControlToValidate="ProviderCity">

</asp:RequiredFieldValidator>

</td></tr><tr><td colspan="3">Medical
Provider - Phone:

<asp:TextBox id=ProviderPhone runat=server/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorProviderPhone"
runat="server"

Text="You must answer this question" ControlToValidate="ProviderPhone">

</asp:RequiredFieldValidator>

</td></tr>

<tr><td colspan="3" bgcolor="MAROON" align="center"> ACCIDENT DETAILS</td></tr>

</td></tr>

<tr><td colspan="3"> Give a Full Description
of the Accident: (Be as Complete as Possible)

<asp:TextBox TextMode="MultiLine" Rows="5" columns= "85" id=Full
runat=server/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorFull" runat="server"

Text="You must answer this question" ControlToValidate="Full">

</asp:RequiredFieldValidator>

</td></tr> <tr><td colspan="3"> What Caused
the Injury?

<asp:TextBox id= caused columns="85" runat=server/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorCaused" runat="server"

Text="You must answer this question" ControlToValidate="Caused">

</asp:RequiredFieldValidator>

</td></tr> <tr><td>Did the Accident Occur at
the Store or Plant?

<asp:RadioButtonList font-name="verdana" font-size="10 pt" id=Occur
runat="server">

<asp:ListItem>Yes</asp:ListItem>

<asp:ListItem>No</asp:ListItem>

</asp:RadioButtonList>

<asp:RequiredFieldValidator id="RequiredFieldValidatorOccur" runat="server"

Text="You must answer this question" ControlToValidate="Occur">

</asp:RequiredFieldValidator>

</td><td colspan="2" valign="top"> If No,
where did the accident occur?

<asp:textBox Columns = "40" id=where runat=server/>

</td></tr> <tr><td> Accident Address:

 Street <asp:TextBox columns="45"
id=accidentStreet runat=server/>

 <asp:RequiredFieldValidator id="RequiredFieldValidatorAccidentStreet"
Display=Dynamic runat="server"

Text="Fill this in" ControlToValidate="AccidentStreet">

</asp:RequiredFieldValidator>

</td><td> City
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp
State <asp:TextBox columns="20" id = AccidentCity runat=server/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorAccidentCity"
display=dynamic runat="server"

Text="Fill in this field" ControlToValidate="AccidentCity">

</asp:RequiredFieldValidator>

 <asp:TextBox columns="2" id=AccidentState
runat=server/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorAccidentState"
Display=Dynamic runat="server"

Text="You must fill in this field" ControlToValidate="AccidentState">

</asp:RequiredFieldValidator>

</td><td>

Zip <asp:TextBox columns = "10"
id=AccidentZip runat=server/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorAccidentZip"
Display=Dynamic runat="server"

Text="You must fill in this field" ControlToValidate="AccidentZip">

</asp:RequiredFieldValidator>

</td></tr> <tr><td valign="top"> Are Other WC
Claims Involved?

<asp:RadioButtonList font-name="verdana" font-size="10 pt" id=OtherClaims
RepeatDirection="Horizontal" Display=dynamic runat="server">

<asp:ListItem>Yes</asp:ListItem>

<asp:ListItem>No</asp:ListItem>

</asp:RadioButtonList>

<asp:RequiredFieldValidator id="RequiredFieldValidatorOtherClaims"
runat="server"

Text="Required" ControlToValidate="OtherClaims">

</asp:RequiredFieldValidator>

</td><td Valign="top"> Safety Devices
Provided?

<asp:RadioButtonList font-name="verdana" font-size="10 pt" id=SafetyDevices
RepeatDirection="horizontal" Display=dynamic runat="server">

<asp:ListItem>Yes</asp:ListItem>

<asp:ListItem>No</asp:ListItem>

</asp:RadioButtonList>

<asp:RequiredFieldValidator id="RequiredFieldValidatorSafetyDevices"
Display=dynamic runat="server"

Text="Required" ControlToValidate="SafetyDevices">

</asp:RequiredFieldValidator>

</td><td> Safety Devices Utilized?

<asp:RadioButtonList font-name="verdana" font-size="10 pt"
id=DevicesUtilized RepeatDirection="Horizontal" runat="server">

<asp:ListItem>Yes</asp:ListItem>

<asp:ListItem>No</asp:ListItem>

</asp:RadioButtonList>

<asp:RequiredFieldValidator id="RequiredFieldValidatorDevicesUtilized"
Display=dynamic runat="server"

Text="Required" ControlToValidate="DevicesUtilized">

</asp:RequiredFieldValidator>

</td></tr><tr><td> Was There a Witness?

<asp:RadioButtonList font-name="verdana" font-size="10 pt" id=Witness
RepeatDirection="Horizontal" Display=dynamic runat="server">

<asp:ListItem>Yes</asp:ListItem>

<asp:ListItem>No</asp:ListItem>

</asp:RadioButtonList>

<asp:RequiredFieldValidator id="RequiredFieldValidatorWitness"
runat="server"

Text="You must answer this question" ControlToValidate="Witness">

</asp:RequiredFieldValidator>

</td><td valign = "top">

If Yes, List Name: <asp:Textbox id="WitnessName" columns="40" runat=server/>

</td></tr>

<tr><td colspan="3" bgcolor="MAROON" align="center">

DISABILITY
STATUS</td></tr>

</td><td colspan="3"> Did Employee Receive Pay
for Date of Injury?

<asp:RadioButtonList RepeatDirection="Horizontal" font-name="verdana"
font-size="10 pt" id=ReceivePay runat="server">

<asp:ListItem>Yes</asp:ListItem>

<asp:ListItem>No</asp:ListItem>

</asp:RadioButtonList>

<asp:RequiredFieldValidator id="RequiredFieldValidatorReceivePay"
runat="server"

Text="You must answer this question" ControlToValidate="ReceivePay">

</asp:RequiredFieldValidator>

</td></tr>

<tr><td colspan="3" bgcolor="MAROON" align="center">

ADDITIONAL COMMENTS &
INFORMATION</td></tr>

<tr><td colspan="3"> Additional Comments

<asp:textbox TextMode= "Multiline" Rows= "5" columns= "80"

id="comments" runat=server width="730" height="40"/>

</td></tr>

<tr><td colspan="3">How can the above incident
be prevented from happening again?

<asp:textbox id=Prevented Textmode="Multiline" Rows = "3" Columns="80"
width="730" runat=server/>

<tr><td> Name of person submitting this
form:

<asp:textbox id="Submitter" valign="top" runat=server columns="40"/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorSubmit" runat="server"

Text="You must enter name" ControlToValidate="Submitter">

</asp:RequiredFieldValidator>

 Title: <asp:textbox id="Title"
valign="top" runat=server columns="40"/>

</td><td> Wheeler's Division - Choose One
<Asp

ropDownList id=Location runat=server>

<asp:ListItem Text="Choose One"/>

<asp:ListItem Text="Riverside Truss Plant"/>

<asp:ListItem Text="Riverside Door Plant"/>

<asp:ListItem Text="Riverside Office"/>

<asp:ListItem Text="Rome Store"/>

<asp:ListItem Text="Calhoun Store"/>

<asp:ListItem Text="Dalton Store"/>

<asp:ListItem Text="Austell Store"/>

<asp:ListItem Text="Morrow Store"/>

<asp:ListItem Text="Installed Sales"/>

<asp:ListItem Text="Newnan Store"/>

<asp:ListItem Text="Cartersville Store"/>

<asp:ListItem Text="Winder Store"/>

<asp:ListItem Text="Jasper Store"/>

<asp:ListItem Text="Chelsea Store"/>

<asp:ListItem Text="Madison Store"/>

<asp:ListItem Text="Peterson Products"/>

<asp:ListItem Text="Lawrenceville"/>

<asp:ListItem Text="OAR Window Shop"/>

<asp:ListItem Text="Charlotte - Hoskins Rd"/>

<asp:ListItem Text="Charlotte - Westinghouse Blvd"/>

<asp:ListItem Text="Sales Support Center"/>

<asp:ListItem Text="Land Development"/>

</asp

ropDownList>

</td><td> 

Date <asp:textbox id="Today" runat=server
columns="10"/>

<asp:RequiredFieldValidator id="RequiredFieldValidatorToday" runat="server"

Text="You must enter today's date" ControlToValidate="Today">

</asp:RequiredFieldValidator>

</Table>

<tr>

<td>

<asp:Button id="btnSendMail" text="Submit" OnClick="SendMailandDatabase"
runat="server" />

</td>

</tr>

<td valign=top> <table cellpadding=20><tr><td>

<asp:ValidationSummary ID="valSum" runat="server" ShowMessageBox="true"
ShowSummary="false" HeaderText="You must enter more information"
Font-Name="verdana" Font-Size="12" /> </td>

</form>

</body>

</html>

=?ISO-8859-1?Q?G=F6ran_Andersson?= · Sep 14, 2007

dancer said:
Using ASP.net 1.1 and VB

Is it possible to declare variables in their own subroutine?

I had my DIM statements within a sub that worked just fine.
I wanted to be able to use them in another sub, so I isolated them in their
own subroutine.
But when I call that subroutine within another sub and then try to use those
variables, it does not remember that they have been declared. I get the
message, "Name is not declared."

When I have those same variables declared in the exact same way WITHIN the
second sub it works fine.

When you declare variables inside a method, they are local to the
method. The memory for the variable is allocated on the stack when the
method is called, and the stack pointer is restored when the method
ends, so the variables doesn't exist in any way outside the method.

dancer · Sep 14, 2007

Should I declare the variables again in each subroutine I want to use them
in?
There are 59 variables.

Thanks

=?ISO-8859-1?Q?G=F6ran_Andersson?= · Sep 14, 2007

dancer said:
Should I declare the variables again in each subroutine I want to use them
in?
There are 59 variables.

Thanks

That depends on what you want to do.

If you declare two variables with the same name in separate methods,
they are separate variables and have nothing to do with each other. If
you want to use the variables to share data between methods, you have to
declare them as members in a class.

dancer · Sep 15, 2007

How do I "declare them as members in a class"?
I tried declaring them outside my subroutines, thinking they would be
global. But the subroutine still did not recognize them.

request, session and application 'not defined'?	8	Jan 13, 2008
Passing subroutine 'Sender' and 'e' (EventArgs) manually?	2	Feb 19, 2007
Declaring Variables	3	Jun 4, 2010
calling sub question	4	Dec 3, 2004
Problem: Module's Friend variable shared across user sessions	2	Nov 8, 2004
Passing variables back to main procedure	5	Sep 6, 2007
Declaring variables with global scope (Newbie Question)!	3	Aug 6, 2003
Call Subroutine in Excel	3	Nov 4, 2009

Declare variables in own subroutine

dancer

James

dancer

=?ISO-8859-1?Q?G=F6ran_Andersson?=

dancer

=?ISO-8859-1?Q?G=F6ran_Andersson?=

dancer

Ask a Question

Similar Threads