al bakalım...
<%
HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "content=""text/html; charset=windows-1254"">"
HTML = HTML & "</head>"
HTML = HTML & "<body>"
HTML = HTML & "<table border=0>"
HTML = HTML & "<tr>"
HTML = HTML & "<br>"
HTML = HTML & "<td> <font size=""4"" color=""#808080""><b>Iskuruyorum.com Üzerinden Yeni Bir Reklam Talebi Var</b></font> </td>"
HTML = HTML & "</tr>"
HTML = HTML & "<table border=0>"
HTML = HTML & "<tr> "
HTML = HTML & "<td><font color=""#808080"">"
HTML = HTML & "<br><b>Isim: </b>" & Request.Form("isim")
HTML = HTML & "<br><b>Tel </b>" & Request.Form("tel")
HTML = HTML & "<br><b>Email: </b>" & Request.Form("email")
HTML = HTML & "<br>"
HTML = HTML & "</font></td>"
HTML = HTML & "</tr>"
HTML = HTML & "</table>"
HTML = HTML & "<table border=0>"
HTML = HTML & "<tr>"
HTML = HTML & "</table>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "localhost" ' Mail Server
eposta = "admin@localhost"
Mail.From = Request.Form("email") & " <" & strMyEmailAddress & ">"
Mail.FromName = request.form("isim soyisim")
Mail.Subject = "Yeni Bir Üyelik Talebi Var."
Mail.username= "kullanıcı@domain.com" '
mailini yazmayı unutma!
Mail.password= "" '
şifreni yazmayı unutma!
Mail.AddAddress strMyEmailAddress
Mail.AddCC strCCEmailAddress
Mail.AddBCC strBCCEmailAddress
Mail.Body = HTML
Mail.Send
Set Mail = Nothing
%>
