effsane
Yeni Üye
Kayıt Tarihi: 10-Ağustos-2007
Gönderilenler: 5
|
| Gönderen: 10-Ağustos-2007 Saat 11:26 | Kayıtlı IP
|
|
|
icerik = "Ürün Siparişi:<br><br>"
icerik = icerik & "<b> Adı: </b> " & request.form("isim") & "<br>"
icerik = icerik & "<b> Soyadı : </b> " & request.form("soyadi") & "<br>"
icerik = icerik & "<b> Telefon : </b> " & request.form("tel") & "<br>"
icerik = icerik & "<b> E-Mail: </b> " & request.form("mail") & "<br>"
icerik = icerik & "<b> Adres : </b> " & request.form("adres") & "<br>"
icerik = icerik & "<b> Ürün Adı : </b> " & request.form("urunadi") & "<br>"
icerik = icerik & "<b> Sipariş Adedi : </b> " & request.form("adet") & "<br>"
icerik = icerik & "<b> Ürün Fiyatı : </b> " & request.form("fiyati") & "<br>"
icerik = icerik & "<b> Sipariş Tarihi : </b> " & Session("trh") & "<br>"
icerik = icerik & "<b> Siparişi verenin ip adresi : </b> " & Session("ip") & "<br>"
mserv = "mail.ibc-network.com" ' Kendi Hostunuza Ait Mail Server Adresini Giriniz
posta = " info@ibc-network.com" ' Kendi Hostunuzda Site Ait Olan Mail Adresiniz Giriniz.
Set obj = Server.CreateObject("Persits.MailSender")
obj.Host = mserv
obj.From = eposta
obj.AddAddress posta
obj.Subject = "Ürün Siparişi"
obj.Body = icerik
obj.IsHTML = True
on error resume next
obj.Send
set obj = Nothing
__________________
www.ibc-network.com
msn : kalite@ibc-network.com
|
ASPTurkiye.com Forum : ASP / ASP.NET
Konu: cevabı
Aktif Konular
Üye Listesi
Arama
Yardım
Kayıt Ol
Giriş
