<%@ language=vbscript%> <% option explicit %> <% response.buffer = true %> <% dim oConn dim sSQL dim oRs dim iNumRec dim sSetFocus dim sErrorMsg dim bValidate dim sMsg dim oEmail dim sBody dim sDateSubmitted dim sFirstName dim sLastName dim sAddress dim sCity dim sState dim sZip dim sPhone dim sFax dim sEmail dim sComments if request.form("submit_status") = "submitted" then sSetFocus = "" sErrorMsg = "" bValidate = true sDateSubmitted = request.form("date_submitted") & "" sFirstName = request.form("first_name") & "" sLastName = request.form("last_name") & "" sAddress = request.form("address") & "" sCity = request.form("city") & "" sState = request.form("state") & "" sZip = request.form("zip") & "" sPhone = request.form("phone") & "" sFax = request.form("fax") & "" sEmail = request.form("email") & "" sComments = request.form("comments") & "" if bValidate = true then if sFirstName = "" then sSetFocus = "FirstName" sErrorMsg = "First Name is required" bValidate = false end if end if if bValidate = true then if sLastName = "" then sSetFocus = "LastName" sErrorMsg = "Last Name is required" bValidate = false end if end if if bValidate = true then if sEmail = "" then sSetFocus = "Email" sErrorMsg = "Email is required" bValidate = false end if end if 'Allow form to process only if certain conditions are met 'if bValidate = true then 'if sAccessCode <> "568923" Then 'sSetFocus = "AccessCode" 'sErrorMsg = "Incorrect Access Code" 'bValidate = false 'end if 'end if if bValidate = true then set oConn = server.createObject("ADODB.Connection") oConn.open sConnStr sSQL = "INSERT INTO CONTACT (" sSQL = sSQL & "DateSubmitted, " sSQL = sSQL & "FirstName, " sSQL = sSQL & "LastName, " sSQL = sSQL & "Address, " sSQL = sSQL & "City, " sSQL = sSQL & "State, " sSQL = sSQL & "Zip, " sSQL = sSQL & "Phone, " sSQL = sSQL & "Fax, " sSQL = sSQL & "Email, " sSQL = sSQL & "Comments" sSQL = sSQL & ") VALUES (" sSQL = sSQL & "'" & date & "', " sSQL = sSQL & "'" & FixQuote(sFirstName) & "', " sSQL = sSQL & "'" & FixQuote(sLastName) & "', " sSQL = sSQL & "'" & FixQuote(sAddress) & "', " sSQL = sSQL & "'" & FixQuote(sCity) & "', " sSQL = sSQL & "'" & FixQuote(sState) & "', " sSQL = sSQL & "'" & FixQuote(sZip) & "', " sSQL = sSQL & "'" & FixQuote(sPhone) & "', " sSQL = sSQL & "'" & FixQuote(sFax) & "', " sSQL = sSQL & "'" & FixQuote(sEmail) & "', " sSQL = sSQL & "'" & FixQuote(sComments) & "')" oConn.execute(sSQL) oConn.close set oConn = nothing sBody = "Contact Request for the Plymouth Fire Co." & vbcrlf sBody = sBody & "Date: " & date & vbcrlf sBody = sBody & "First Name: " & sFirstName & vbcrlf sBody = sBody & "Last Name: " & sLastName & vbcrlf sBody = sBody & "Address: " & sAddress & vbcrlf sBody = sBody & "City: " & sCity & vbcrlf sBody = sBody & "State: " & sState & vbcrlf sBody = sBody & "Zip: " & sZip & vbcrlf sBody = sBody & "Phone: " & sPhone & vbcrlf sBody = sBody & "Fax: " & sFax & vbcrlf sBody = sBody & "Email: " & sEmail & vbcrlf sBody = sBody & "Comments: " & sComments & vbcrlf SendEmail "monty@allengoel.com", "monty@allengoel.com", "Contact Request for the Plymouth Fire Co.", sBody SendEmail "Info@PlymouthFireCo.com", "Info@PlymouthFireCo.com", "Contact Request for the Plymouth Fire Co.", sBody 'SendEmail "monty@allengoel.com", sEmail, "HEADER", "MESSAGE" response.redirect "contact_confirm.asp" end if end if %> Plymouth Fire Co. No. 1 Plymouth Meeting PA <% case "FirstName" %> onLoad="document.frmSR.first_name.focus();">
<%=ShowTopMenu()%>

<%=ShowLeftMenu()%>

Back

 

Membership Update

Please update all of your information below:

After you update your info,

  You will receive an email with your username and password for the Members section of the website.

If you select to have a Plymouthfireco.com email,  you will receive that also.

Please allow 24 - 48 hours for your information to be processed.

* First Name:  
* Last Name:  
Address:
City:
State:
Zip Code:
* Phone:  
* Fire Company ID #
Would you like a PlymouthFireCo.com Email address? Yes    No

Requested Password -

Need a Password Reset for your Fire Co. Email or Members section account?  Yes

Requested Password -

* Email:  
Comments:


     

 
<%=ShowFooter()%>