By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
429,480 Members | 763 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 429,480 IT Pros & Developers. It's quick & easy.

Compiler Error Message

P: n/a
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 = "xx*******@xxxxxxx.com"
MyMessage.To = "xx*******@xxxxxxxx.com"

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 _

& "<tdLocation where accident occurred: " & "<br>" & Thelocation & "<br>"
& "</td>" & vbCrLf _

& "<tdEmployer's Premises? " & premises & "<br>" & vbCrLf _

& " Job Site? " & Jobsite & "<br>" & "</td>" & vbCrLf _

& "<tdDate of accident: " & TheDate & "<br>" & "</td>" & vbCrLf _

& "<tr><tdWho was injured: " & Thewho & "<br>" & "</td>" & vbCrLf _

& "<tdEmployee or non-employee?" & "<br>" & empornon & "<br>" & "</td>" &
vbCrLf _

& "<tdTime of accident: " & TheTime & "<br>" & "</td>" & "</tr>" & vbCrLf
_

& "<tdDate of Hire: " & TheHireDate & "<br>" & "</td>" & vbCrLf _

& "<tdJob Title: " & TheJobTitle & "<br>" & "</td>" & vbCrLf _

& "<tdHow 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<tdDid employee promptly report the injury? " & TheReport &
"</td>" & vbCrLf _

& "<tdIs there modified duty available? " & TheModifiedduty & "</td></tr>"
& vbCrLf _

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

& "<tdDate: " & 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 />

<brp.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:CheckBoxListOther <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>
Jun 8 '07 #1
Share this Question
Share on Google+
3 Replies


P: n/a

you must be select an item in the CheckBoxList
for example : Dim TheIndicate As String = Indicate(1).Text
dancer wrote:
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 = "xx*******@xxxxxxx.com"
MyMessage.To = "xx*******@xxxxxxxx.com"

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 _

& "<tdLocation where accident occurred: " & "<br>" & Thelocation & "<br>"
& "</td>" & vbCrLf _

& "<tdEmployer's Premises? " & premises & "<br>" & vbCrLf _

& " Job Site? " & Jobsite & "<br>" & "</td>" & vbCrLf _

& "<tdDate of accident: " & TheDate & "<br>" & "</td>" & vbCrLf _

& "<tr><tdWho was injured: " & Thewho & "<br>" & "</td>" & vbCrLf _

& "<tdEmployee or non-employee?" & "<br>" & empornon & "<br>" & "</td>" &
vbCrLf _

& "<tdTime of accident: " & TheTime & "<br>" & "</td>" & "</tr>" & vbCrLf
_

& "<tdDate of Hire: " & TheHireDate & "<br>" & "</td>" & vbCrLf _

& "<tdJob Title: " & TheJobTitle & "<br>" & "</td>" & vbCrLf _

& "<tdHow 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<tdDid employee promptly report the injury? " & TheReport &
"</td>" & vbCrLf _

& "<tdIs there modified duty available? " & TheModifiedduty & "</td></tr>"
& vbCrLf _

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

& "<tdDate: " & 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 />

<brp.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:CheckBoxListOther <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>

Jun 9 '07 #2

P: n/a
So then would I have to reference EACH item in the checkbox list?
Indicate(2).Text
Indicate(3).Text

Would the variable have to say TheIndicate1, TheIndicate2, TheIndicate3,
etc.?

Would my IF THEN statement be correct after that?
"ilker" <me******@hotmail.comwrote in message
news:%2****************@TK2MSFTNGP05.phx.gbl...
>
you must be select an item in the CheckBoxList
for example : Dim TheIndicate As String = Indicate(1).Text
dancer wrote:
>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\framewor k\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 = "xx*******@xxxxxxx.com"
MyMessage.To = "xx*******@xxxxxxxx.com"

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
_

& "<tdLocation where accident occurred: " & "<br>" & Thelocation &
"<br>" & "</td>" & vbCrLf _

& "<tdEmployer's Premises? " & premises & "<br>" & vbCrLf _

& " Job Site? " & Jobsite & "<br>" & "</td>" & vbCrLf _

& "<tdDate of accident: " & TheDate & "<br>" & "</td>" & vbCrLf _

& "<tr><tdWho was injured: " & Thewho & "<br>" & "</td>" & vbCrLf _

& "<tdEmployee or non-employee?" & "<br>" & empornon & "<br>" & "</td>"
& vbCrLf _

& "<tdTime of accident: " & TheTime & "<br>" & "</td>" & "</tr>" &
vbCrLf _

& "<tdDate of Hire: " & TheHireDate & "<br>" & "</td>" & vbCrLf _

& "<tdJob Title: " & TheJobTitle & "<br>" & "</td>" & vbCrLf _

& "<tdHow 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<tdDid employee promptly report the injury? " & TheReport &
"</td>" & vbCrLf _

& "<tdIs there modified duty available? " & TheModifiedduty &
"</td></tr>" & vbCrLf _

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

& "<tdDate: " & 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 />

<brp.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:CheckBoxListOther <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>
Jun 11 '07 #3

P: n/a
I changed the Dim statement as suggested, then received this message:

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: BC30367: Class
'System.Web.UI.WebControls.CheckBoxList' cannot be indexed because it has no
default property.

Source Error:
Line 28: Dim TheNature As String = nature.Text
Line 29: Dim TheNatureNew As String
Line 30: Dim TheIndicate As String = Indicate(1).Text
Line 31: Dim TheAction As String = action.Text
Line 32: Dim TheActionNew As String

"ilker" <me******@hotmail.comwrote in message
news:%2****************@TK2MSFTNGP05.phx.gbl...
>
you must be select an item in the CheckBoxList
for example : Dim TheIndicate As String = Indicate(1).Text
dancer wrote:
>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\framewor k\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 = "xx*******@xxxxxxx.com"
MyMessage.To = "xx*******@xxxxxxxx.com"

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
_

& "<tdLocation where accident occurred: " & "<br>" & Thelocation &
"<br>" & "</td>" & vbCrLf _

& "<tdEmployer's Premises? " & premises & "<br>" & vbCrLf _

& " Job Site? " & Jobsite & "<br>" & "</td>" & vbCrLf _

& "<tdDate of accident: " & TheDate & "<br>" & "</td>" & vbCrLf _

& "<tr><tdWho was injured: " & Thewho & "<br>" & "</td>" & vbCrLf _

& "<tdEmployee or non-employee?" & "<br>" & empornon & "<br>" & "</td>"
& vbCrLf _

& "<tdTime of accident: " & TheTime & "<br>" & "</td>" & "</tr>" &
vbCrLf _

& "<tdDate of Hire: " & TheHireDate & "<br>" & "</td>" & vbCrLf _

& "<tdJob Title: " & TheJobTitle & "<br>" & "</td>" & vbCrLf _

& "<tdHow 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<tdDid employee promptly report the injury? " & TheReport &
"</td>" & vbCrLf _

& "<tdIs there modified duty available? " & TheModifiedduty &
"</td></tr>" & vbCrLf _

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

& "<tdDate: " & 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 />

<brp.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:CheckBoxListOther <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>
Jun 11 '07 #4

This discussion thread is closed

Replies have been disabled for this discussion.