Merhaba, ben siteye ekart servisi eklemek istiyorum, herkesin bildigi su EROLIFE ekart servisini..
Hersey tamam ama is ekart'i yollamaya gelince su koyuveriyor.
Neden bilmiyorum ama bende CDONTS bilesenleri calismiyor.
Ama Persits.MailSender calisiyor.
Su asagidaki scripti Persits.MailSender ile uyarlayabilirmisiniz?
Iste Script Codu:
<% Response.Buffer = true %>
<%
ekart=Request.Form("ekart")
mesaj=Request.Form("mesaj")
gon_mail=Request.Form("gon_mail")
alacak=Request.Form("alacak")
al_mail=Request.Form("al_mail")
gonderen=Request.Form("gonderen")
muzik=Request.Form("muzik")
font=Request.Form("font")
table=Request.Form("table")
baslik="Arkadasinizdan E-Kart var"
kimden="erolife@erolife.net"
metin="<table align=center cellpadding=0 cellspacing=0 border=1 bordercolor=#000000 width=500 background=http://www.erolife.net/ekartlar/back/"&table&" ><tr><td><font face=verdana size=2 ><b>Say&n "&alacak&" Bu e-kart size "&gonderen&" taraf&ndan<a href=http://www.erolife.net/ekartlar>erolife.net</a> adresinden gonderildi.</b><br></font></td></tr><tr><td><table border=1 bordercolor=#000000 align=center><br><div align=center><img src='"&ekart&"' border=0><br></table></div></td></tr><tr><td><font face=verdana size=2 color="&font&">&&&&&Mesaj:& lt;b> "&mesaj&" </b><br><br></font></td></tr><tr><td><font face=verdana size=2 color="&font&"><b>Gonderen :</b>&&"&gonderen&"<br><b>E-Mail Adresi :</b>&&"&gon_mail&"</font><br></td></tr></table><bgsound src="&muzik&" loop=-1>"
Set Mail = Server.CreateObject("CDONTS.NewMail" )
Mail.From = kimden
mail.To = al_mail
Mail.Subject = baslik
mail.bodyformat=0
mail.mailformat=0
Mail.Body = metin
Mail.Send
Set Mail=Nothing
response.redirect "tesekkur.asp"
%>
|