<%
content1 = replace(request("content"),chr(13) & chr(10),"
")
Set objMail = Server.CreateObject("CDO.MESSAGE")
objMail.From= request("fromname")
objMail.To= request("toname")
objMail.Subject= request("title")
objMail.HTMLBody= content1
objMail.Send
Set objMail = nothing
%>
SMTP Test
메일을 전송하였습니다.