server değişikliği nedeniyle aspmaile geçmem gerek ama pek beceremedim yardıcmı olabilecek arakdaş varsa sevinirim


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>"

'Send the e-mail

'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent)
objCDOMail.From = Request.Form("email") & " <" & strMyEmailAddress & ">"

'Who the e-mail is sent to
objCDOMail.To = strMyEmailAddress

'Who the carbon copies are sent to
objCDOMail.Cc = strCCEmailAddress

'Who the blind copies are sent to
objCDOMail.Bcc = strBCCEmailAddress

'Set the e-mail body format (0=HTML 1=Text)
objCDOMail.BodyFormat = 0

'Set the mail format (0=MIME 1=Text)
objCDOMail.MailFormat = 0

'Set the subject of the e-mail
objCDOMail.Subject = "Yeni Bir Üyelik Talebi Var."

'Set the main body of the e-mail
objCDOMail.Body = html

'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1

'Send the e-mail
objCDOMail.Send

'Close the server object
Set objCDOMail = Nothing
%>