<% 

urun=Request.Form("urun") 
adet=Request.Form("adet") 
adsoy=Request.Form("adsoy") 
adres=Request.Form("adres") 
odeme=Request.Form("odeme") 
tel=Request.Form("Tel") 
adres=Request.Form("adres") 
mesaj=Request.Form("mesaj") 
email=Request.Form("email") 
zaman=Now 


If urun="Ürünü Seçiniz" or urun="" Then 
Response.Write "Ürünü Seçmelisiniz..." 
ElseIf adet="" Then 
Response.Write "Adet giriniz.." 
ElseIf adsoy="Ad ve Soyadınız" or adsoy="" Then 
Response.Write "Ad ve Soyadınızı giriniz" 
ElseIf tel="Telefon" or tel="" Then 
Response.Write "Telefon numaranızı giriniz" 
Elseif odeme="Seçiniz" or odeme="" Then 
Response.Write "Ödeme şeklini seçiniz" 
Elseif email="E-mail" or email="" Then 
Response.Write "E-mail adresini giriniz"  
Elseif adres="Adres" or adres="" Then 
Response.Write "Kargo adresini giriniz" 
Else 


sayfa = adsoy ' e-mail ba?lyk 
sayfa = sayfa & "Ürün:" & urun & vbcrlf  
sayfa = sayfa & "Adet:" & adet & vbcrlf 
sayfa = sayfa & "Ödeme:" & odeme & vbcrlf  
sayfa = sayfa & "Ad Soyad:"& adsoy & vbCrLf 
sayfa = sayfa & "Telefon:" & tel & vbcrlf 
sayfa = sayfa & "E-mail:" & email & vbcrlf  
sayfa = sayfa & "Adres:" & adres & vbcrlf 
sayfa = sayfa & "Mesaj:" & mesaj & vbcrlf 
sayfa = sayfa & "Tarih:" & zaman & vbcrlf 

Dim MAIL 
Set MAIL = Server.CreateObject("Persits.MailSender") 
MAIL.Host = "mail.elektroniksigara.tc" 
MAIL.From = "elektroniksigara@elektroniksigara.tc" 'bizden aldığınız mail olmalı 
MAIL.Username = "elektroniksigara@elektroniksigara.tc" ' Gönderen email ile aynı olmalı 
MAIL.Password = "mailşifrem" ' e-Mailinizin şifresini giriniz 
MAIL.FromName = "MUCiZE SiGARA SiPARiSi" ' emailin gönderen adı, istediğinizi yazabilirsiniz. 
 
MAIL.AddAddress email' mail göndermek istediğiniz email adresi 
MAIL.Subject = "Elektronik Sigara" 
MAIL.IsHTML = True 
MAIL.Body = sayfa 
MAIL.Send 
 
set MAIL = nothing 

if err.number<>0 then
response.write (err.number & " | " & err.description)
else 
Response.write "Siparişiniz Alındı! En kısa zamanda sizinle iletişime geçilecek. Teşekkürler ..." 
%> 
<br> 
<a href="default.asp">Anasayfaya Dön</a> 
<% 
end if 
end if 

%>