Is this helpful?
Stack Trace:
[NullReferenceException: Object reference not set to an instance of an
object.]
ASP.juan_radio30_aspx.btnSendMail_OnClick(Object Source, EventArgs E)
+453
System.Web.UI.WebControls.Button.OnClick(EventArgs e) +105
System.Web.UI.WebControls.Button.RaisePostBackEvent(String eventArgument)
+107
System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String
eventArgument) +7
System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler
sourceControl, String eventArgument) +11
System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) +33
System.Web.UI.Page.ProcessRequestMain(Boolean
includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint) +5102
Here is my code:
<%@ Page Language="VB" ClientTarget="downlevel" %>
<%@ 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 TheGetOther <> "" Then
TheGetOther = "Other: " & TheGetOther
End If
If Page.IsValid() Then
'strEmail = txtEmail.Text
'Location = Location.Text
myMessage.From = "(e-mail address removed)"
' myMessage.To = strEmail
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""> " & TheGetOther & "</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."
'lblUserMessage.Text = "Place of accident " & Thelocation
End If
End Sub
</script>
<html>
<head>
<title>ASP.NET Email (HTML Format) Sample</title>
</head>
<body>
<table width="750" bgcolor="#E9EDF4" table border="1" cellpadding="3">
<h3><center><font face="Verdana">Wheeler's Accident Investigation
Form</font></center></h3>
<form method="post" id="frmEmail" runat="server">
<%--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"/>
<asp:RequiredFieldValidator
ControlToValidate="Location"
Text="The location field is required"
runat="server"/>
</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>
<asp:RequiredFieldValidator
ControlToValidate="EmpTrain"
InitialValue=""
Text="You need to select yes or no"
runat="server"/>
</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>
<asp:ValidationSummary
HeaderText="You must enter a value in the following fields:"
DisplayMode="BulletList"
EnableClientScript="true"
ShowMessageBox = "true"
runat="server"/>
</form>
</body>
</html>
Michael Nemtsev said:
Hello dancer,
Do u know the line number where the error was arised? (should be in the
stack trace details)
It would be more usefull if you provide the code where is exection thrown
---
WBR, Michael Nemtsev [.NET/C# MVP]. My blog:
http://spaces.live.com/laflour
Team blog:
http://devkids.blogspot.com/
"The greatest danger for most of us is not that our aim is too high and we
miss it, but that it is too low and we reach it" (c) Michelangelo
d> I get this error if an item in a radiobutton list is not chosen when
d> filling in a form..
d> d> I added a RequiredFieldValidator, but I still get the message.
d> Object reference not set to an instance of an object.
d> Description: An unhandled exception occurred during the execution of
d> the
d> current web request. Please review the stack trace for more
d> information
d> about the error and where it originated in the code.
d> Exception Details: System.NullReferenceException: Object reference
d> not set to an instance of an object.
d>
