<%
Sub mesaj_gonder
isim = Request.Form ("isim")
yazi = Request.Form ("yazi")
telefon = Request.Form ("telefon")
mail = Request.Form ("mail")
onay = Request.Form ("onay")
tarih = Request.Form ("tarih")
kodu = Request.Form ("kodu")

if isim = "" or yazi = "" or telefon = "" or onay = "" or mail = "" then
	Response.Write "<center><font color=#457CA5 face=Verdana size=1>Lütfen Bütün Form Alanlarını Doldurunuz ! ! !</font></center>"
ElseIf request("kodu")<>request.cookies("elmakobi")("gvn") Then

	Response.Write "<center><font color=#457CA5 face=Verdana size=1>Hatalı Kod ! ! !</font></center>"

Else  


Set ObjMesaj = Server.CreateObject ("ADODB.RecordSet")
StrSql = ("Select * from iletisim")
ObjMesaj.Open StrSql, bag, 1, 3
ObjMesaj.AddNew
ObjMesaj("isim") = isim
ObjMesaj("yazi") = yazi
ObjMesaj("telefon") = telefon
ObjMesaj("mail") = mail
ObjMesaj("onay") = onay
ObjMesaj("tarih") = tarih
ObjMesaj.Update
Response.Write "<br><center>Mesajınız Alındı. En kısa zamanda yetkililer size geri dönecektir.</center>"

' change to address of your own SMTP server
strHost = "mail.domain_im.net"

If Request("Send") <> "" Then
   Set Mail = Server.CreateObject("Persits.MailSender")
   ' enter valid SMTP host
   Mail.Host = strHost

   Mail.From = "sunucuya ait gönderen mail adresim" ' From address
   Mail.FromName = "İletişim Formu Örneği" ' optional
   Mail.AddAddress "mail adresimi yazdım"

   ' message subject
   Mail.Subject = "İletişim Formundan Mesajınız Var."
   ' message body
   Mail.Body = StrBody
   strErr = ""
   bSuccess = False
   On Error Resume Next ' catch errors
   Mail.Send ' send message
   If Err <> 0 Then ' error occurred
      strErr = Err.Description
   else
      bSuccess = True
   End If
End If
' change to address of your own SMTP server

End if

End Sub
%>