<%@ Language=VBScript %> <% Option Explicit 'SendForm_HTML Template based Form Email 'This accepts the following HIDDEN types '====================================================== 'ToAddress [required] - Email Address 'CCAddress - Carbon Copy Email Address 'FromAddress [required] - Email address email is FROM 'Subject [required] - Email Subject 'ReturnURL [required] - FULL path to jump to after mail is sent 'Fields - Text Fields that are on the Template & Form 'RequiredFields - Text Fields that are required '====================================================== 'Get and Test Mail Variables 'To Dim strToAddress strToAddress = Request("ToAddress") If Len(strToAddress) = 0 Then Response.Write "Hidden Value [ToAddress] is missing" Response.End End If If strToAddress = "Email" Then strToAddress = Request("Email") 'From Dim strFromAddress strFromAddress = Request("FromAddress") If Len(strFromAddress) = 0 Then Response.Write "Hidden Value [FromAddress] is missing" Response.End End If If strFromAddress = "Email" Then strFromAddress = Request("Email") 'CC Dim strCCAddress strCCAddress = Request("CCAddress") If strCCAddress = "Email" Then strCCAddress = Request("Email") 'Subject Dim strSubject strSubject = Request("Subject") If Len(strSubject) = 0 Then Response.Write "Hidden Value [Subject] is missing" Response.End End If 'Get Text Fields Dim strTextFields strTextFields = Request("Fields") If Not Len(strTextFields) = 0 Then 'Split to Collection of Fields Dim colTextFields colTextFields = Split(strTextFields,",") End If 'Get Required Fields Dim strRequiredFields strRequiredFields = Request("RequiredFields") Dim colRequiredFields colRequiredFields = Split(strRequiredFields,",") Dim intRequiredFieldCount intRequiredFieldCount = 0 Dim strRequiredField Dim strEmptyFields For Each strRequiredField in colRequiredFields If Len(Request(strRequiredField)) = 0 Then intRequiredFieldCount = intRequiredFieldCount + 1 strEmptyFields = strEmptyFields & " [" & strRequiredField & "] " End If Next 'Test Required Fields If intRequiredFieldCount > 0 Then %>

I am sorry....you missed one of the required fields.
You must fill out all Required Fields.

<%= intRequiredFieldCount %> field(s) were not filled out:
<%= strEmptyFields %>

Please press Back in your browser and fill out all Required Fields.

TSG Consulting Group
Office: (949) 887-8239
E-Mail: info@tsgconsultinggroup.com

Internet Strategies - Web Design - Hosting Services
Video Services - Contact Us - Home

<% Else 'Prepare Message Body Dim strBody If Not Len(strTextFields) = 0 Then 'Hidden Fields Value was Specified Dim colTextField For Each colTextField in colTextFields If Not Len(Request(colTextField)) = 0 Then strBody = strBody & colTextField & ": " & Request(colTextField) & vbCrLf End If Next Else 'Hidden Fields Value was Not Specified Dim intCount For intCount = 1 To Request.Form.Count strBody = strBody & Request.Form.Key(intCount) & " : " & Request.Form(intCount) & vbCrLf Next End If 'Send Mail Dim Mail Set Mail=Server.CreateObject("CDONTS.NewMail") 'Mail.BodyFormat = 0 'HTML 'Mail.MailFormat = 0 'MIME Mail.To = strToAddress Mail.From = strFromAddress Mail.Subject = strSubject Mail.Body = strBody Mail.Send 'Send CC if CCAddress has a Value If Len(Request("CCAddress")) > 0 Then Dim Mail2 Set Mail2=Server.CreateObject("CDONTS.NewMail") 'Mail2.BodyFormat = 0 'HTML 'Mail2.MailFormat = 0 'MIME Mail2.To = strCCAddress Mail2.From = strFromAddress Mail2.Subject = strSubject Mail2.Body = strBody Mail2.Send End If 'Redir Dim ReDirURL ReDirURL = Request("ReturnURL") Response.Redirect ReDirURL End If %>