Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <script runat="server">
- Protected Sub SubmitForm_Click(ByVal sender As Object, ByVal e As System.EventArgs)
- If Not Page.IsValid Then Exit Sub
- Dim SendResultsTo As String = "aj@jtnetinc.com"
- Dim smtpMailServer As String = "mail.ajtroxell.com"
- Dim smtpUsername As String = "aj+ajtroxell.com"
- Dim smtpPassword As String = "ajax67"
- Dim MailSubject As String = "Form Results"
- Try
- Dim txtQ As TextBox = Me.FormContent.FindControl("TextBoxQ")
- If txtQ IsNot Nothing Then
- Dim ans As String = ViewState("hf1")
- If ans.ToLower <> txtQ.Text.ToLower Or ans.ToUpper <> txtQ.Text.ToUpper Then
- Me.YourForm.ActiveViewIndex = 3
- Exit Sub
- End If
- End If
- Dim FromEmail As String = SendResultsTo
- Dim msgBody As StringBuilder = New StringBuilder()
- Dim sendCC As Boolean = False
- For Each c As Control In Me.FormContent.Controls
- Select Case c.GetType.ToString
- Case "System.Web.UI.WebControls.TextBox"
- Dim txt As TextBox = CType(c, TextBox)
- If txt.ID.ToLower <> "textboxq" Then
- msgBody.Append(txt.ID & ": " & txt.Text & vbCrLf & vbCrLf)
- End If
- If txt.ID.ToLower = "email" Then
- FromEmail = txt.Text
- End If
- If txt.ID.ToLower = "subject" Then
- MailSubject = txt.Text
- End If
- Case "System.Web.UI.WebControls.CheckBox"
- Dim chk As CheckBox = CType(c, CheckBox)
- If chk.ID.ToLower = "checkboxcc" Then
- If chk.Checked Then sendCC = True
- Else
- msgBody.Append(chk.ID & ": " & chk.Checked & vbCrLf & vbCrLf)
- End If
- Case "System.Web.UI.WebControls.RadioButton"
- Dim rad As RadioButton = CType(c, RadioButton)
- msgBody.Append(rad.ID & ": " & rad.Checked & vbCrLf & vbCrLf)
- Case "System.Web.UI.WebControls.DropDownList"
- Dim ddl As DropDownList = CType(c, DropDownList)
- msgBody.Append(ddl.ID & ": " & ddl.SelectedValue & vbCrLf & vbCrLf)
- End Select
- Next
- msgBody.AppendLine()
- msgBody.Append("Browser: " & Request.UserAgent & vbCrLf & vbCrLf)
- msgBody.Append("IP Address: " & Request.UserHostAddress & vbCrLf & vbCrLf)
- msgBody.Append("Server Date & Time: " & DateTime.Now & vbCrLf & vbCrLf)
- Dim myMessage As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage()
- myMessage.To.Add(SendResultsTo)
- myMessage.From = New System.Net.Mail.MailAddress(FromEmail)
- myMessage.Subject = MailSubject
- myMessage.Body = msgBody.ToString
- myMessage.IsBodyHtml = False
- If sendCC Then myMessage.CC.Add(FromEmail)
- Dim basicAuthenticationInfo As New System.Net.NetworkCredential(smtpUsername, smtpPassword)
- Dim MailObj As New System.Net.Mail.SmtpClient(smtpMailServer)
- MailObj.Credentials = basicAuthenticationInfo
- MailObj.Send(myMessage)
- Me.YourForm.ActiveViewIndex = 1
- Catch
- Me.YourForm.ActiveViewIndex = 2
- End Try
- End Sub
- Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
- If Not Page.IsPostBack Then
- Dim lbl As Label = Me.FormContent.FindControl("labelq")
- If lbl IsNot Nothing Then
- Dim rq(3) As String
- rq(0) = "Is fire hot or cold?"
- rq(1) = "Is ice hot or cold?"
- rq(2) = "Is water wet or dry?"
- Dim ra(3) As String
- ra(0) = "hot"
- ra(1) = "cold"
- ra(2) = "wet"
- Dim rnd As New Random
- Dim rn As Integer = rnd.Next(0, 3)
- lbl.Text = rq(rn)
- ViewState("hf1") = ra(rn)
- End If
- End If
- End Sub
- </script>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement