<%@ Page Title="İletişim" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="iletisim.aspx.vb" Inherits="iletisimaspx" %> 
   
  <asp:Content ID="Content1" ContentPlaceHolderID="HeadContent" Runat="Server"> 
  </asp:Content> 
  <asp:Content ID="Content2" ContentPlaceHolderID="MainContent" Runat="Server"> 
       <asp:MultiView ID="YourForm" runat="server" ActiveViewIndex="0"> 
              <asp:View ID="FormContent" runat="server"> 
                          <label for="Email"> 
                      E-Posta Adresinizi Giriniz<br /> 
                      <asp:TextBox ID="Email" runat="server" Columns="35"> 
                      </asp:TextBox> 
                  </label> 
                  <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="Email" 
                      Display="Dynamic" ErrorMessage="Lütfen E-Posta Adresinizi Giriniz" SetFocusOnError="True" 
                      CssClass="ValidateMessage" ForeColor="">* Gerekli</asp:RequiredFieldValidator> 
                  <asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server" ControlToValidate="Email" 
                      ErrorMessage="Lütfen geçerli E-Posta Adresi Giriniz" SetFocusOnError="True" ValidationExpression="\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" 
                      CssClass="ValidateMessage" ForeColor="">* Lütfen geçerli E-Posta Adresi Giriniz.</asp:RegularExpressionValidator> 
                  <br /> 
                  <br /> 
                          <label for="Subject"> 
                      Konu:<br /> 
                      <asp:TextBox ID="Subject" runat="server" Columns="35"> 
                      </asp:TextBox> 
                  </label> 
                  <asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" ControlToValidate="Subject" 
                      ErrorMessage="Lütfen Konuyu Yazınız" SetFocusOnError="True" CssClass="ValidateMessage" 
                      ForeColor="">* Gerekli</asp:RequiredFieldValidator> 
                  <br /> 
                  <br /> 
                          <label for="Message"> 
                      Mesajınız:<br /> 
                      <asp:TextBox ID="Message" runat="server" TextMode="MultiLine" Columns="35" Rows="10"></asp:TextBox> 
                  </label> 
                      <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" ControlToValidate="Message" 
                          ErrorMessage="Lütfen Mesajınızı Yazınız" SetFocusOnError="True" CssClass="ValidateMessage" 
                          ForeColor="">* Gerekli</asp:RequiredFieldValidator> 
                      
                       
                       
                  <br /> 
                  <br /> 
                          <label for="First_Name"> 
                      Adınız:<br /> 
                      <asp:TextBox ID="First_Name" runat="server" Columns="35"></asp:TextBox> 
                  </label> 
                  <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="First_Name" 
                      ErrorMessage="Lütfen Adınızı Giriniz" SetFocusOnError="True" CssClass="ValidateMessage" 
                      ForeColor="">* Gerekli</asp:RequiredFieldValidator> 
                  <br /> 
                  <br /> 
                          <asp:ValidationSummary ID="ValidationSummary1" runat="server" ShowMessageBox="True" 
                      ShowSummary="False" CssClass="ValidateMessage" ForeColor="" /> 
                  <asp:CheckBox ID="CheckBoxCC" runat="server" Text="Bu mesajın bir kopyasını da bana yolla." /> 
                  <br /> 
                  <br /> 
                  <asp:Button ID="SubmitForm" runat="server" OnClick="SubmitForm_Click" Text="Gönder" /> 
                  <br /> 
              </asp:View> 
              <asp:View ID="FormConfirmationMessage" runat="server"> 
                  Mesajınız Başarıyla Gönderildi. En Geç 24 Saat İçerisinde Sizinle İletişime Geçilecektir.<br /> 
              </asp:View> 
              <asp:View ID="FormErrorMessage" runat="server"> 
                  Due to technical difficulty, your message may NOT have been sent. 
              </asp:View> 
              <asp:View ID="FormSpamMessage" runat="server"> 
                  You did not correctly answer the anti-spam question. Please go back and try again.</asp:View> 
          </asp:MultiView> 
           
  </asp:Content> 
   
  

 
   
  Partial Class iletisimaspx 
      Inherits System.Web.UI.Page 
   
      Protected Sub SubmitForm_Click(ByVal sender As Object, ByVal e As System.EventArgs) 
          If Not Page.IsValid Then Exit Sub 
   
          Dim SendResultsTo As String = "yasirkidil@gmail.com" 
          Dim smtpMailServer As String = "smtp.gmail.com" 
          Dim smtpUsername As String = "username" 
          Dim smtpPassword As String = "password" 
          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 
   
  End Class