	<%
If Request.Form("required") <> "" And Request.Form("missing_fields_redirect") <> "" Then
	RequiredFields = Split(Request.Form("required"), ",")
	For i=0 To UBound(RequiredFields)
		If Request.Form(RequiredFields(i)) = "" Then
			Response.Redirect Request.Form("missing_fields_redirect")
			Response.End
		End If
	Next
End If

Sub SortKeys()
  Dim i,j,x
  For i = 0 To UBound(keyArr)-1
    For j = 0 To UBound(keyArr)-1 - i
      If StrComp(keyArr(j), keyArr(j + 1)) > 0  Then
        x = keyArr(j)
        keyArr(j) = keyArr(j + 1)
        keyArr(j + 1) = x
      End If
    Next
  Next
End Sub

fRecip = Request.Form("recipient")
fFrom = Request.Form("sender")
fSubject = Request.Form("subject")
fRedirect = Request.Form("redirect")

Set mailObj = Server.CreateObject("CDONTS.NewMail")
mailObj.From = fFrom
mailObj.To = fRecip
mailObj.Subject = fSubject

strBody = ""

i=0
dim keyArr()
For Each Field In Request.Form
	ReDim Preserve keyArr(i)
	keyArr(i) = Field
	i = i + 1
Next

SortKeys

For i = 0 To UBound(keyArr)
	Field = keyArr(i)

	If Field <> "subject" And Field <> "recipient" And Field <> "required" And Field <> "redirect" And Field <> "missing_fields_redirect" AND Field <> "B1" AND Field <> "bgcolor" AND Field <> "return_link_url" Then
		if Request.Form(Field) <> "" then
			strBody = strBody & Field & ": " & Request.Form(Field) & vbCrLf & "<br>"

 		end if
	End If
Next

mailObj.Body = strBody
mailObj.BodyFormat = 0
mailObj.MailFormat = 0
mailObj.Send
Response.Redirect fRedirect
%>