| Home | Forums | Reviews | Articles | Register |
![]() |
| Thread Tools | Rate Thread |
|
|
|
| |
|
ilker
Guest
Posts: 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 = "(E-Mail Removed)" > > > MyMessage.To = "(E-Mail 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> > > |
|
||
|
||||
![]() |
| Thread Tools | |
| Rate This Thread | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Compiler Error Message | dancer | Microsoft ASP .NET | 1 | 28th Jun 2007 01:38 PM |
| Compiler Error Message: | Jon Paal | Microsoft ASP .NET | 8 | 28th Mar 2006 12:53 AM |
| Compiler Error Message: The compiler failed with error code -1073741819 | Ram | Microsoft ASP .NET | 0 | 13th Sep 2005 10:52 AM |
| fatal error C1001: INTERNAL COMPILER ERROR (compiler file 'f:\vs70builds\3077\vc\Compiler\Utc\src\P2\main.c', line 148) | PufferFish | Microsoft VC .NET | 10 | 6th Aug 2004 10:33 PM |
| Compiler Error Message: The compiler failed with error code 128. | Yan | Microsoft ASP .NET | 0 | 21st Jul 2003 11:49 PM |
Powered by vBulletin®. Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2010, Crawlability, Inc. |




