Telefon : 0 232 376 51 77

  • Bizim Kasap Aslan Sütçü Gıda

İletişim Formu

<% if Request.ServerVariables("REQUEST_METHOD") = "POST" and IsEmpty(Request.Form("btnRetry")) then Dim lblResult, lblColor if IsEmpty(Session("ASPCAPTCHA")) or Trim(Session("ASPCAPTCHA")) = "" then lblResult = "This test has expired." lblColor = "red" else Dim TestValue : TestValue = Trim(Request.Form("txtCaptcha")) '//Uppercase fix for turkish charset// TestValue = Replace(TestValue, "i", "I", 1, -1, 1) TestValue = Replace(TestValue, "İ", "I", 1, -1, 1) TestValue = Replace(TestValue, "ı", "I", 1, -1, 1) '//////////////////// TestValue = UCase(TestValue) if StrComp(TestValue, Trim(Session("ASPCAPTCHA")), 1) = 0 then Set objConfig=CreateObject("CDO.Configuration") objConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 ' cdoSendUsingPort objConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="127.0.0.1" objConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="" objConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="" objConfig.Fields.Update ' Create and send the mail Set objMail=CreateObject("CDO.Message") ' Use the config object created above Set objMail.Configuration=objConfig objMail.From=Request.Form("eposta") 'objMail.ReplyTo="yavuz@bizimkasap.net" objMail.To="siparis@bizimkasap.net" objMail.Cc="yavuz@bizimkasap.net" 'objMail.Bcc="yavuz@bizimkasap.net" objMail.Subject="Mesajınız Var" isim = Request.Form("isim") eposta = Request.Form("eposta") telefon = Request.Form("telefon") Not2 = Request.Form("not") objMail.TextBody= "Müşteri Adı: " & isim & vbnewline & "E-posta Adresi: " & eposta & vbnewline & "Mesaj: " & not2 & vbnewline & "Telefon : " & telefon objMail.Send Response.Redirect("index.html") else %> <% Response.Redirect("siparis.asp") end if '//IMPORTANT: You must remove session value for security after the CAPTCHA test// Session("ASPCAPTCHA") = vbNullString Session.Contents.Remove("ASPCAPTCHA") '//////////////////// end if %> <%else%>
 Kodu Yenile
Lütfen resimdeki karakterleri giriniz.

<%end if%>