CDONTS E-Mail Form using an Array w/ASP Validation:

Click here to test this script.

Code:

<%option explicit%>

<%
dim smtp
dim emailto 
dim name 
dim emailfrom 
dim emailsubject 
dim emailbody 
dim extrafield 
dim errorStr 
dim origQueryString 
dim item 
dim x 
dim y
dim z 
%>

</head>

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

<%
'-------------------------------------------------------------
'Define required fields

dim requiredfields(2)

requiredfields(0) = "name"
requiredfields(1) = "emailto"
requiredfields(2) = "emailfrom"
'-------------------------------------------------------------

'-------------------------------------------------------------
'Define error messages for required fields

dim errorcodes(2)

errorcodes(0) = "To (name)"
errorcodes(1) = "To (email)"
errorcodes(2) = "From (email)"
'-------------------------------------------------------------

if request.querystring("form1") <> "" then

'-------------------------------------------------------------
'Define non-required form fields

dim otherfields(2)

otherfields(0) = "emailsubject"
otherfields(1) = "emailbody"
otherfields(2) = "extrafield"
'-------------------------------------------------------------
	
	for x = lbound(requiredfields) to ubound(requiredfields)
		if len(trim(request(requiredfields(x)))) > 0 then
			if len(trim(origQueryString)) > 0 then
				origQueryString = origQueryString & "&" & requiredfields(x) & "=" & request(requiredfields(x))
			else
				origQueryString = requiredfields(x) & "=" & request(requiredfields(x))
			end if
		else
			if len(trim(errorStr)) > 0 then
				errorStr = errorStr & "," & requiredfields(x)
			else
				errorStr = requiredfields(x)
			end if
		end if
	Next

for y = lbound(otherfields) to ubound(otherfields)
		if origQueryString = "" then
			origQueryString = otherfields(y) & "=" & request(otherfields(y))
		else
			origQueryString = origQueryString & "&" & otherfields(y) & "=" & request(otherfields(y))
		end if
	Next

if errorStr <> "" then
		response.redirect "default.asp?errorStr=" & errorStr & "&" & origQueryString
	end if

emailto = request.querystring("emailto")
	emailfrom = request.querystring("emailfrom")
	emailsubject = request.querystring("emailsubject")

emailbody = "Hi," & space(1) & request.querystring("name") & vbcrlf & vbcrlf
	emailbody = emailbody & request.querystring("extrafield") & vbcrlf & vbcrlf
	emailbody = emailbody & request.querystring("emailbody") & vbcrlf & vbcrlf
	emailbody = emailbody & space(2) & "Thank You, " & emailfrom

set smtp = server.createobject("cdonts.newmail")
	smtp.to = emailto
	smtp.from = emailfrom
	smtp.subject = emailsubject
	smtp.body = emailbody

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

<%else%>

<%
	 if request.querystring("errorStr") <> "" then
		response.write("<font color=ff0000><b>The following fields are required:</b><ul>")
		For z = lbound(errorcodes) to ubound(errorcodes)
			if InStr(request("errorStr"), requiredfields(z)) then
				response.write("<li>" & errorcodes(z) & "<br>")
			end if
		Next
		response.write("</font></ul>")
	end if
	%>

<table>
	<tr>
	<td valign=middle>
	<font <%if InStr(request.querystring("errorStr"), "name") then response.write "color=ff0000"%> size=2 face=arial><b>To (name): </b></font>
	</td>
	<td><input type=text name=name value="<%=request.querystring("name")%>"></td>
	</tr>

<tr>
	<td valign=middle class=default>
	<font <%if InStr(request.querystring("errorStr"), "emailto") then response.write "color=ff0000"%> size=2 face=arial><b>To (email): </b></font>
	</td>
	<td><input type=text name=emailto value="<%=request.querystring("emailto")%>"></td>
	</tr>

<tr>
	<td valign=middle class=default>
	<font <%if InStr(request.querystring("errorStr"), "emailfrom") then response.write "color=ff0000"%> size=2 face=arial><b>From (email): </b></font>
	</td>
	<td><input type=text name=emailfrom value="<%=request.querystring("emailfrom")%>"></td>
	</tr>

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

<tr>
	<td valign=middle class=default><b>Extra Field: </b></td>
	<td><input type=text name=extrafield value="<%=request.querystring("extrafield")%>"></td>
	</tr>

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

-->

<%end if%>
*Un-comment <textarea> input