D
dancer
Using Framework 1.1 and Asp.Net
Does the Asp control Validation Summary work in 1.1?
Does the Asp control Validation Summary work in 1.1?
Install the app
How to install the app on iOS
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
M
Mark Rae
Using Framework 1.1 and Asp.Net
Does the Asp control Validation Summary work in 1.1?
Yes:
http://msdn2.microsoft.com/en-us/library/dd5c6s6h(vs.71).aspx
D
dancer
Then what am I missing in this code?
It gives me the text, but not the fields that are missing.
-------------------------------------------
<%@ Page Language="VB" Debug = "true" %>
<%@ Import Namespace="System.Web.Mail" %>
<script language="VB" runat="server">
Sub btnSendMail_OnClick(Source As Object, E As EventArgs)
Dim TheLocation As String = Location.Text
Dim TheDate As String = DateofAccident.Text
Dim TheWho As String = Who.Text
Dim Empornon As String
Dim TheCheckemp As String = checkemp.Text
Dim TheChecknon As String = Checknon.Text
Dim TheCheckpremisesyes As String = checkpremisesyes.Text
Dim TheCheckpremisesno As String = Checkpremisesno.Text
Dim Premises As String
Dim TheCheckJobsiteYes As String = checkjobsiteyes.text
Dim ThecheckJobsiteNo As String = checkjobsiteno.text
Dim Jobsite As String
Dim TheTimeAM As String = am.Text
Dim TheTimePM As String = pm.Text
Dim TheTime As String
Dim TheHireDate As String = Hiredate.Text
Dim TheJobTitle As String = occupation.Text
Dim Tenure As String = lengthofjob.Text
Dim TheOperation As String = operation.Text
Dim TheOperationNew As String
Dim TheHow As String = how.text
Dim TheHowNew As String
Dim TheNature As String = nature.Text
Dim TheNatureNew As String
Dim TheIndicate As String
Dim TheAction As String = action.Text
Dim TheActionNew As String
Dim Training As String = EmpTrain.SelectedItem.Text
Dim TheCaution as string=EmpCaution.SelectedItem.Text
Dim TheReport as String = EmpReport.SelectedItem.Text
Dim TheModifiedDuty As String = ModifiedDuty.SelectedItem.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
Dim TheGetOther As String = GetOther.Text
If Checkemp.Checked AndAlso Checknon.checked Then
Empornon = "Both"
ElseIf Checkemp.Checked Then
Response.Write(Checkemp.Checked)
Empornon = "Employee"
ElseIf Checknon.checked Then
Response.write(Checknon.Checked)
empornon= "Non-Employee"
Else Empornon = ""
End If
If Empornon = "" Then
Response.Write("<font color=""red"">ERROR: Choose Employee or
Non-Employee</font>")
Exit Sub
End If
If Checkpremisesyes.Checked Then
Premises = "Yes"
ElseIf Checkpremisesno.Checked Then
Premises = "No"
Else Premises = ""
End If
If CheckJobSiteYes.Checked Then
Jobsite = "Yes"
ElseIf CheckJobsiteNo.checked Then
Jobsite = "No"
Else Jobsite = ""
End If
If TheTimeAm <> "" Then
TheTime = TheTimeAm & " AM"
ElseIf TheTimePM <> "" Then
TheTime = TheTimePM & " PM"
Else TheTime = ""
End If
TheActionNew = TheAction.Replace(vbCrLf,"<br />")
TheNatureNew = TheNature.Replace(vbCrLf,"<br />")
TheHowNew = TheHow.Replace(vbCrLf,"<br />")
TheOperationNew = TheOperation.Replace(vbCrLf,"<br />")
Dim s As String
Dim i As Int32
For i = 0 to Indicate.Items.Count-1
If Indicate.Items(i).Selected Then
s= s & Indicate.Items(i).Text & "<br>"
End If
Next
If Page.IsValid() Then
'strEmail = txtEmail.Text
'Location = Location.Text
myMessage.From = "(e-mail address removed)"
MyMessage.To = "(e-mail address removed)"
myMessage.Subject = "Accident Form (HTML)"
' 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 Accident Investigation Form</h2>" & vbCrLf _
& " <p>" & vbCrLf _
& "<html><body> <table width = ""750"" bgcolor=""#E9EDF4"" height=""25""
border=""1"" cellpadding=""3"" fontface=""Verdana"" Size=""2"">" & vbCrLf _
& "<td> Location where accident occurred: " & "<br>" & Thelocation & "<br>"
& "</td>" & vbCrLf _
& "<td> Employer's Premises? " & premises & "<br>" & vbCrLf _
& " Job Site? " & Jobsite & "<br>" & "</td>" & vbCrLf _
& "<td> Date of accident: " & TheDate & "<br>" & "</td>" & vbCrLf _
& "<tr><td> Who was injured: " & Thewho & "<br>" & "</td>" & vbCrLf _
& "<td> Employee or non-employee?" & "<br>" & empornon & "<br>" & "</td>" &
vbCrLf _
& "<td> Time of accident: " & TheTime & "<br>" & "</td>" & "</tr>" & vbCrLf
_
& "<td> Date of Hire: " & TheHireDate & "<br>" & "</td>" & vbCrLf _
& "<td> Job Title: " & TheJobTitle & "<br>" & "</td>" & vbCrLf _
& "<td> How long has employee worked at job where injury occurred? " &
Tenure & "<br>" & "</td>" & "</tr>" & vbCrLf _
& "<tr> <td colspan=""3""> What was employee doing when injury occurred? " &
TheOperation & "<br>" & "</td></tr>" & vbCrLf _
& "<tr> <td colspan=""3""> How did the injury occur? " & TheHowNew & "<br>"
& "</td></tr>" & vbCrLf _
& "<tr> <td colspan=""3""> Nature and extent injury and property damaged: "
& TheNatureNew & "<br>" & "</td></tr>" & vbCrLf _
& "<tr> <td colspan=""3""> PLEASE INDICATE ALL WHICH CONTRIBUTED TO THE
INJURY: " & "<BR>" & S & "</TD></TR>" & vbCrLf _
& "<tr> <td colspan=""3""> Supervisor's corrective action to ensure this
type of accident does not recur: " & TheActionNew & "<br>" & vbCrLf _
& "<tr> <td colspan=""3""> Was employee trained in the appropriate use of
Personal Protective Equipment/Proper safety procedures? " & Training &
vbCrLf _
& "<br>" & "</td></tr>" & vbCrLf _
& "<tr><td colspan=""3""> Was employee cautioned for failure to use Personal
Protective Equipment/Proper safety procedures? " & TheCaution &"</tr></td>"
& vbCrLf _
& "<tr> <td> Did employee promptly report the injury? " & TheReport &
"</td>" & vbCrLf _
& "<td> Is there modified duty available? " & TheModifiedduty & "</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.xxxxxxxx.com"
myMail.SmtpServer = ""
myMail.Send(myMessage)
frmEmail.Visible = False
UserMessage = "Has Been Sent."
'lblUserMessage.Text = "Place of accident " & Thelocation
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 Accident Investigation
Form</font></center></h3>
<form method="post" id="frmEmail" runat="server">
<%--____________________________________________________________________________--%>
<%--ROW 1--%>
<td width="245" valign="top">
<font face="Verdana" Size="2">
Location where accident occurred: <asp:textbox id="Location" runat=server
columns="25"/>
<asp:RequiredFieldValidator id="RequiredFiedlValidator1" runat="server"
Text="The location field is required."
ControlToValidate="Location"></asp:RequiredFieldValidator>
</td>
<td align="right" valign="top" width="225">
<font face="Verdana" Size="2">Employer's Premises
<asp:CheckBox id=Checkpremisesyes Text="yes" runat="server" />
<asp:CheckBox id=Checkpremisesno Text="no" runat="server" />
<br>
Job site
<asp:CheckBox id=Checkjobsiteyes Text="yes" runat="server" />
<asp:CheckBox id=Checkjobsiteno Text="no" runat="server" />
</td>
<td>
<font face="Verdana" Size="2">Date of accident</font><br>
<asp:textbox id="DateofAccident" runat=server Width="100"/></asp:textbox>
<asp:RequiredFieldValidator id="RequiredFieldValidator2" runat="server"
Text="The Date field is required" ControlToValidate="Dateofaccident">
</asp:RequiredFieldValidator>
</td>
<%--____________________________________________________________________________--%>
<%--ROW 2--%>
<tr> <td>
<font face="Verdana" Size="2">Who was injured?</font><br>
<asp:textbox id="Who" runat=server columns="25"/>
<asp:RequiredFieldValidator id="RequiredFiedlValidator3" runat="server"
Text="You must answer who was injured."
ControlToValidate="Who"></asp:RequiredFieldValidator>
</td>
<td align= "left">
<font face="Verdana" Size="2">Employee <asp:CheckBox id=Checkemp
runat="server" />
<br>
Non-employee <asp:CheckBox id="Checknon" runat="server" />
</td>
<td align="right"><font face="Verdana" Size="2">
Time of accident a.m. <asp:textbox columns="6" id="am" runat=server />
<br> p.m. <asp:textbox id="pm" runat=server columns="6"/>
</TD>
<%--____________________________________________________________________________--%>
<%--ROW 3--%>
<tr>
<td>
<font face="Verdana" Size="2">Date of Hire <br> <asp:textbox id="Hiredate"
runat=server/>
</td>
<td>
<font face="Verdana" Size="2">Job Title or Occupation <br><asp:textbox
id="occupation" runat=server columns="25"/>
</td>
<td> <font face="Verdana" Size="2">How long has employee worked at job where
injury occurred?<br><asp:textbox id="lengthofjob" runat=server/>
</td>
</Table>
<%--____________________________________________________________________________--%>
<%--Row 4--%>
<table width="750" bgcolor="#E9EDF4" table border="1" cellpadding="3">
<tr>
<td>
<p>
<font face="Verdana" Size="2">What was employee doing when injury occurred?
What machine or tool was being used? What type of operation?<br>
<asp:textbox TextMode= "Multiline" Rows= "5" columns= "80"
id="operation" runat=server width="730" height="40"/>
<asp:RequiredFieldValidator id="RequiredFieldValidatorDoing" runat="server"
Text="You must answer this question" ControlToValidate="operation">
</asp:RequiredFieldValidator>
</td>
</tr>
<%--____________________________________________________________________________--%>
<%--Row 5--%>
<td> <font face="Verdana" Size="2">How did injury occur? List all objects
and substances involved.<br>
<asp:textbox TextMode="MultiLine" Rows="5" columns= "80" id="How"
runat=server/>
<asp:RequiredFieldValidator id="RequiredFieldValidatorObjects"
runat="server"
Text="You must answer this question" ControlToValidate="How">
</asp:RequiredFieldValidator>
</td>
</tr>
<%--____________________________________________________________________________--%>
<%--Row 6--%>
<tr>
<td><font face="Verdana" Size="2"> Nature and extent of injury and property
damaged (be specific)
<asp:textbox TextMode="MultiLine" Rows="2" columns= "80" id="nature"
runat=server/>
<asp:RequiredFieldValidator id="RequiredFieldValidatorNature" runat="server"
Text="You must answer this question" ControlToValidate="nature">
</asp:RequiredFieldValidator>
</td>
</tr>
<%--____________________________________________________________________________--%>
<%--Row 7--%>
<tr>
<td><font face="Verdana" Size="2" type = "strong"> PLEASE INDICATE ALL OF
THE FOLLOWING WHICH CONTRIBUTED TO THE INJURY:
<asp:CheckBoxList id=Indicate runat="server">
<asp:ListItem style> <font face="Verdana" Size="2">Improper
instruction</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Lack of training or
skill</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Operating without
authority</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Horseplay</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Physical or mental
impairment</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Failure to
secure</asp:ListItem>
<asp:ListItem style> <font face="Verdana" Size="2">Failure to
lockout</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Unsafe position</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Improper dress</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Improper protective
equipment</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Unsafe equipment</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Poor
housekeeping</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Unsafe arrangement or
process</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Poor ventilation</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Improper
guarding</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Improper
maintenance</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Inoperative safety
device</asp:ListItem>
</asp:CheckBoxList> Other <asp:TextBox columns = "50" id="GetOther"
runat=server/>
</td>
</tr>
<%--____________________________________________________________________________--%>
<%--Row 8--%>
<tr>
<td colspan= "3"><font face="Verdana" Size="2"> Supervisor's corrective
action to ensure this type of accident does not recur:
<asp:TextBox TextMode="MultiLine" Rows="5" columns= "80" id=action
runat="server"/>
<br>
<asp:RequiredFieldValidator id="RequiredFieldValidatorAction" runat="server"
Text="You must answer this question" ControlToValidate="action">
</asp:RequiredFieldValidator>
</tr>
</td>
<%--____________________________________________________________________________--%>
<%--Row 9--%>
<tr>
<td> <font face="Verdana" Size="2">Was employee trained in the appropriate
use of Personal Protective Equipment/Proper safety procedures?
<br>
<asp:RadioButtonList font-name="verdana" font-size="10 pt" id=EmpTrain
runat="server">
<asp:ListItem>Yes</asp:ListItem>
<asp:ListItem>No</asp:ListItem>
</asp:RadioButtonList>
<asp:RequiredFieldValidator id="RequiredFieldValidator4" runat="server"
Text="You need to select yes or no"
ControltoValidate="EmpTrain" InitialValue=""></asp:RequiredFieldValidator>
</td>
</tr>
<%--____________________________________________________________________________--%>
<%--Row 10--%>
<tr>
<td> <font face="Verdana" Size="2">
Was employee cautioned for failure to use Personal Protective
Equipment/Proper safety procedures? <br>
<asp:RadioButtonList font-name="verdana" font-size="10 pt" id=EmpCaution
runat="server">
<asp:ListItem>Yes</asp:ListItem>
<asp:ListItem>No</asp:ListItem>
</asp:RadioButtonList>
<asp:RequiredFieldValidator id="RequiredFieldValidatorCaution"
runat="server"
Text="You need to select yes or no" ControlToValidate="EmpCaution">
</asp:RequiredFieldValidator>
</td>
</tr>
<%--____________________________________________________________________________--%>
<%--Row 11--%>
<tr>
<td> <font face="Verdana" Size="2">
Did employee promptly report the injury?
<asp:RadioButtonList font-name="verdana" font-size="10 pt" id=EmpReport
runat="server">
<asp:ListItem>Yes</asp:ListItem>
<asp:ListItem>No</asp:ListItem>
</asp:RadioButtonList>
<asp:RequiredFieldValidator id="RequiredFieldValidatorReport" runat="server"
Text="You need to select yes or no" ControlToValidate="EmpReport">
</asp:RequiredFieldValidator>
</td>
</tr>
<%--____________________________________________________________________________--%>
<%--Row 12--%>
<tr>
<td> <font face="Verdana" Size="2">Is there modified duty available?
<asp:RadioButtonList font-name="verdana" font-size="10 pt" id=ModifiedDuty
runat="server">
<asp:ListItem>Yes</asp:ListItem>
<asp:ListItem>No</asp:ListItem>
</asp:RadioButtonList>
<asp:RequiredFieldValidator id="RequiredFieldValidatorModified"
runat="server"
Text="You need to select yes or no" ControlToValidate="ModifiedDuty">
</asp:RequiredFieldValidator>
</td>
</tr>
<%--____________________________________________________________________________--%>
<%--Row 12--%>
</table>
<table width="750" bgcolor="#E9EDF4" table border="1" cellpadding="3">
<td width="400"><font face="Verdana" Size="2"> Name of person submitting
this form:
<asp:textbox id="Submitter" 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">Today's 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>
</td>
</tr>
<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" HeaderText="You must enter a value in the
following fields:" Font-Name="verdana" Font-Size="12" /> </td>
</form>
</body>
</html>
It gives me the text, but not the fields that are missing.
-------------------------------------------
<%@ Page Language="VB" Debug = "true" %>
<%@ Import Namespace="System.Web.Mail" %>
<script language="VB" runat="server">
Sub btnSendMail_OnClick(Source As Object, E As EventArgs)
Dim TheLocation As String = Location.Text
Dim TheDate As String = DateofAccident.Text
Dim TheWho As String = Who.Text
Dim Empornon As String
Dim TheCheckemp As String = checkemp.Text
Dim TheChecknon As String = Checknon.Text
Dim TheCheckpremisesyes As String = checkpremisesyes.Text
Dim TheCheckpremisesno As String = Checkpremisesno.Text
Dim Premises As String
Dim TheCheckJobsiteYes As String = checkjobsiteyes.text
Dim ThecheckJobsiteNo As String = checkjobsiteno.text
Dim Jobsite As String
Dim TheTimeAM As String = am.Text
Dim TheTimePM As String = pm.Text
Dim TheTime As String
Dim TheHireDate As String = Hiredate.Text
Dim TheJobTitle As String = occupation.Text
Dim Tenure As String = lengthofjob.Text
Dim TheOperation As String = operation.Text
Dim TheOperationNew As String
Dim TheHow As String = how.text
Dim TheHowNew As String
Dim TheNature As String = nature.Text
Dim TheNatureNew As String
Dim TheIndicate As String
Dim TheAction As String = action.Text
Dim TheActionNew As String
Dim Training As String = EmpTrain.SelectedItem.Text
Dim TheCaution as string=EmpCaution.SelectedItem.Text
Dim TheReport as String = EmpReport.SelectedItem.Text
Dim TheModifiedDuty As String = ModifiedDuty.SelectedItem.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
Dim TheGetOther As String = GetOther.Text
If Checkemp.Checked AndAlso Checknon.checked Then
Empornon = "Both"
ElseIf Checkemp.Checked Then
Response.Write(Checkemp.Checked)
Empornon = "Employee"
ElseIf Checknon.checked Then
Response.write(Checknon.Checked)
empornon= "Non-Employee"
Else Empornon = ""
End If
If Empornon = "" Then
Response.Write("<font color=""red"">ERROR: Choose Employee or
Non-Employee</font>")
Exit Sub
End If
If Checkpremisesyes.Checked Then
Premises = "Yes"
ElseIf Checkpremisesno.Checked Then
Premises = "No"
Else Premises = ""
End If
If CheckJobSiteYes.Checked Then
Jobsite = "Yes"
ElseIf CheckJobsiteNo.checked Then
Jobsite = "No"
Else Jobsite = ""
End If
If TheTimeAm <> "" Then
TheTime = TheTimeAm & " AM"
ElseIf TheTimePM <> "" Then
TheTime = TheTimePM & " PM"
Else TheTime = ""
End If
TheActionNew = TheAction.Replace(vbCrLf,"<br />")
TheNatureNew = TheNature.Replace(vbCrLf,"<br />")
TheHowNew = TheHow.Replace(vbCrLf,"<br />")
TheOperationNew = TheOperation.Replace(vbCrLf,"<br />")
Dim s As String
Dim i As Int32
For i = 0 to Indicate.Items.Count-1
If Indicate.Items(i).Selected Then
s= s & Indicate.Items(i).Text & "<br>"
End If
Next
If Page.IsValid() Then
'strEmail = txtEmail.Text
'Location = Location.Text
myMessage.From = "(e-mail address removed)"
MyMessage.To = "(e-mail address removed)"
myMessage.Subject = "Accident Form (HTML)"
' 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 Accident Investigation Form</h2>" & vbCrLf _
& " <p>" & vbCrLf _
& "<html><body> <table width = ""750"" bgcolor=""#E9EDF4"" height=""25""
border=""1"" cellpadding=""3"" fontface=""Verdana"" Size=""2"">" & vbCrLf _
& "<td> Location where accident occurred: " & "<br>" & Thelocation & "<br>"
& "</td>" & vbCrLf _
& "<td> Employer's Premises? " & premises & "<br>" & vbCrLf _
& " Job Site? " & Jobsite & "<br>" & "</td>" & vbCrLf _
& "<td> Date of accident: " & TheDate & "<br>" & "</td>" & vbCrLf _
& "<tr><td> Who was injured: " & Thewho & "<br>" & "</td>" & vbCrLf _
& "<td> Employee or non-employee?" & "<br>" & empornon & "<br>" & "</td>" &
vbCrLf _
& "<td> Time of accident: " & TheTime & "<br>" & "</td>" & "</tr>" & vbCrLf
_
& "<td> Date of Hire: " & TheHireDate & "<br>" & "</td>" & vbCrLf _
& "<td> Job Title: " & TheJobTitle & "<br>" & "</td>" & vbCrLf _
& "<td> How long has employee worked at job where injury occurred? " &
Tenure & "<br>" & "</td>" & "</tr>" & vbCrLf _
& "<tr> <td colspan=""3""> What was employee doing when injury occurred? " &
TheOperation & "<br>" & "</td></tr>" & vbCrLf _
& "<tr> <td colspan=""3""> How did the injury occur? " & TheHowNew & "<br>"
& "</td></tr>" & vbCrLf _
& "<tr> <td colspan=""3""> Nature and extent injury and property damaged: "
& TheNatureNew & "<br>" & "</td></tr>" & vbCrLf _
& "<tr> <td colspan=""3""> PLEASE INDICATE ALL WHICH CONTRIBUTED TO THE
INJURY: " & "<BR>" & S & "</TD></TR>" & vbCrLf _
& "<tr> <td colspan=""3""> Supervisor's corrective action to ensure this
type of accident does not recur: " & TheActionNew & "<br>" & vbCrLf _
& "<tr> <td colspan=""3""> Was employee trained in the appropriate use of
Personal Protective Equipment/Proper safety procedures? " & Training &
vbCrLf _
& "<br>" & "</td></tr>" & vbCrLf _
& "<tr><td colspan=""3""> Was employee cautioned for failure to use Personal
Protective Equipment/Proper safety procedures? " & TheCaution &"</tr></td>"
& vbCrLf _
& "<tr> <td> Did employee promptly report the injury? " & TheReport &
"</td>" & vbCrLf _
& "<td> Is there modified duty available? " & TheModifiedduty & "</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.xxxxxxxx.com"
myMail.SmtpServer = ""
myMail.Send(myMessage)
frmEmail.Visible = False
UserMessage = "Has Been Sent."
'lblUserMessage.Text = "Place of accident " & Thelocation
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 Accident Investigation
Form</font></center></h3>
<form method="post" id="frmEmail" runat="server">
<%--____________________________________________________________________________--%>
<%--ROW 1--%>
<td width="245" valign="top">
<font face="Verdana" Size="2">
Location where accident occurred: <asp:textbox id="Location" runat=server
columns="25"/>
<asp:RequiredFieldValidator id="RequiredFiedlValidator1" runat="server"
Text="The location field is required."
ControlToValidate="Location"></asp:RequiredFieldValidator>
</td>
<td align="right" valign="top" width="225">
<font face="Verdana" Size="2">Employer's Premises
<asp:CheckBox id=Checkpremisesyes Text="yes" runat="server" />
<asp:CheckBox id=Checkpremisesno Text="no" runat="server" />
<br>
Job site
<asp:CheckBox id=Checkjobsiteyes Text="yes" runat="server" />
<asp:CheckBox id=Checkjobsiteno Text="no" runat="server" />
</td>
<td>
<font face="Verdana" Size="2">Date of accident</font><br>
<asp:textbox id="DateofAccident" runat=server Width="100"/></asp:textbox>
<asp:RequiredFieldValidator id="RequiredFieldValidator2" runat="server"
Text="The Date field is required" ControlToValidate="Dateofaccident">
</asp:RequiredFieldValidator>
</td>
<%--____________________________________________________________________________--%>
<%--ROW 2--%>
<tr> <td>
<font face="Verdana" Size="2">Who was injured?</font><br>
<asp:textbox id="Who" runat=server columns="25"/>
<asp:RequiredFieldValidator id="RequiredFiedlValidator3" runat="server"
Text="You must answer who was injured."
ControlToValidate="Who"></asp:RequiredFieldValidator>
</td>
<td align= "left">
<font face="Verdana" Size="2">Employee <asp:CheckBox id=Checkemp
runat="server" />
<br>
Non-employee <asp:CheckBox id="Checknon" runat="server" />
</td>
<td align="right"><font face="Verdana" Size="2">
Time of accident a.m. <asp:textbox columns="6" id="am" runat=server />
<br> p.m. <asp:textbox id="pm" runat=server columns="6"/>
</TD>
<%--____________________________________________________________________________--%>
<%--ROW 3--%>
<tr>
<td>
<font face="Verdana" Size="2">Date of Hire <br> <asp:textbox id="Hiredate"
runat=server/>
</td>
<td>
<font face="Verdana" Size="2">Job Title or Occupation <br><asp:textbox
id="occupation" runat=server columns="25"/>
</td>
<td> <font face="Verdana" Size="2">How long has employee worked at job where
injury occurred?<br><asp:textbox id="lengthofjob" runat=server/>
</td>
</Table>
<%--____________________________________________________________________________--%>
<%--Row 4--%>
<table width="750" bgcolor="#E9EDF4" table border="1" cellpadding="3">
<tr>
<td>
<p>
<font face="Verdana" Size="2">What was employee doing when injury occurred?
What machine or tool was being used? What type of operation?<br>
<asp:textbox TextMode= "Multiline" Rows= "5" columns= "80"
id="operation" runat=server width="730" height="40"/>
<asp:RequiredFieldValidator id="RequiredFieldValidatorDoing" runat="server"
Text="You must answer this question" ControlToValidate="operation">
</asp:RequiredFieldValidator>
</td>
</tr>
<%--____________________________________________________________________________--%>
<%--Row 5--%>
<td> <font face="Verdana" Size="2">How did injury occur? List all objects
and substances involved.<br>
<asp:textbox TextMode="MultiLine" Rows="5" columns= "80" id="How"
runat=server/>
<asp:RequiredFieldValidator id="RequiredFieldValidatorObjects"
runat="server"
Text="You must answer this question" ControlToValidate="How">
</asp:RequiredFieldValidator>
</td>
</tr>
<%--____________________________________________________________________________--%>
<%--Row 6--%>
<tr>
<td><font face="Verdana" Size="2"> Nature and extent of injury and property
damaged (be specific)
<asp:textbox TextMode="MultiLine" Rows="2" columns= "80" id="nature"
runat=server/>
<asp:RequiredFieldValidator id="RequiredFieldValidatorNature" runat="server"
Text="You must answer this question" ControlToValidate="nature">
</asp:RequiredFieldValidator>
</td>
</tr>
<%--____________________________________________________________________________--%>
<%--Row 7--%>
<tr>
<td><font face="Verdana" Size="2" type = "strong"> PLEASE INDICATE ALL OF
THE FOLLOWING WHICH CONTRIBUTED TO THE INJURY:
<asp:CheckBoxList id=Indicate runat="server">
<asp:ListItem style> <font face="Verdana" Size="2">Improper
instruction</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Lack of training or
skill</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Operating without
authority</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Horseplay</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Physical or mental
impairment</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Failure to
secure</asp:ListItem>
<asp:ListItem style> <font face="Verdana" Size="2">Failure to
lockout</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Unsafe position</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Improper dress</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Improper protective
equipment</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Unsafe equipment</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Poor
housekeeping</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Unsafe arrangement or
process</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Poor ventilation</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Improper
guarding</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Improper
maintenance</asp:ListItem>
<asp:ListItem> <font face="Verdana" Size="2">Inoperative safety
device</asp:ListItem>
</asp:CheckBoxList> Other <asp:TextBox columns = "50" id="GetOther"
runat=server/>
</td>
</tr>
<%--____________________________________________________________________________--%>
<%--Row 8--%>
<tr>
<td colspan= "3"><font face="Verdana" Size="2"> Supervisor's corrective
action to ensure this type of accident does not recur:
<asp:TextBox TextMode="MultiLine" Rows="5" columns= "80" id=action
runat="server"/>
<br>
<asp:RequiredFieldValidator id="RequiredFieldValidatorAction" runat="server"
Text="You must answer this question" ControlToValidate="action">
</asp:RequiredFieldValidator>
</tr>
</td>
<%--____________________________________________________________________________--%>
<%--Row 9--%>
<tr>
<td> <font face="Verdana" Size="2">Was employee trained in the appropriate
use of Personal Protective Equipment/Proper safety procedures?
<br>
<asp:RadioButtonList font-name="verdana" font-size="10 pt" id=EmpTrain
runat="server">
<asp:ListItem>Yes</asp:ListItem>
<asp:ListItem>No</asp:ListItem>
</asp:RadioButtonList>
<asp:RequiredFieldValidator id="RequiredFieldValidator4" runat="server"
Text="You need to select yes or no"
ControltoValidate="EmpTrain" InitialValue=""></asp:RequiredFieldValidator>
</td>
</tr>
<%--____________________________________________________________________________--%>
<%--Row 10--%>
<tr>
<td> <font face="Verdana" Size="2">
Was employee cautioned for failure to use Personal Protective
Equipment/Proper safety procedures? <br>
<asp:RadioButtonList font-name="verdana" font-size="10 pt" id=EmpCaution
runat="server">
<asp:ListItem>Yes</asp:ListItem>
<asp:ListItem>No</asp:ListItem>
</asp:RadioButtonList>
<asp:RequiredFieldValidator id="RequiredFieldValidatorCaution"
runat="server"
Text="You need to select yes or no" ControlToValidate="EmpCaution">
</asp:RequiredFieldValidator>
</td>
</tr>
<%--____________________________________________________________________________--%>
<%--Row 11--%>
<tr>
<td> <font face="Verdana" Size="2">
Did employee promptly report the injury?
<asp:RadioButtonList font-name="verdana" font-size="10 pt" id=EmpReport
runat="server">
<asp:ListItem>Yes</asp:ListItem>
<asp:ListItem>No</asp:ListItem>
</asp:RadioButtonList>
<asp:RequiredFieldValidator id="RequiredFieldValidatorReport" runat="server"
Text="You need to select yes or no" ControlToValidate="EmpReport">
</asp:RequiredFieldValidator>
</td>
</tr>
<%--____________________________________________________________________________--%>
<%--Row 12--%>
<tr>
<td> <font face="Verdana" Size="2">Is there modified duty available?
<asp:RadioButtonList font-name="verdana" font-size="10 pt" id=ModifiedDuty
runat="server">
<asp:ListItem>Yes</asp:ListItem>
<asp:ListItem>No</asp:ListItem>
</asp:RadioButtonList>
<asp:RequiredFieldValidator id="RequiredFieldValidatorModified"
runat="server"
Text="You need to select yes or no" ControlToValidate="ModifiedDuty">
</asp:RequiredFieldValidator>
</td>
</tr>
<%--____________________________________________________________________________--%>
<%--Row 12--%>
</table>
<table width="750" bgcolor="#E9EDF4" table border="1" cellpadding="3">
<td width="400"><font face="Verdana" Size="2"> Name of person submitting
this form:
<asp:textbox id="Submitter" 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">Today's 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>
</td>
</tr>
<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" HeaderText="You must enter a value in the
following fields:" Font-Name="verdana" Font-Size="12" /> </td>
</form>
</body>
</html>
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.