<% Dim fD 'as dictionary object Dim fDError 'as dictionary object Dim Item 'as variant (dictionary element) Set fD = Server.CreateObject("Scripting.Dictionary") Set fDError = Server.CreateObject("Scripting.Dictionary") ' Load the dictionary object with all the form elements passed in ' --------------------------------------------------------------- For Each Item in Request.Form fD.Add Item, Request.Form(Item) Next If NOT Request.Form("frmSubmit") = "Send Message" Then %>

* = Required
* Subject: "> * Name: "> Phone: "> * Email Address: ">	* Message/Comment: <%= fD.Item("frmComment")%>

<% Else If Trim(fD.Item("frmSubject")) = "" Then fDError.Add fDError.Count+1, "You must enter a subject." End If If Trim(fD.Item("frmComment")) = "" Then fDError.Add fDError.Count+1, "You must enter a message or comment." End If If Trim(fD.Item("frmName")) = "" Then fDError.Add fDError.Count+1, "You must enter your name." End If If Trim(fD.Item("frmEmail")) = "" Then fDError.Add fDError.Count+1, "You must enter your email address." End If If fDError.Count > 0 Then Response.Write "" If fdError.Count = 1 Then Response.Write "

There is an error on this form. Please go back and correct it.

" Else Response.Write "

There are " & fDError.Count & " errors on this form. Please go back and correct them.

" End if Response.Write "

" & vbCrLf Response.Write "
" & vbCrLf For Each Item in fDError Response.Write "
" & fDError.Item(Item) & "
" & vbCrLf Next Response.Write "

" fD.Remove("frmSubmit") For Each Item in fd Response.Write "" & vbCrLf Next Response.Write "" Response.Write "" & vbCrLf & vbCrLf & vbCrLf Else Dim JMail, cMessage cMessage = "<< From 'Contact Us' Form at Legacy List Marketing >>" & "

" cMessage = cMessage & "<< Message >>" & "
" cMessage = cMessage & request.form("frmComment") & "

" cMessage = cMessage & "Subject -------> " & request.form("frmSubject") & "
" cMessage = cMessage & "Name ----------> " & request.form("frmName") & "
" cMessage = cMessage & "Phone ---------> " & request.form("frmPhone") & "
" cMessage = cMessage & "Email Address -> mailto:" & request.form("frmEmail") & "

" Set JMail = Server.CreateObject("JMail.Message") JMail.ISOEncodeHeaders = false JMail.AddNativeHeader "Message-ID", "<" & Rnd & "@robintek.com>" JMail.MailDomain = "bono.robintek.com" JMail.MailServerUserName = "webmaster@robintek.com" JMail.MailServerPassWord = "nitnoy" JMail.Subject = request.form("frmSubject") JMail.HTMLBody = cMessage JMail.ReplyTo = request.form("frmName") & "<" & request.form("frmEmail") & ">" JMail.From = request.form("frmEmail") JMail.FromName = request.form("frmName") JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") JMail.Logging = True JMail.AddRecipient "info@base-connect.com" JMail.Send("bono.robintek.com") %>

Thank you for contacting us!

<% End If End If%>