Compiler Error Message

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

dancer - 08 Jun 2007 22:13 GMT

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," ")

TheNatureNew = TheNature.Replace(vbCrLf," ")

TheHowNew = TheHow.Replace(vbCrLf," ")

TheOperationNew = TheOperation.Replace(vbCrLf," ")

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 & " "

End If

Next

If Page.IsValid() Then

myMessage.From = "xxxxxxxxt@xxxxxxx.com"

MyMessage.To = "xxxxxxxxx@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 _

& " " & vbCrLf _

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

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

& "<td> Employer's Premises? " & premises & " " & vbCrLf _

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

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

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

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

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

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

& "<td> Job Title: " & TheJobTitle & " " & "</td>" & vbCrLf _

& "<td> How long has employee worked at job where injury occurred? " &
Tenure & " " & "</td>" & "</tr>" & vbCrLf _

& "<tr> <td colspan=""3""> What was employee doing when injury occurred? " &
TheOperation & " " & "</td></tr>" & vbCrLf _

& "<tr> <td colspan=""3""> How did the injury occur? " & TheHowNew & " "
& "</td></tr>" & vbCrLf _

& "<tr> <td colspan=""3""> Nature and extent injury and property damaged: "
& TheNatureNew & " " & "</td></tr>" & vbCrLf _

& "<tr> <td colspan=""3""> PLEASE INDICATE ALL WHICH CONTRIBUTED TO THE
INJURY: " & " " & S & "</TD></TR>" & vbCrLf _

& "<tr> <td colspan=""3""> Supervisor's corrective action to ensure this
type of accident does not recur: " & TheActionNew & " " & vbCrLf _

& "<tr> <td colspan=""3""> Was employee trained in the appropriate use of
Personal Protective Equipment/Proper safety procedures? " & Training &
vbCrLf _

& " " & "</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: " & " " & 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>Wheeler's Accident Investigation
Form</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">



Location where accident occurred: <asp:textbox id="Location" runat=server
columns="25"/>

</td>

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

Employer's Premises

<asp:CheckBox id=Checkpremisesyes Text="yes" runat="server" />

<asp:CheckBox id=Checkpremisesno Text="no" runat="server" />

 

Job site

<asp:CheckBox id=Checkjobsiteyes Text="yes" runat="server" />

<asp:CheckBox id=Checkjobsiteno Text="no" runat="server" />

</td>

<td>

Date of accident 

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

</td>

<%--____________________________________________________________________________--%>

<%--ROW 2--%>

<tr> <td>

Who was injured? 

<asp:textbox id="Who" runat=server columns="25"/>

</td>

<td align= "left">

Employee <asp:CheckBox id=Checkemp
runat="server" />

 

Non-employee <asp:CheckBox id="Checknon" runat="server" />

</td>

<td align="right">

Time of accident a.m. <asp:textbox columns="6" id="am" runat=server />

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

</TD>

<%--____________________________________________________________________________--%>

<%--ROW 3--%>

<tr>

<td>

Date of Hire <asp:textbox id="Hiredate"
runat=server/>

</td>

<td>

Job Title or Occupation <asp:textbox
id="occupation" runat=server columns="25"/>

</td>

<td> How long has employee worked at job where
injury occurred? <asp:textbox id="lengthofjob" runat=server/>

</td>

</Table>

<%--____________________________________________________________________________--%>

<%--Row 4--%>

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

<tr>

<td>



What was employee doing when injury occurred?

What machine or tool was being used? What type of operation? 

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

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

</td>

</tr>

<%--____________________________________________________________________________--%>

<%--Row 5--%>

<td> How did injury occur? List all objects
and substances involved. 

<asp:textbox TextMode="MultiLine" Rows="5" columns= "80" id="How"
runat=server/>

</td>

</tr>

<%--____________________________________________________________________________--%>

<%--Row 6--%>

<tr>

<td> 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> PLEASE INDICATE ALL OF
THE FOLLOWING WHICH CONTRIBUTED TO THE INJURY:

<asp:CheckBoxList id=Indicate runat="server">

<asp:ListItem style> Improper
instruction</asp:ListItem>

<asp:ListItem> Lack of training or
skill</asp:ListItem>

<asp:ListItem> Operating without
authority</asp:ListItem>

<asp:ListItem> Horseplay</asp:ListItem>

<asp:ListItem> Physical or mental
impairment</asp:ListItem>

<asp:ListItem> Failure to
secure</asp:ListItem>

<asp:ListItem style> Failure to
lockout</asp:ListItem>

<asp:ListItem> Unsafe position</asp:ListItem>

<asp:ListItem> Improper dress</asp:ListItem>

<asp:ListItem> Improper protective
equipment</asp:ListItem>

<asp:ListItem> Unsafe equipment</asp:ListItem>

<asp:ListItem> Poor
housekeeping</asp:ListItem>

<asp:ListItem> Unsafe arrangement or
process</asp:ListItem>

<asp:ListItem> Poor ventilation</asp:ListItem>

<asp:ListItem> Improper
guarding</asp:ListItem>

<asp:ListItem> Improper
maintenance</asp:ListItem>

<asp:ListItem> Inoperative safety
device</asp:ListItem>

</asp:CheckBoxList> Other <asp:TextBox columns = "50" id="GetOther"
runat=server/>

</td>

</tr>

<%--____________________________________________________________________________--%>

<%--Row 8--%>

<tr>

<td colspan= "3"> 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"/>

 

</tr>

</td>

<%--____________________________________________________________________________--%>

<%--Row 9--%>

<tr>

<td> Was employee trained in the appropriate
use of Personal Protective Equipment/Proper safety procedures?

 

<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> 

Was employee cautioned for failure to use Personal Protective
Equipment/Proper safety procedures? 

<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> 

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> 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"> Name of person submitting
this form:

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

<td> 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>

Reply to this Message

ilker - 09 Jun 2007 10:55 GMT

you must be select an item in the CheckBoxList
for example : Dim TheIndicate As String = Indicate(1).Text

> I am using Framework 1.1.4322.
> Who can tell me why I'm getting this error? My code follows
[quoted text clipped - 665 lines]
>
> </html>

Reply to this Message

dancer - 11 Jun 2007 14:04 GMT

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?

> you must be select an item in the CheckBoxList
> for example : Dim TheIndicate As String = Indicate(1).Text
[quoted text clipped - 676 lines]
>>
>> </html>

Reply to this Message

dancer - 11 Jun 2007 18:08 GMT

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

> you must be select an item in the CheckBoxList
> for example : Dim TheIndicate As String = Indicate(1).Text
[quoted text clipped - 676 lines]
>>
>> </html>

Reply to this Message

Compiler Error Message

Free Magazines