Compiler Error Message

Discussion in 'ASP .Net' started by dancer, Jun 27, 2007.

  1. dancer

    dancer Guest

    I get this message saying line 75 is the problem.
    But when I take out " & StateOfInjury & " from a line much further down,
    the error goes away.

    Anybody know why?


    Compiler Error Message: BC30452: Operator '&' is not defined for types
    'String' and 'System.Web.UI.WebControls.TextBox'.

    Source Error:



    Line 73:
    Line 74:
    Line 75: myMessage.Body = "<h2>Wheeler's Express Accident Report
    Form</h2>" & vbCrLf _
    Line 76: & " <p>" & vbCrLf _
    Line 77: & "<html><body> <table width = ""750"" bgcolor=""#E9EDF4""
    height=""25"" border=""1"" cellpadding=""3"" fontface=""Verdana""
    Size=""2"">" & vbCrLf _



    <%@ Page Language="VB" Debug = "true" ValidateRequest="false" %>

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

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

    Sub btnSendMail_OnClick(Source As Object, E As EventArgs)


    Dim TheEmpName As String = EmpName.text

    Dim TheHomeNumber As String = HomeNumber.text

    Dim TheDate 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 TheSSN As String = SSN.text

    Dim TheSex As String = Sex.SelectedItem.Text

    Dim TheJob As string = Job.Text

    Dim ThePart As String = Part.Text


    Dim TheNature As String = nature.Text

    Dim TheNatureNew As String

    Dim TheDescription As String = Description.Text

    Dim TheInitial As String = Initial.SelectedItem.Text

    Dim TheProvider As String = Provider.SelectedItem.Text

    Dim TheAmitted As String = Admitted.SelectedItem.Text

    Dim TheMed_provider as string = Med_Provider.Text

    Dim TheOccur As String = Occur.SelectedItem.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 TheComments as String = Comments.Text

    Dim TheSubmitter As String = Submitter.Text

    Dim TheToday As String = Today.Text

    Dim myMessage As New MailMessage

    Dim myMail As SmtpMail

    Dim strEmail As String

    Dim UserMessage As String


    If TheTimeAm <> "" Then

    TheTime = TheTimeAm & " AM"

    ElseIf TheTimePM <> "" Then

    TheTime = TheTimePM & " PM"

    Else TheTime = ""

    End If


    If Page.IsValid() Then


    Response.Write ("<font color=""red"">FORM HAS BEEN SENT TO
    RIVERSIDE</font>")


    myMessage.From = ""

    MyMessage.To = ""

    myMessage.Subject = "Accident Form from "

    ' This is the magic line. Without this the message will just appear

    ' as plain HTML and won't be rendered by the recipient's email client.

    ' It'd be as if they did "View Source" on a web page.

    MyMessage.BodyFormat = MailFormat.Html



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

    & " <p>" & vbCrLf _

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

    & "<td colspan=""3"" bgcolor=""maroon"" align=""center""> <font
    face=""Verdana"" Size=""2"" color=""white""><b> BASIC CLAIM
    FACTS</b></td></tr>" & vbCrLf _

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

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

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

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

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

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

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

    & "<tr><td> What State did Injury Occur? " & StateOfInjury & "</td></tr>" &
    vbCrLf _

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

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

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

    ' Doesn't have to be local... just enter your

    ' SMTP server's name or ip address!

    ' myMail.SmtpServer = "smtp.wheelers.com"

    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><font face="Verdana">Wheeler's Express Accident Report
    Form</font></center></h3>



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




    <%--____________________________________________________________________________--%>

    <%--Section 1--%>

    <tr><td colspan="3" bgcolor="maroon" align="center"> <font face="Verdana"
    Size="2" color="white"><b> BASIC CLAIM FACTS</b></td></tr>


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


    <font face="Verdana" Size="2">

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

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

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

    </td>

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

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


    <font face="Verdana" Size="2">Home Phone Number

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


    </td></tr>

    <%--____________________________________________________________________________--%>

    <%--ROW 2--%>


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

    <font face="Verdana" Size="2">Date of Injury </font>

    <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"><font face="Verdana" Size="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>

    <font face="Verdana" Size="2">Date Employer Notified <asp:textbox
    id="Notifydate" runat=server/>

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

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

    </asp:RequiredFieldValidator>


    </td>

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

    <asp:ListItem><font face="Verdana" Size="2">Yes</asp:ListItem>

    <asp:ListItem><font face="Verdana" Size="2">No</asp:ListItem>
    </asp:RadioButtonList>

    </td></tr>


    <tr><td colspan="2"> <font face="Verdana" Size="2"> Has the Injured Employee
    Lost Days From Work?

    <asp:RadioButtonList id="LostDays" RepeatDirection="Horizontal"
    Runat=server>

    <asp:ListItem><font face="Verdana" Size="2">Yes</asp:ListItem>

    <asp:ListItem><font face="Verdana" Size="2">No</asp:ListItem>
    </asp:RadioButtonList>



    </tr>

    <tr><td colspan="3"><font face="Verdana" Size="2">What State did Injury
    Occur? <asp:textbox id="StateOfInjury" runat=server/> </td></tr>

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

    <tr><td colspan="3" bgcolor="maroon" align="center"> <font face="Verdana"
    color="white" Size="2"><b> INJURED EMPLOYEE</b></td></tr>

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

    </td></tr>

    <tr> <td> <font face="Verdana" Size="2"> City <asp:TextBox id="City"
    columns="40" runat=server/>

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

    </td> <td> <font face="Verdana" Size="2"> Zip <asp:TextBox id="Zip"
    runat=server/>

    </td></tr>

    <tr><td> <font face="Verdana" Size="2">Date of Birth: <asp:textbox id=birth
    columns="10" runat=server/>

    </td><td><font face="Verdana" Size="2"> SSN:<asp:textbox id=SSN columns="11"
    runat=server/>


    </td><td><font face="Verdana" Size="2"> Check one<asp:RadioButtonList
    id="Sex" RepeatDirection="Horizontal" runat="server">

    <asp:ListItem><font face="Verdana" Size="2">Male</asp:ListItem>

    <asp:ListItem><font face="Verdana" Size="2">Female</asp:ListItem>
    </asp:RadioButtonList>

    </td></tr><td colspan="1"><font face="Verdana" Size="2"> Marital Status
    <asp:RadiobuttonList id=Marital RepeatDirection="Vertical"

    runat=server>

    <asp:ListItem> <font face="Verdana" Size="2"> Single </asp:ListItem>

    <asp:ListItem><font face="Verdana" Size="2"> Married </asp:ListItem>

    <asp:ListItem><font face="Verdana" Size="2"> Widowed </asp:ListItem>

    <asp:ListItem><font face="Verdana" Size="2">
    Divorced</asp:ListItem></asp:RadioButtonList>

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

    </td></tr><tr><td colspan="3"> <font face="Verdana" Size="2"> Job
    Description <Asp:TextBox id=Job columns="90" runat=server/>

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

    </td></tr>

    <tr><td colspan="3" bgcolor="MAROON" align="center"> <font face="Verdana"
    Size="2" COLOR="WHITE"><b> INJURY OR ILLNESS</b></td></tr>

    </td></tr> <tr><td colspan="3"><font face="Verdana" Size="2"> 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/>

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

    <font face="Verdana" Size="2"> What was the Nature Injury (e.g. Fracture,
    Sprain, Laceration)?

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

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

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

    </asp:RequiredFieldValidator>

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

    <font face="Verdana" Size="2"> 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><font face="Verdana" Size="2"> 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"><font face="Verdana" Size="2"> 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>

    <br>

    <font face="Verdana" Size="2"> 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"><font face="Verdana" Size="2">Medical
    Provider - Name, Address, Phone:

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

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

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

    </asp:RequiredFieldValidator>



    </td></tr>

    <tr><td colspan="3" bgcolor="MAROON" align="center"> <font face="Verdana"
    Size="2" COLOR="WHITE"><strong>ACCIDENT DETAILS</strong></td></tr>

    </td></tr>

    <tr><td colspan="3"> <font face="Verdana" Size="2"> Give a Full Description
    of the Accident:<font Size="1"> (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"><font face="Verdana" Size="2"> 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><font face="Verdana" Size="2">Did the Accident Occur at
    the Work Location?

    <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"> <font face="Verdana" Size="2"> If No,
    where did the accident occur?

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

    </td></tr> <tr><td colspan="3"><font face="Verdana" Size="2"> Accident
    Address: <br>

    <font face="Verdana" Size="2"> Street <asp:TextBox columns="45"
    id=accidentStreet runat=server/>

    <br><asp:RequiredFieldValidator id="RequiredFieldValidatorAccidentStreet"
    runat="server"

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

    </asp:RequiredFieldValidator>

    <font face="Verdana" Size="2"> City<asp:TextBox columns="20" id =
    AccidentCity runat=server/>

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

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

    </asp:RequiredFieldValidator>

    <font face="Verdana" Size="2"> State <asp:TextBox columns="2"
    id=AccidentState runat=server/>

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

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

    </asp:RequiredFieldValidator>

    <font face="Verdana" Size="2">Zip <asp:TextBox columns = "10" id=AccidentZip
    runat=server/>

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

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

    </asp:RequiredFieldValidator>



    </td></tr> <tr><td valign="top"><font face="Verdana" Size="2"> 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"><font face="Verdana" Size="2"> 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><font face="Verdana" Size="2"> 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><font face="Verdana" Size="2"> 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"><font face="Verdana" Size="2">

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

    </td></tr>

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

    <font face="Verdana" Size="2" COLOR="WHITE"><strong>DISABILITY
    STATUS</strong></td></tr>

    </td><td colspan="3"><font face="Verdana" Size="2"> 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">

    <font face="Verdana" Size="2" COLOR="WHITE"><strong>ADDITIONAL COMMENTS &
    INFORMATION</strong></td></tr>

    <tr><td colspan="3"><font face="Verdana" Size="2"> Additional Comments

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

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

    </td></tr>

    <tr><td colspan="3"><font face="Verdana" Size="2">How can the above incident
    be prevented from happening again?

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

    <tr><td><font face="Verdana" Size="2"><br> 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>

    </td><td> <font face="Verdana" Size="2">Title <asp:textbox id="Title"
    valign="top" runat=server columns="40"/>


    </td><td><br>

    <font face="Verdana" Size="2">Date<br><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="btnSendMail_OnClick"
    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>
    dancer, Jun 27, 2007
    #1
    1. Advertising

  2. Hi there,

    To get the value entered by the user in a textbox you need to use Text
    property:

    "whateever" & dateOfAccident.Text & "whtever " & userName.Text &
    "blablabla<h2>"

    In addtion you do a lot of string concatenation and usage of StringBuilder
    class would be much more efficient (a small hint)

    hope this helps
    --
    Milosz


    "dancer" wrote:

    > I get this message saying line 75 is the problem.
    > But when I take out " & StateOfInjury & " from a line much further down,
    > the error goes away.
    >
    > Anybody know why?
    >
    >
    > Compiler Error Message: BC30452: Operator '&' is not defined for types
    > 'String' and 'System.Web.UI.WebControls.TextBox'.
    >
    > Source Error:
    >
    >
    >
    > Line 73:
    > Line 74:
    > Line 75: myMessage.Body = "<h2>Wheeler's Express Accident Report
    > Form</h2>" & vbCrLf _
    > Line 76: & " <p>" & vbCrLf _
    > Line 77: & "<html><body> <table width = ""750"" bgcolor=""#E9EDF4""
    > height=""25"" border=""1"" cellpadding=""3"" fontface=""Verdana""
    > Size=""2"">" & vbCrLf _
    >
    >
    >
    > <%@ Page Language="VB" Debug = "true" ValidateRequest="false" %>
    >
    > <%@ Import Namespace="System.Web.Mail" %>
    >
    > <script language="VB" runat="server">
    >
    > Sub btnSendMail_OnClick(Source As Object, E As EventArgs)
    >
    >
    > Dim TheEmpName As String = EmpName.text
    >
    > Dim TheHomeNumber As String = HomeNumber.text
    >
    > Dim TheDate 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 TheSSN As String = SSN.text
    >
    > Dim TheSex As String = Sex.SelectedItem.Text
    >
    > Dim TheJob As string = Job.Text
    >
    > Dim ThePart As String = Part.Text
    >
    >
    > Dim TheNature As String = nature.Text
    >
    > Dim TheNatureNew As String
    >
    > Dim TheDescription As String = Description.Text
    >
    > Dim TheInitial As String = Initial.SelectedItem.Text
    >
    > Dim TheProvider As String = Provider.SelectedItem.Text
    >
    > Dim TheAmitted As String = Admitted.SelectedItem.Text
    >
    > Dim TheMed_provider as string = Med_Provider.Text
    >
    > Dim TheOccur As String = Occur.SelectedItem.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 TheComments as String = Comments.Text
    >
    > Dim TheSubmitter As String = Submitter.Text
    >
    > Dim TheToday As String = Today.Text
    >
    > Dim myMessage As New MailMessage
    >
    > Dim myMail As SmtpMail
    >
    > Dim strEmail As String
    >
    > Dim UserMessage As String
    >
    >
    > If TheTimeAm <> "" Then
    >
    > TheTime = TheTimeAm & " AM"
    >
    > ElseIf TheTimePM <> "" Then
    >
    > TheTime = TheTimePM & " PM"
    >
    > Else TheTime = ""
    >
    > End If
    >
    >
    > If Page.IsValid() Then
    >
    >
    > Response.Write ("<font color=""red"">FORM HAS BEEN SENT TO
    > RIVERSIDE</font>")
    >
    >
    > myMessage.From = ""
    >
    > MyMessage.To = ""
    >
    > myMessage.Subject = "Accident Form from "
    >
    > ' This is the magic line. Without this the message will just appear
    >
    > ' as plain HTML and won't be rendered by the recipient's email client.
    >
    > ' It'd be as if they did "View Source" on a web page.
    >
    > MyMessage.BodyFormat = MailFormat.Html
    >
    >
    >
    > myMessage.Body = "<h2>Wheeler's Express Accident Report Form</h2>" & vbCrLf
    > _
    >
    > & " <p>" & vbCrLf _
    >
    > & "<html><body> <table width = ""750"" bgcolor=""#E9EDF4"" height=""25""
    > border=""1"" cellpadding=""3"" fontface=""Verdana"" Size=""2"">" & vbCrLf _
    >
    > & "<td colspan=""3"" bgcolor=""maroon"" align=""center""> <font
    > face=""Verdana"" Size=""2"" color=""white""><b> BASIC CLAIM
    > FACTS</b></td></tr>" & vbCrLf _
    >
    > & "<tr><td> Employee's Name: "& TheEmpName & "</td>" & vbCrLf _
    >
    > & "<td> Home Phone Number: "& TheHomeNumber & "</td></tr>" & vbCrLf _
    >
    > & "<tr><td> Date of Injury: " & TheDate & "<br>" & "</td>" & vbCrLf _
    >
    > & "<td> Time of Injury: " & TheTime & "<br>" & "</td></tr>" & "</tr>" &
    > vbCrLf _
    >
    > & "<tr><td> Date Employer Notified: " & TheNotifyDate & "</td>" & vbCrLf _
    >
    > & "<td> Did Employee Die? " & Thedie & "</td><tr>" & vbCrLf _
    >
    > & "<tr><td> Has the Injured Employee Lost Days From Work?" & TheLostDays &
    > "</td></tr>" & vbCrLf _
    >
    > & "<tr><td> What State did Injury Occur? " & StateOfInjury & "</td></tr>" &
    > vbCrLf _
    >
    > & "<tr> <td> Person submitting this form: " & "<br>" & theSubmitter &
    > "</td>" & vbCrLf _
    >
    > & "<td> Date: " & Thetoday & vbCrLf _
    >
    > & "</td><tr></table> </body>"
    >
    > ' Doesn't have to be local... just enter your
    >
    > ' SMTP server's name or ip address!
    >
    > ' myMail.SmtpServer = "smtp.wheelers.com"
    >
    > 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><font face="Verdana">Wheeler's Express Accident Report
    > Form</font></center></h3>
    >
    >
    >
    > <form method="post" id="frmEmail" runat="server">
    >
    >
    >
    >
    > <%--____________________________________________________________________________--%>
    >
    > <%--Section 1--%>
    >
    > <tr><td colspan="3" bgcolor="maroon" align="center"> <font face="Verdana"
    > Size="2" color="white"><b> BASIC CLAIM FACTS</b></td></tr>
    >
    >
    > <td bgcolor="#E9EDF4" colspan ="2">
    >
    >
    > <font face="Verdana" Size="2">
    >
    > Employee's Name: <asp:textbox id="EmpName" runat=server columns="45"/>
    >
    > <asp:RequiredFieldValidator id="RequiredFiedlValidator1" runat="server"
    > Text="The Employee name field is required."
    >
    > ControlToValidate="EmpName"></asp:RequiredFieldValidator>
    >
    > </td>
    >
    > <%---------------------------------------------------------------------------%>
    >
    > <td align="right" valign="top" width="215">
    >
    >
    > <font face="Verdana" Size="2">Home Phone Number
    >
    > <asp:TextBox id=HomeNumber runat="server"/>
    >
    >
    > </td></tr>
    >
    > <%--____________________________________________________________________________--%>
    >
    > <%--ROW 2--%>
    >
    >
    > <tr><td colspan="1" valign="center">
    >
    > <font face="Verdana" Size="2">Date of Injury </font>
    >
    > <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"><font face="Verdana" Size="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>
    >
    >
    =?Utf-8?B?TWlsb3N6IFNrYWxlY2tpIFtNQ0FEXQ==?=, Jun 28, 2007
    #2
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Yan
    Replies:
    0
    Views:
    1,132
  2. Nuve
    Replies:
    0
    Views:
    1,975
  3. Kim Nørby Andersen
    Replies:
    5
    Views:
    1,342
    Jim Cheshire [MSFT]
    Dec 19, 2003
  4. Jack Wright
    Replies:
    5
    Views:
    623
    Shiv Kumar
    Jan 19, 2004
  5. Ram
    Replies:
    0
    Views:
    2,831
Loading...

Share This Page