D
dancer
I am using Framework 1.1.4322.
Who can tell me why I'm getting this error? My code follows
Compilation Error
Description: An error occurred during the compilation of a resource required
to service this request. Please review the following specific error details
and modify your source code appropriately.
Compiler Error Message: BC30456: 'Text' is not a member of
'System.Web.UI.WebControls.CheckBoxList'.
Source Error:
Line 28: Dim TheNature As String = nature.Text
Line 29: Dim TheNatureNew As String
Line 30: Dim TheIndicate As String = Indicate.Text
Line 31: Dim TheAction As String = action.Text
Line 32: Dim TheActionNew As String
C:\WINNT\system32> "c:\winnt\microsoft.net\framework\v1.1.4322
<%@ Page Language="VB" %>
<%@ 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 = Indicate.Text
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 Then
Empornon = "Employee"
ElseIf Checknon.checked Then
empornon= "Non-Employee"
Else Empornon = ""
Writeline(empornon)
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
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 = ""
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 Accident Investigation
Form</font></center></h3>
<form method="post" id="frmEmail" runat="server">
<%--asp:TextBox id="txtEmail" size="30" runat="server" /--%>
<%--asp:RegularExpressionValidator runat="server"
id="validEmailRegExp" ControlToValidate="txtEmail"
ValidationExpression="^[\w-]+(\.[\w-]+)*@(?:[\w-]+\.)+[a-zA-Z]{2,7}$"
errormessage="Please enter a valid email address."
Display="Dynamic" /--%>
<%--____________________________________________________________________________--%>
<%--ROW 1--%>
<td width="245" valign="top">
<font face="Verdana" Size="2">
Location where accident occurred: <asp:textbox id="Location" runat=server
columns="25"/>
</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"/>
</td>
<%--____________________________________________________________________________--%>
<%--ROW 2--%>
<tr> <td>
<font face="Verdana" Size="2">Who was injured?</font><br>
<asp:textbox id="Who" runat=server columns="25"/>
</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"/>
</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/>
</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/>
</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>
</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>
</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>
</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>
</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>
</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"/> </td>
<td> <font face="Verdana" Size="2">Today's Date: <asp:textbox id="Today"
runat=server columns="10"/>
</td>
</tr>
<tr>
<td>
<asp:Button id="btnSendMail" text="Submit" OnClick="btnSendMail_OnClick"
runat="server" />
</td>
</tr>
</form>
</body>
</html>
Who can tell me why I'm getting this error? My code follows
Compilation Error
Description: An error occurred during the compilation of a resource required
to service this request. Please review the following specific error details
and modify your source code appropriately.
Compiler Error Message: BC30456: 'Text' is not a member of
'System.Web.UI.WebControls.CheckBoxList'.
Source Error:
Line 28: Dim TheNature As String = nature.Text
Line 29: Dim TheNatureNew As String
Line 30: Dim TheIndicate As String = Indicate.Text
Line 31: Dim TheAction As String = action.Text
Line 32: Dim TheActionNew As String
C:\WINNT\system32> "c:\winnt\microsoft.net\framework\v1.1.4322
<%@ Page Language="VB" %>
<%@ 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 = Indicate.Text
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 Then
Empornon = "Employee"
ElseIf Checknon.checked Then
empornon= "Non-Employee"
Else Empornon = ""
Writeline(empornon)
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
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 = ""
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 Accident Investigation
Form</font></center></h3>
<form method="post" id="frmEmail" runat="server">
<%--asp:TextBox id="txtEmail" size="30" runat="server" /--%>
<%--asp:RegularExpressionValidator runat="server"
id="validEmailRegExp" ControlToValidate="txtEmail"
ValidationExpression="^[\w-]+(\.[\w-]+)*@(?:[\w-]+\.)+[a-zA-Z]{2,7}$"
errormessage="Please enter a valid email address."
Display="Dynamic" /--%>
<%--____________________________________________________________________________--%>
<%--ROW 1--%>
<td width="245" valign="top">
<font face="Verdana" Size="2">
Location where accident occurred: <asp:textbox id="Location" runat=server
columns="25"/>
</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"/>
</td>
<%--____________________________________________________________________________--%>
<%--ROW 2--%>
<tr> <td>
<font face="Verdana" Size="2">Who was injured?</font><br>
<asp:textbox id="Who" runat=server columns="25"/>
</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"/>
</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/>
</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/>
</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>
</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>
</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>
</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>
</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>
</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"/> </td>
<td> <font face="Verdana" Size="2">Today's Date: <asp:textbox id="Today"
runat=server columns="10"/>
</td>
</tr>
<tr>
<td>
<asp:Button id="btnSendMail" text="Submit" OnClick="btnSendMail_OnClick"
runat="server" />
</td>
</tr>
</form>
</body>
</html>