<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
if Request.Form("FFSubmitted") = "yes" then
Dim BodyString
Dim objCDO
Dim RedirectURL
Dim FormFields
Dim arrFormFields
FormFields = "companyName~email~firstName~lastName~add1~add2~city~state~zip~phone~fax~comments~ContactByEmail~ContactByPostalMail~ContactByTelephone"
If FormFields <> "" Then
arrFormFields = split(FormFields,"~")
End If
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "contact@rockingjl2ranch.net"
objCDO.To = "JLRttag@cs.com"
objCDO.Cc = ""
objCDO.Bcc = "cpr@cprcomputing.com"
objCDO.Subject = "Form Contents from the JL2 Contact page"
BodyString = Replace("Form contents submitted by the JL2 contact Form...~~","~",chr(13) & chr(10) )& chr(13)
If FormFields <> "" Then
For Each item In arrFormFields
BodyString = BodyString & item & ": " & Request.Form(item) & chr(13)
Next
End If
objCDO.Body = BodyString
objCDO.BodyFormat = 1
objCDO.MailFormat = 1
objCDO.Send
Set objCDO = Nothing
RedirectURL = "thanks.htm"
If RedirectURL <> "" then
If Request.QueryString <> "" Then
response.redirect(RedirectURL & "?" & Request.QueryString)
else
response.redirect(RedirectURL)
end If
end if
end if
%>
<% MM_EditAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_EditAction = MM_EditAction & "?" & Request.QueryString
End If
%>
Rocking JL2 Ranch - Contact
J.
Luis, Daina and Josh Rodriguez, Owners
Tel. 850-342-1760
Fax 850-342-1792
Geronimo Soto, Manager
Cell 850-459-4699
Please
use this online form to contact Rocking JL2 Ranch Inc.
