HTML Formatted E-Mail Form using CDONTS:

Click here to test this script.

Code:

default.asp*

<%option explicit%>

<%
dim emailto 
dim emailcc
dim emailfrom 
dim emailsubject 
dim emailbody 
dim smtp

if request.form <> "" then

emailto = request.form("emailto")
	emailcc = request.form("emailcc")
	emailfrom = request.form("emailfrom")
	emailsubject = request.form("emailsubject")
	
	emailbody = "<table border=1>" & vbcrlf
	emailbody = emailbody & "<tr>" & vbcrlf
	emailbody = emailbody & "<td valign=middle class=default><b>To: </b></td>" & vbcrlf
	emailbody = emailbody & "<td>" & request.form("emailto") & "</td>" & vbcrlf
	emailbody = emailbody & "</tr>" & vbcrlf
	emailbody = emailbody & "<tr>" & vbcrlf
	emailbody = emailbody & "<td valign=middle class=default><b>CC: </b></td>" & vbcrlf
	emailbody = emailbody & "<td>" & request.form("emailcc") & "</td>" & vbcrlf
	emailbody = emailbody & "</tr>" & vbcrlf
	emailbody = emailbody & "<tr>" & vbcrlf
	emailbody = emailbody & "<td valign=middle class=default><b>From: </b></td>" & vbcrlf
	emailbody = emailbody & "<td>" & request.form("emailfrom") & "</td>" & vbcrlf
	emailbody = emailbody & "</tr>" & vbcrlf
	emailbody = emailbody & "<tr>" & vbcrlf
	emailbody = emailbody & "<td valign=middle class=default><b>Subject: </b></td>" & vbcrlf
	emailbody = emailbody & "<td>" & request.form("emailsubject") & "</td>" & vbcrlf
	emailbody = emailbody & "</tr>" & vbcrlf
	emailbody = emailbody & "<tr>" & vbcrlf
	emailbody = emailbody & "<td class=default colspan=2><b>Message:</b></td>" & vbcrlf
	emailbody = emailbody & "</tr>" & vbcrlf
	emailbody = emailbody & "<tr>" & vbcrlf
	emailbody = emailbody & "<td colspan=2>" & request.form("emailbody") & "</td>" & vbcrlf
	emailbody = emailbody & "</tr>" & vbcrlf
	emailbody = emailbody & "</table>" & vbcrlf

set smtp = server.createobject("cdonts.newmail")
    smtp.BodyFormat = 0 
    smtp.MailFormat = 0 
	smtp.to = emailto
	smtp.cc = emailcc
	smtp.from = emailfrom
	smtp.subject = emailsubject
	smtp.body = emailbody

smtp.send
	set smtp = nothing
	response.redirect "default.asp?email=sent"
end if
%>

</head>

<%if request.querystring("email") = "sent" then%>
	<b>Your e-mail has been sent!</b>
<%end if%>

<table>

<tr>
<td valign=middle class=default><b>Subject: </b></td>
<td><input size=25 type=text name=emailsubject></td>
</tr>

<tr>
<td class=default colspan=2><b>Message:</b></td>
</tr>

</table>

</form>

</font>

</body>
</html>

*Un-comment <textarea> input