<% 'Set the response buffer to true as we maybe redirecting and setting a cookie Response.Buffer = True 'Make sure this page is not cached Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" blnemail = False if Request.Form("onay") = "1" AND Request.Form("submit1") <> "" then isim = Trim(Mid(Request.Form("isim"), 1, 60)) strFromEmailName = Trim(Mid(Request.Form("mail"), 1, 60)) mesaj= Request.Form("mesaj") MailTo = "murat@garantimedya.net" MailFrom = "murat@garantimedya.net" smtp = "mail.garantimedya.net" strEmailBody = strEmailBody & vbCrLf & vbCrLf & "Adı Soyadı: " & " " & isim & "
" strEmailBody = strEmailBody & vbCrLf & vbCrLf & "E-Posta: " & " " & strFromEmailName & "
" strEmailBody = strEmailBody & vbCrLf & vbCrLf & "Mesaj : " & " " & mesaj & "
" strSubject = "Talep ve İletişim Formu" set imsg = createobject("cdo.message") set iconf = createobject("cdo.configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp .Update End With With iMsg Set .Configuration = iConf .To = MailTo .From = strFromEmailName & " <" & MailFrom & ">" .Subject = strSubject .HTMLBody = strEmailBody .fields.update .Send End With set imsg = nothing set iconf = nothing set HTML = nothing blnemail = True end if %> Untitled Document

 

 
  İletişim Formu

 

<% if blnemail then %>
Mesajınız Gönderilmiştir.
<% end if %>
Ad
Soyad		  
E-Mail  
Mesaj