<%
FUNCTION fncCleanUpFormFields(vFO)
Dim intC, intL, strT, strTest, strA
intC = 0
intL = 0
strT = ""
strA = ""
strTest = ""
IF vFO > "" THEN
intL = len(vFO)
FOR intC = 1 to intL
strT = " "
strA = mid(vFO, intC, 1)
SELECT CASE strA
CASE ">"
CASE "<"
CASE "("
CASE ":"
CASE ")"
CASE "/"
CASE "\"
CASE "}"
CASE "{"
CASE "?"
CASE ELSE
strT = strA
END SELECT
strTest = strTest & strT
NEXT
END IF
fncCleanUpFormFields = strTest
END FUNCTION
'----------------------------------
IF REQUEST.FORM("REFERREDBY") > "" THEN
'
'Use this FORM script very carefully
'Incorrect use can stop the server
'Make sure that you set all CDO
'object references to Nothing immediately after the script that does the CDO
'operations ends. This ensures that the references are cleaned up properly
'otherwise you gonna get a problem
'You have to change the SERVER name and the EMAIL account below, if necessary
'You can email multiple addresses by separating the addresses with a semi-colon ";"
Dim strMachineName
Dim strMailBox
Dim strPassword
Dim iMsg
Dim iConf
Dim Flds
Dim strSendToAGENTEmailAddress
Dim strTo
Dim strToList
Dim strSubject
Dim strBody
Dim strTextBody
Dim strMyName
Dim strMyPhone
Dim strCallMe
Dim strMyEmail
Dim strMyMessage
Dim strPropertyAddress
Dim strPropertyID
Dim strAgentEmail
Dim intPos
Dim strAgentName
Dim strAgentPhone
Dim strSendToEmailAddress
Dim strAgentReplyToAddress
Dim vGRQuantityOfGraphics, vNumberOfPhotos, strComment, vNumberOfWords, lngAgent_ID
Dim DBConn, rstR, bHasProperties, strError, cmdObj
Dim dteToday, strSQL
Dim aProperty(50,8)
Dim intC, bRedo, intX, strSelected, DBConnSQL, rstG
Dim strPath, strReplyToAgentEmailAddress, vAgentPhone
Dim strConfirmationMessage, strThePathAndNameOfTheFile, File
Dim vAgentUserName, vAgentPassword
Dim vYour_Name, vCompany_Name, vYour_Phone, vYour_Email
Dim vFound_US, vYour_Comments
vYour_Name = ""
vCompany_Name = ""
vYour_Phone = ""
vYour_Email = ""
vFound_US = ""
vYour_Comments = ""
strToList = ""
strSubject = ""
strBody = ""
strMyName = ""
strMyPhone = ""
strCallMe = ""
strMyEmail = ""
strMyMessage = ""
strPropertyAddress = ""
strPropertyID = ""
strAgentEmail = ""
strAgentName = ""
strAgentPhone = ""
vGRQuantityOfGraphics = ""
lngAgent_ID = 0
IF request.form("ReferredBy") = "thecontactform" AND request.form("message_ID") = "w4zt8" Then
'====================================================
vYour_Name = fncCleanUpFormFields(left(request.form("your_name"),30))
vCompany_Name = fncCleanUpFormFields(left(request.form("company_name"),30))
vYour_Phone = fncCleanUpFormFields(left(request.form("phone"),30))
vYour_Email = fncCleanUpFormFields(left(request.form("email"), 30))
vFound_US = fncCleanUpFormFields(left(request.form("through"),30))
vYour_Comments = fncCleanUpFormFields(left(request.form("comments"), 250))
'======================================================
strBody = ""
strBody = strBody & "Contact Name: " & vYour_Name & " " & vbCRLF
strBody = strBody & "Company Name: " & vCompany_Name & " " & vbCRLF
strBody = strBody & "Phone: " & vYour_Phone & " " & vbCRLF
strBody = strBody & "Email: " & vYour_Email & " " & vbCRLF
strBody = strBody & "Found Us By: " & vFound_US & " " & vbCRLF
strBody = strBody & "Comments: " & vYour_Comments & " " & vbCRLF
strBody = strBody & "===========================================================" & " " & vbCRLF
'FOOTER Finish the body of the email
strBody = strBody & "===========================================================" & " " & vbCRLF
strBody = strBody & "Message From The Website" & " " & vbCrLF
strBody = strBody & "Date and Time Email Created: " & Date & " - " & Time & " " & vbCrLF
strTextBody = ""
strTextBody = strTextBody & "Contact Name: " & vYour_Name & vbCRLF
strTextBody = strTextBody & "Company Name: " & vCompany_Name & vbCRLF
strTextBody = strTextBody & "Phone: " & vYour_Phone & vbCRLF
strTextBody = strTextBody & "Email: " & vYour_Email & vbCRLF
strTextBody = strTextBody & "Found Us By: " & vFound_US & vbCRLF
strTextBody = strTextBody & "Comments: " & vYour_Comments & vbCRLF
strTextBody = strTextBody & "===========================================================" & vbCRLF
'FOOTER Finish the body of the email
strTextBody = strTextBody & "===========================================================" & vbCRLF
strTextBody = strTextBody & "Message From The Website" & vbCrLF
strTextBody = strTextBody & "Date and Time Email Created: " & Date & " - " & Time & vbCrLF
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' 3 means that you are asking mail to be sent using Exchange Server.
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 3
Flds("http://schemas.microsoft.com/cdo/configuration/user") = "acpmail" 'vAgentUserName
Flds("http://schemas.microsoft.com/cdo/configuration/password") = "bluemound44!" 'vAgentPassword
Flds.Update
Set iMsg.Configuration = iConf
'========================================================================================================
iMsg.To = "acpmail@alliancecivilprocess.com"
iMsg.ReplyTo = "acpmail@alliancecivilprocess.com"
iMsg.From = "acpmail@alliancecivilprocess.com"
iMsg.Subject = "Contact From Alliance Civil Process Website"
iMsg.TextBody = strTextBody
'iMsg.HTMLBody = strBody
iMsg.Send
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
response.redirect("thankyou.htm")
END IF
END IF
%>
Alliance Civil Process - Contact Us for Process Service, Legal Document Preparation, Court Filing, Skip
Tracing and Legal Research in Texas
Contact Form
If you have any questions regarding our products or services, please contact
us by calling or e-mailing us and we'll get back to you as soon as possible.
We look forward to hearing from you.
