Basic E-Mail Form using CDONTS:

Click here to test this script.

Code:

<%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 = request.form("emailbody")

set smtp = server.createobject("cdonts.newmail")
	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