<%
if request.form("send")="1" then
A = request.form("Ad")
B = request.form("Email")
C = request.form("Tel")
D = request.form("Konu")
E = request.form("Mesaj")
m_l="xxx@xx.com"

Dim HTML
HTML = "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"" content=""text/html; charset=windows-1254"">"
HTML = HTML & "<title>HTMLMail</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body>"
HTML = HTML & "<table border=""0"" width=""460"" cellspacing=""3""  cellPadding=""0"">"
HTML = HTML & "<tr><td bgcolor=""efefef"" height=""16""><font size=1 face=verdana color=596890>&nbsp;<b>Ad : </b></font></td></tr>"
HTML = HTML & "<tr><td bgcolor=""f7f7f7"" height=""16""><font size=1 face=verdana color=596890>&nbsp; "&A&" </font></td></tr>"
HTML = HTML & "<tr><td bgcolor=""efefef"" height=""16""><font size=1 face=verdana color=596890>&nbsp;<b>Email : </b></font></td></tr>"
HTML = HTML & "<tr><td bgcolor=""f7f7f7"" height=""16""><font size=1 face=verdana color=596890>&nbsp; "&B&" </font></td></tr>"
HTML = HTML & "<tr><td bgcolor=""efefef"" height=""16""><font size=1 face=verdana color=596890>&nbsp;<b>Telefon : </b></font></td></tr>"
HTML = HTML & "<tr><td bgcolor=""f7f7f7"" height=""16""><font size=1 face=verdana color=596890>&nbsp; "&C&"  </font></td></tr>"
HTML = HTML & "<tr><td bgcolor=""efefef"" height=""16""><font size=1 face=verdana color=596890>&nbsp;<b>Konu : </b></font></td></tr>"
HTML = HTML & "<tr><td bgcolor=""f7f7f7"" height=""16""><font size=1 face=verdana color=596890>&nbsp; "&D&" </font></td></tr>"
HTML = HTML & "<tr><td bgcolor=""efefef"" height=""16""><font size=1 face=verdana color=596890>&nbsp;<b>Mesaj : </b></font></td></tr>"
HTML = HTML & "<tr><td bgcolor=""f7f7f7"" height=""16""><font size=1 face=verdana color=596890>&nbsp; "&E&" </font></td></tr>"
HTML = HTML & "</table>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"

Dim myMail 
Set myMail = Server.CreateObject("CDO.Message")
myMail.From = B 
myMail.To = m_l
myMail.Subject= "Email Formu"
myMail.TextBody = ""
myMail.HTMLBody = HTML
myMail.Send 
Set myMail = Nothing

end if
%>
al kardeşim kendi yazmış olduğum kod ve yatığım çalışmalarda basit bi ileiştim formu olarak kullanıyorum... kendine göre düzenlersin