<%@ Language=VBScript %>
<%
Call Main()
Sub Main()
Dim Action
Dim ErrorMessage
Dim Captcha
Dim CorrectLetterString
Action = request("Action")
ErrorMessage = Request("ErrorMessage")
Captcha = Request("Captcha")
CorrectLetterString = Request("CorrectLetterString")
Call DrawHeader()
If Action = "" Then
Call DrawForm(ErrorMessage,ThisPagesName)
ElseIf Action = "Submit" then
strCAPTCHA = Trim(Request.Form("strCAPTCHA"))
If CheckCAPTCHA(strCAPTCHA) = true then
Call InsertAndSendMail()
Call DisplayThankYou()
Else
RESPONSE.WRITE " CheckCAPTCHA failed. Checking " & Trim(Request.Form("strCAPTCHA")) & "! "
Call DrawForm(ErrorMessage,ThisPagesName)
End If
End If
Call DrawFooter()
End Sub
Function CheckCAPTCHA(valCAPTCHA)
SessionCAPTCHA = Trim(Session("CAPTCHA"))
Session("CAPTCHA") = vbNullString
if Len(SessionCAPTCHA) < 1 then
CheckCAPTCHA = False
exit function
end if
if CStr(SessionCAPTCHA) = CStr(valCAPTCHA) then
CheckCAPTCHA = True
else
CheckCAPTCHA = False
end if
End Function
Sub SendEmail(ToAddress, CCAddress, BccAddress, FromAddress, Subject, Body)
%> <%
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "mail-gw.fsr.net"
.Update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = FromAddress
.To = ToAddress
.CC = CCAddress
.BCC = BccAddress
.Subject = Subject
.HTMLBody = Body
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
End Sub
Sub DisplayThankYou()
%>
Thank you for contacting us. Somebody will get back to you shortly.
<%
End Sub
Sub DrawForm(ByVal ErrorMessage, ByVal ThisPagesName)
Dim TermsOfUse
If ErrorMessage = 1 Then%>
ERROR!! PLEASE TYPE THE LETTERS AT THE BOTTOM OF THE PAGE CORRECTLY INTO THE TEXT AREA PROVIDED.<%
End If%>
<%Call JavaScriptFormCheck()%>
<%End Sub
sub InsertAndSendMail()
IPNum = Request.ServerVariables("REMOTE_ADDR")
SubmitDate = Now()
FirstName = Replace(Request("FirstName"),"'","''")
LastName = Replace(Request("LastName"),"'","''")
Organization = Replace(Request("Organization"),"'","''")
Address = Replace(Request("Address"),"'","''")
City = Replace(Request("City"),"'","''")
State = Replace(Request("State"),"'","''")
ZipCode = Replace(Request("ZipCode"),"'","''")
LocationAddress = Replace(Request("LocationAddress"),"'","''")
LocationCity = Replace(Request("LocationCity"),"'","''")
LocationState = Replace(Request("LocationState"),"'","''")
LocationZipCode = Replace(Request("LocationZipCode"),"'","''")
Besttimetocall = Replace(Request("Besttimetocall"),"'","''")
DayPhone = Replace(Request("DayPhone"),"'","''")
FaxNumber = Replace(Request("FaxNumber"),"'","''")
ClientEmail = Replace(Request("ClientEmail"),"'","''")
EveningPhone = Replace(Request("EveningPhone"),"'","''")
MobilePhone = Replace(Request("MobilePhone"),"'","''")
BuildingLength = Replace(Request("BuildingLength"),"'","''")
BuildingWidth = Replace(Request("BuildingWidth"),"'","''")
BuildingHeight = Replace(Request("BuildingHeight"),"'","''")
ConstructionDate = Replace(Request("ConstructionDate"),"'","''")
Comments = Replace(Request("Comments"),"'","''")
theBody = "
"
theBody = theBody & "Below is the result of your feedback form. It was submitted by " & ClientEmail & " on " & Now() & "
"
theBody = theBody & "
"
theBody = theBody & "
First Name:
" & FirstName & "
"
theBody = theBody & "
"
theBody = theBody & "
Last Name:
" & LastName & "
"
theBody = theBody & "
"
theBody = theBody & "
Organization:
" & Organization & "
"
theBody = theBody & "
"
theBody = theBody & "
Address:
" & Address & "
"
theBody = theBody & "
"
theBody = theBody & "
Organization:
" & Organization & "
"
theBody = theBody & "
"
theBody = theBody & "
City:
" & City & "
"
theBody = theBody & "
"
theBody = theBody & "
State:
" & State & "
"
theBody = theBody & "
"
theBody = theBody & "
Zip Code:
" & ZipCode & "
"
theBody = theBody & "
"
theBody = theBody & "
Location Address:
" & LocationAddress & "
"
theBody = theBody & "
"
theBody = theBody & "
Location City:
" & LocationCity & "
"
theBody = theBody & "
"
theBody = theBody & "
Location State:
" & LocationState & "
"
theBody = theBody & "
"
theBody = theBody & "
Location Zip Code:
" & LocationZipCode & "
"
theBody = theBody & "
"
theBody = theBody & "
Besttimetocall:
" & Besttimetocall & "
"
theBody = theBody & "
"
theBody = theBody & "
Day Phone:
" & DayPhone & "
"
theBody = theBody & "
"
theBody = theBody & "
Fax Number:
" & FaxNumber & "
"
theBody = theBody & "
"
theBody = theBody & "
Client Email:
" & ClientEmail & "
"
theBody = theBody & "
"
theBody = theBody & "
Evening Phone:
" & EveningPhone & "
"
theBody = theBody & "
"
theBody = theBody & "
Mobile Phone:
" & MobilePhone & "
"
theBody = theBody & "
"
theBody = theBody & "
Building Length:
" & BuildingLength & "
"
theBody = theBody & "
"
theBody = theBody & "
Building Width:
" & BuildingWidth & "
"
theBody = theBody & "
"
theBody = theBody & "
Building Height:
" & BuildingHeight & "
"
theBody = theBody & "
"
theBody = theBody & "
Construction Date:
" & ConstructionDate & "
"
theBody = theBody & "
"
theBody = theBody & "
Comments:
" & Comments & "
"
theBody = theBody & "
"
theBody = theBody & "
"
stSubject = "Estimate Request"
Call SendEmail("mpb@mikespolebarns.com", "", "", "mpb@mikespolebarns.com", stSubject, theBody)
end sub
Sub DrawFooter()%>
