 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
Contact Us |
|
If you wish to learn more about Quintsys5 and would like to be contacted directly,
please fill out the contact form below.
<%
sendMail = trim(request("sendMail"))
email = trim(request("email"))
IF sendMail <> "" THEN
dim myArray(8)
dim myArray2(8)
For i = 1 to 8
myArray(i) = Trim(Request("myForm" & i))
myArray2(i) = Trim(Request("myName" & i))
NEXT
' recmail =TRIM( Request( "recmail") )
sMailBody = sMailBody & "Client Information" & vbNewLine & vbNewLine For i = 1 to 8 sMailBody = sMailBody & "" & myArray2(i) & "" & " " & myArray(i) & "" & vbNewLine & vbNewLine NEXT Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Client Information" objMessage.From = email '*******Replace email address here ******** objMessage.To = "danthetshirtman@gmail.com" '****************************************** objMessage.HTMLBody = sMailBody objMessage.Send %> <%="Your application has been submitted. Thank You. "%> <% ELSE %> |
