<% islem = Request.Querystring("GET") %>
<% IF islem = "" THEN %>
<% End If %>
<% IF islem = "Send" THEN
adsoyad = Trim(Request.Form("adsoyad"))
site = Trim(Request.Form("site"))
adres = Trim(Request.Form("adres"))
email = Trim(Request.Form("email"))
mesaj = Trim(Request.Form("mesaj"))
IF adsoyad = "" OR site = "" OR adres = "" OR email = "" OR mesaj = "" THEN
hata = "Please fill all the blanks.
Please go back and fill the blanks."
HATAVAR
Response.End
END IF
If Len(email) < 5 Then
bIsValid = "False"
Else
If Instr(1, email, " ") <> 0 Then
bIsValid = "False"
Else
If InStr(1, email, "@", 1) < 2 Then
bIsValid = "False"
Else
If InStrRev(email, ".") < InStr(1, email, "@", 1) + 2 Then
bIsValid = "False"
End If
End If
End If
End If
IF bIsValid = "False" THEN
hata = "You type a wrong e-mail address.
Please type a valid e-mail address."
HATAVAR
Response.End
end if
body="Name : "& adsoyad &" Surname : "& site &" Phone : "& adres &" Email : "& email &" Comment : "& mesaj &""
Set Mail = Server.CreateOBject("JMail.Message")
Mail.Charset = "ISO-8859-9"
Mail.Logging = True
Mail.Silent = True
Mail.From = "postmaster@setron.com.tr" 'Site email adresiniz
Mail.FromName = "Simplecertify" 'Sitenizin adi
Mail.AddRecipient "ebru@setron.com.tr" 'Formun gelecegi mail adres
Mail.Subject = "Recieved A New Message From SimpleCertify" 'Mesajinizin sabit basligi
Mail.HTMLBody = body
Mail.Send "mail.setron.com.tr" 'Mail server adresi
Set Mail = Nothing
Response.Redirect "done.html"
Set RS = Nothing
END IF %>
<% SUB HATAVAR %>
