<% function TestCaptcha(byval valSession, byval valCaptcha) dim tmpSession valSession = Trim(valSession) valCaptcha = Trim(valCaptcha) if (valSession = vbNullString) or (valCaptcha = vbNullString) then TestCaptcha = false else tmpSession = valSession valSession = Trim(Session(valSession)) Session(tmpSession) = vbNullString if valSession = vbNullString then TestCaptcha = false else valCaptcha = Replace(valCaptcha,"i","I") if StrComp(valSession,valCaptcha,1) = 0 then TestCaptcha = true else TestCaptcha = false end if end if end if end function %>
Sitemizi önereceğiniz kişi Sizin Bilgileriniz
Adı :
Adınız Soyadınız :
E-mail Adres :

E-Mail Adresiniz :
Mesajınız :
*
Güvenlik Resmi :
Doğrulayın :
 
<% if not IsEmpty(Request.Form("btnTest")) then Response.Write("") if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then 'Response.Write "Formunuz iletildi." 'Response.End Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.atakteknoloji.com" Mail.From = Request.Form("email") Mail.FromName = Request.Form("isim") Mail.AddAddress "info@atakteknoloji.com" Mail.AddReplyTo Request.Form("mail") Mail.Subject = "İletişim Formundan Mesaj Var" Mail.isHTML = True govde=" --------- KİŞİ BİLGİLERİ ---------- "& Request.Form("") &""&"
" govde=govde &" Adı : "& Request.Form("isim") &","& "
" govde=govde&" "& "
" govde=govde &" E-Mail : "& Request.Form("mail") &","& "
" govde=govde&" "& "
" govde=govde &" Site : "& Request.Form("site") &","& "
" govde=govde&" "& "
" govde=govde &" Telefon : "& Request.Form("tel") &","& "
" govde=govde&" "& "
" govde=govde &" Mesaj : "& Request.Form("mesaj") &","& "
" govde=govde&" "& "
" Mail.Body = govde 'On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True Response.Write("Mesajınız gönderildi. Teşekkür ederiz.") End If else Response.Write("Güvenlik resmini yanlış girdiniz.") end if Response.Write("" & vbCrLf) end if %>