<% If Request.querystring("Send") <> "" Then msg_txt = "Yeni Sipariş Formu" msg_txt = msg_txt & "

Ad Soyad: " & Request.form("FromName") msg_txt = msg_txt & "
Firma Adı: " & Request.form("firmaadi") msg_txt = msg_txt & "
Email: " & Request.form("From") msg_txt = msg_txt & "
Ülke: " & Request.form("country") msg_txt = msg_txt & "
Şehir: " & Request.form("city") msg_txt = msg_txt & "
Saat Tarih: " & Request.form("saat") msg_txt = msg_txt & "
Telefon: " & Request.form("phone") msg_txt = msg_txt & "
Fax: " & Request.form("fax") msg_txt = msg_txt & "
Web: " & Request.form("web") msg_txt = msg_txt & "
İlgili Ürün: " & Request.form("urunler") msg_txt = msg_txt & "

Mesaj:
" & Request.form("mesaj") msg_txt = msg_txt & "
" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.macitmuhendislik.com" Mail.Password ="hacker00" Mail.From = Request.form("From") Mail.FromName = Request.form("FromName") Mail.AddAddress "info@macitmuhendislik.com" Mail.Subject = "Siteden Mesaj Geldi" Mail.IsHTML = True Mail.Body = msg_txt On Error Resume Next Mail.Send If Err <> 0 Then msg = "Mesajiniz Gonderilememistir..Lutfen Tekrar Deneyiniz..Formu Eksiksiz Doldurunuz.!.
" & Err.Description else msg = "Teşekkürler Siparişiniz Başarıyla İletildi.En kısa zamanda size geri dönülecektir.." End If End If %> Macit Makina Sipariş Alanı // <%=date%> //
<%If Request.querystring("Send") <> "" Then%> <%End If%>

MACİT MAKİNE
Sipariş/Bilgi  Formu
Ad Soyad:
Firma Adı:
E-Mailiniz:
Ülke
Şehir
Saat:
Telefon:
Fax:
Web:
Ürünlerimiz:
Mesajınız:
<%=msg%> 

Ana Sayfaya Geri Dön