Telefon : 0 232 376 51 77

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

Sipariş Hattı

Anasayfa /

Sipariş Ver

Sipariş 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") adres = Request.Form("adres") if Request.Form("miktar1") ="" then siparis1 = "" else siparis1 = vbnewline & Request.Form("urun1") & " - " & Request.Form("miktar1") & " KG" & vbnewline end if if Request.Form("miktar2") ="" then siparis2 = "" else siparis2 = Request.Form("urun2") & " - " & Request.Form("miktar2") & " KG" & vbnewline end if if Request.Form("miktar3") ="" then siparis3 = "" else siparis3 = Request.Form("urun3") & " - " & Request.Form("miktar3") & " KG" & vbnewline end if if Request.Form("miktar4") ="" then siparis4 = "" else siparis4 = Request.Form("urun4") & " - " & Request.Form("miktar4") & " KG" & vbnewline end if if Request.Form("miktar5") ="" then siparis5 = "" else siparis5 = Request.Form("urun5") & " - " & Request.Form("miktar5") & " KG" & vbnewline end if if Request.Form("miktar6") ="" then siparis6 = "" else siparis6 = Request.Form("urun6") & " - " & Request.Form("miktar6") & " KG" & vbnewline end if if Request.Form("miktar7") ="" then siparis7 = "" else siparis7 = Request.Form("urun7") & " - " & Request.Form("miktar7") & " KG" & vbnewline end if if Request.Form("miktar8") ="" then siparis8 = "" else siparis8 = Request.Form("urun8") & " - " & Request.Form("miktar8") & " KG" & vbnewline end if if Request.Form("miktar9") ="" then siparis9 = "" else siparis9 = Request.Form("urun9") & " - " & Request.Form("miktar9") & " KG" & vbnewline end if if Request.Form("miktar10") ="" then siparis10 = "" else siparis10 = Request.Form("urun10") & " - " & Request.Form("miktar10") & " KG" & vbnewline end if if Request.Form("miktar11") ="" then siparis11 = "" else siparis11 = Request.Form("urun11") & " - " & Request.Form("miktar11") & " KG" & vbnewline end if if Request.Form("miktar12") ="" then siparis12 = "" else siparis12 = Request.Form("urun12") & " - " & Request.Form("miktar12") & " KG" & vbnewline end if if Request.Form("miktar13") ="" then siparis13 = "" else siparis13 = Request.Form("urun13") & " - " & Request.Form("miktar13") & " KG" & vbnewline end if if Request.Form("miktar14") ="" then siparis14 = "" else siparis14 = Request.Form("urun14") & " - " & Request.Form("miktar14") & " KG" & vbnewline end if if Request.Form("miktar15") ="" then siparis15 = "" else siparis15 = Request.Form("urun15") & " - " & Request.Form("miktar15") & " KG" & vbnewline end if if Request.Form("miktar16") ="" then siparis16 = "" else siparis16 = Request.Form("urun16") & " - " & Request.Form("miktar16") & " KG" & vbnewline end if if Request.Form("miktar17") ="" then siparis17 = "" else siparis17 = Request.Form("urun17") & " - " & Request.Form("miktar17") & " KG" & vbnewline end if if Request.Form("miktar18") ="" then siparis18 = "" else siparis18 = Request.Form("urun18") & " - " & Request.Form("miktar18") & " KG" & vbnewline end if if Request.Form("miktar19") ="" then siparis19 = "" else siparis19 = Request.Form("urun19") & " - " & Request.Form("miktar19") & " KG" & vbnewline end if if Request.Form("miktar20") ="" then siparis20 = "" else siparis20 = Request.Form("urun20") & " - " & Request.Form("miktar20") & " KG" & vbnewline end if if Request.Form("miktar21") ="" then siparis21 = "" else siparis21 = Request.Form("urun21") & " - " & Request.Form("miktar21") & " KG" & vbnewline end if if Request.Form("miktar22") ="" then siparis22 = "" else siparis22 = Request.Form("urun22") & " - " & Request.Form("miktar22") & " KG" & vbnewline end if if Request.Form("miktar23") ="" then siparis23 = "" else siparis23 = Request.Form("urun23") & " - " & Request.Form("miktar23") & " KG" & vbnewline end if if Request.Form("miktar24") ="" then siparis24 = "" else siparis24 = Request.Form("urun24") & " - " & Request.Form("miktar24") & " KG" & vbnewline end if if Request.Form("miktar25") ="" then siparis25 = "" else siparis25 = Request.Form("urun25") & " - " & Request.Form("miktar25") & " KG" & vbnewline end if if Request.Form("miktar26") ="" then siparis26 = "" else siparis26 = Request.Form("urun26") & " - " & Request.Form("miktar26") & " KG" & vbnewline end if if Request.Form("miktar27") ="" then siparis27 = "" else siparis27 = Request.Form("urun27") & " - " & Request.Form("miktar27") & " KG" & vbnewline end if if Request.Form("miktar28") ="" then siparis28 = "" else siparis28 = Request.Form("urun28") & " - " & Request.Form("miktar28") & " KG" & vbnewline end if if Request.Form("miktar29") ="" then siparis29 = "" else siparis29 = Request.Form("urun29") & " - " & Request.Form("miktar29") & " KG" & vbnewline end if if Request.Form("miktar30") ="" then siparis30 = "" else siparis30 = Request.Form("urun30") & " - " & Request.Form("miktar30") & " KG" & vbnewline end if if Request.Form("miktar31") ="" then siparis31 = "" else siparis31 = Request.Form("urun31") & " - " & Request.Form("miktar31") & " KG" & vbnewline end if if Request.Form("miktar32") ="" then siparis32 = "" else siparis32 = Request.Form("urun32") & " - " & Request.Form("miktar32") & " KG" & vbnewline end if if Request.Form("miktar33") ="" then siparis33 = "" else siparis33 = Request.Form("urun33") & " - " & Request.Form("miktar33") & " KG" & vbnewline end if 'response.write "Müşteri Adı: " & eposta & vbnewline & "E-posta Adresi: " & eposta & vbnewline & "Açık Adresi: " & adres & vbnewline & "Telefon : " & telefon & vbnewline & vbnewline & "Açıklama : " & Not2 & vbnewline & vbnewline & vbnewline & "Siparişi : " & siparis1 & vbnewline & siparis2 & vbnewline & siparis3 & vbnewline & siparis4 & vbnewline & siparis5 & vbnewline & siparis6 & vbnewline & siparis7 & vbnewline & siparis8 & vbnewline & siparis9 & vbnewline & siparis10 & vbnewline & siparis11 & vbnewline & siparis12 & vbnewline & siparis13 & vbnewline & siparis14 & vbnewline & siparis15 & vbnewline & siparis16 & vbnewline & siparis17 & vbnewline & siparis18 & vbnewline & siparis19 & vbnewline & siparis20 & vbnewline & siparis21 & vbnewline & siparis22 & vbnewline & siparis23 & vbnewline & siparis24 & vbnewline & siparis25 & vbnewline & siparis26 & vbnewline & siparis27 & vbnewline & siparis28 & vbnewline & siparis29 & vbnewline & siparis30 & vbnewline & siparis31 & vbnewline & siparis32 & vbnewline & siparis33 'response.write Request.Form("miktar1") & siparis2 & siparis3 objMail.TextBody= "Müşteri Adı: " & isim & vbnewline & "E-posta Adresi: " & eposta & vbnewline & "Açık Adresi: " & adres & vbnewline & "Telefon : " & telefon & vbnewline & vbnewline & "Açıklama : " & Not2 & vbnewline & vbnewline & "Siparişi : " & siparis1 & siparis2 & siparis3 & siparis4 & siparis5 & siparis6 & siparis7 & siparis8 & siparis9 & siparis10 & siparis11 & siparis12 & siparis13 & siparis14 & siparis15 & siparis16 & siparis17 & siparis18 & siparis19 & siparis20 & siparis21 & siparis22 & siparis23 & siparis24 & siparis25 & siparis26 & siparis27 & siparis28 & siparis29 & siparis30 & siparis31 & siparis32 & siparis33 objMail.Send Response.Redirect("tesekkur.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%>

Siparişiniz:

Dana Ürünleri

Dana Kıyma
Dana Rosto
Dana Kuşbaşı
Dana Antrikot
Dana Biftek
Dana Dilimli Biftek
Dana Sotelik Kuşbaşı
Dana Kaburga
Dana Haşlamalık Et

Kuzu Ürünleri

Kuzu Kuşbaşı
Kuzu Pirzola
Kuzu Beyti
Kuzu Kelebek Pirzola
Kuzu Gerdan
Kuzu Böbrek Yatağı
Kuzu Kol
Kuzu Tandırlık Kol
Kuzu Külbastı

Köfteler

İnegöl köfte
Kasap köfte
Adana köfte

Diğerleri

Kasap sucuk
Kuzu ciğer
Dana ciğer
Dana böbrek,yürek,dalak
Kuzu böbrek,yürek,dalak

Tavuk Ürünleri

Bütün tavuk
Tavuk baget
Tavuk incik
Tavuk kanat
Tavuk fleto
Tavuk göğüs
Tavuk But
 Kodu Yenile
Lütfen resimdeki karakterleri giriniz.

<%end if%>