Basic CDONTS E-Mail Form w/ASP Validation:

Click here to test this script.

Code:

<%option explicit%>

<%
dim emailto 
dim emailcc
dim emailfrom 
dim emailsubject 
dim emailbody 
dim formStr
dim error
dim errorStr
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")

formStr = "emailcc=" & emailcc
	formStr = formStr & "&" & "emailsubject=" & emailsubject
	formStr = formStr & "&" & "emailbody=" & emailbody
	formStr = replace(formStr,"&&", "")

if emailto = "" then errorStr = "emailto,"
	if emailto <> "" then formStr = formStr & "&emailto=" & emailto
	if emailfrom = "" then errorStr = "emailfrom," & errorStr
	if emailfrom <> "" then formStr = formStr & "&emailfrom=" & emailfrom
	errorStr = replace(errorStr,"&&", "")

if errorStr <> "" then
		errorStr = left(errorStr,(len(errorStr) -1))
		response.redirect "default.asp?error=" & errorStr & "&" & formStr
	end if

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

<%if instr(request.querystring("error"),"emailto") then%>
	<font color=#ff0000><b>Please enter the recipient's e-mail address.</b></font><br>
<%end if%>

<%if instr(request.querystring("error"),"emailfrom") then%>
	<font color=#ff0000><b>Please enter your e-mail address.</b></font>
<%end if%>

<table>

<tr>
<td valign=middle class=default>
<font size=2 <%if instr(request.querystring("error"),"emailto") then response.write "color=#ff0000"%>><b>To: </b></font>
</td>
<td><input size=25 type=text name=emailto <%if instr(request.querystring("error"),"emailto") then response.write "style=" & """background:#ff0000" & """"%> value="<%response.write (request.querystring("emailto"))%>"></td>
</tr>

<tr>
<td valign=middle class=default>
<font size=2 <%if instr(request.querystring("error"),"emailfrom") then response.write "color=#ff0000"%>><b>From: </b></font>
</td>
<td><input size=25 type=text name=emailfrom <%if instr(request.querystring("error"),"emailfrom") then response.write "style=" & """background:#ff0000" & """"%> value="<%response.write (request.querystring("emailfrom"))%>"></td>
</tr>

<tr>
<td valign=middle class=default><b>Subject: </b></td>
<td><input size=25 type=text name=emailsubject value="<%response.write (request.querystring("emailsubject"))%>"></td>
</tr>

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

</table>

</form>

</font>

</body>
</html>

*Un-comment <textarea> input