<% Sub satis_kaydet() 
'Formdan verileri bi alalım hayırlısıyla...
adres =  Request.Form("adres")
posta_kodu =  Request.Form("posta_kodu")
sehir =  Request.Form("sehir")
tel =  Request.Form("tel")
cep_tel =  Request.Form("cep_tel")
vergi_daire =  Request.Form("vergi_daire")
vergi_no = Request.Form("vergi_no")
isim = Request.Form("ad")
mail = Request.Form("mail")
'Gelen verileri veritabanına kaydetmeyelim langadanak maile düşüversin... 
'Bunu yaparken tabi ki bir sub prosedur kullanalim daha rahat olur....
satis_haber_gonderme_islemi mail,isim
'mail elimize ulaştığına göre kullanıcıya bunu başardığımızı söleyelim...
Response.Write "Siparişiniz elimize ulaştı. Işık hızıyla kargoya vericez, kargo da size ses hızıyla teslim edicek."
'Aha da bu kadar!
End Sub
%>

<%
Sub satis_haber_gonderme_islemi(mail_adresi,strisim)

strHost = "localhost"
strFrom = "mail@siteadresi.com"
strAddAdress = "mail@siteadresi.com"
strAddReplyTo = strFrom
strSubject = "Siteden Yeni Sipariş Verildi"

strBody =" <b>"&strisim&"</b>, adlı kişi "&Now()&" tarihinde bir sipariş verdi.<br> <b>Mail adresi:</b> "&mail_adresi&""
mail_gonder strHost,strFrom,strAddAdress,strAddReplyTo,strSubject,strBody

End Sub
%>

<%
'En sık kullanılan mail bileşeni olan Persisti Kullanarak mail gönderen fonksiyon scriptimiz başlıor açılın....
Function mail_gonder(byval strHost,strFrom,strAddAdress,strAddReplyTo,strSubject,strBody)

		Set Mail = Server.CreateObject("Persits.MailSender")
		Mail.Host = strHost
		Mail.From = strFrom
		Mail.AddAddress strAddAdress
		mail.AddReplyTo strAddReplyTo
		Mail.Subject = strSubject
		Mail.Body = strBody
		Mail.IsHTML = True 
		Mail.Send
		set mail = nothing
		
		If Err <> 0 Then 
				gonder = false
		Else
				gonder = true
		End If
End Function ' Gonder
%>