Radio Button Validator


D

dancer

Can somebody tell me why my RequiredFieldValidator works for the TEXT BOX,
(location) but does NOT work for the RADIO BUTTON (EmpTrain)?



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

myMessage.From = "(e-mail address removed)"

MyMessage.To = "(e-mail address removed)"

myMessage.Subject = "Accident Form (HTML)"

' This is the magic line. Without this the message will just appear

' as plain HTML and won't be rendered by the recipient's email client.

' It'd be as if they did "View Source" on a web page.

MyMessage.BodyFormat = MailFormat.Html



myMessage.Body = "<h2>Wheeler's Accident Investigation Form</h2>" & vbCrLf _

& " <p>" & vbCrLf _

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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>



</form>





</body>

</html>
 
Ad

Advertisements


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top