 |
| E-Mail Adresinizi yazarak Şirketimiz hakkındaki gelişmeleri yakından takip edebilirsiniz... |
|
|
| 
Siparişlerinizi Web Sitesinden Hızlı Bir Şekilde Bize ulaştırıp kolayca size dönmemizi sağlayabilirsiniz.
<%if request("dr")<> "ins" then
if request.querystring("chk")="hata" then%> *** İşaretli Alanların Doldurulması Zorunludur. *** <%end if
%>
<%else%>
<%
ad=request("ad")
sad=request("sad")
mail=request("email")
adres=request("adr")
gsm=request("gsm")
faks=request("faks")
web=request("web")
urun_ismi=request("urun_ismi")
urun_kodu=request("urun_kodu")
istek_mik=request("istek_miktari")
istek_trh=request("istek_tarihi")
msg=request("msg")
tel=request("tel")
if (ad="") or (sad="") or (mail="") or (tel="") or (urun_kodu="") then
Response.Redirect("satis.php?dr=ilk&chk=hata")
end if
gun=day(date)
ay=month(date)
yil=year(date)
if gun<10 then sgun="0"&gun else sgun=gun end if
if ay<10 then say="0"&ay else say=ay end if
tarih=sgun&"/"&say&"/"&yil
''cnn.execute("insert into satis(ad,soyad,adres,telefon,GSM,faks,email,web,urun_ismi,urun_kodu,istek_miktari,istek_tarihi,notu) values ('" & ad & "','"&sad&"','"&adres&"','"&tel&"','"&gsm&"','"&faks&"','"&mail&"','"&web&"','"&urun_ismi&"','"&urun_kodu&"','"&istek_mik&"','"&istek_trh&"','"&msg&"')")
konu = chr(13) & chr(10) & " Ad-Soyad : " &ad & " " & sad & chr(13) & chr(10)
konu = konu & " Adres : " & adres & chr(13) & chr(10) & " Telefon : " &tel & chr(13) & chr(10)
konu = konu & " GSM : " & gsm & chr(13) & chr(10) & " Faks : " &faks & chr(13) & chr(10)
konu = konu & " Email : " & mail & chr(13) & chr(10) & " Webl : " &web & chr(13) & chr(10)
konu = konu & " Ürün İsmi : " & urun_ismi & chr(13) & chr(10) & " Ürün Kodu : " &urun_kodu & chr(13) & chr(10)
konu = konu & " İstek Miktarı : " & istek_mik & chr(13) & chr(10) & "İstek Tarihi : " &istek_trh & chr(13) & chr(10)
konu = konu & " Mesaj : " & msg & chr(13) & chr(10) & " Tarih : " &tarih & chr(13) & chr(10)
kimden=mail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.efescadir.com.tr"
Mail.From = "info@efescadir.com.tr"
Mail.FromName = kimden
Mail.AddAddress mail.from
Mail.AddReplyTo kimden
Mail.Subject = "Satis Formu"
Mail.Body = konu
Mail.Username = "info@efescadir.com.tr"
Mail.Password = "adam4053"
Mail.Send
If Err <> 0 Then
Response.Write "Hata Var: " & Err.Description
Else
%>
İlginiz İçin Teşekkürler.
Mesajınız Veri Tabanımıza Eklendi. En Kısa Zamanda Sizinle İletişime Geçilecektir.
<% end if
%>
<%end if%>
|
