<% Option Explicit dim Owner,SiteName,PresentUse,ProposedUse,Address,CityState,Contact,CustomerAddress,CustomerCityState dim Phone,Fax,DateOrdered,DateRequired, Firm dim Msg, FocusField, Screen Call Main sub d(x) Response.Write "
" Response.Write x Response.Write "
" end sub function LoadVal(fld, required, msgtext) LoadVal = Trim(Request.Form(fld)) if required then if LoadVal = "" and msg = "" then Msg = msgtext FocusField = fld end if end if end function function IsPhoneAllowBlank(p) if trim(p) = "" then IsPhoneAllowBlank = true else IsPhoneAllowBlank = IsPhone(p) end if end function function IsPhone(p) dim x x = Replace(p, " ", "") x = Replace(x, ".", "") x = Replace(x, "(", "") x = Replace(x, ")", "") x = Replace(x, "[", "") x = Replace(x, "]", "") x = Replace(x, "+", "") x = Replace(x, "-", "") IsPhone = IsNumeric(x) end function function IsEmail(e) dim r r = true if Instr(e, "@") < 1 then r = false elseif Instr(e, ".") < 1 then r = false elseif Instr(e, " ") > 0 then r = false elseif Instr(e, "/") > 0 then r = false elseif Instr(e, ":") > 0 then r = false elseif Instr(e, "?") > 0 then r = false end if IsEmail = r end function function SendTheMail dim Mailer, Body Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "smtp.longwatercorp.org:2525" Mailer.ReturnReceipt = false Mailer.ConfirmRead = false Mailer.Priority = 1 Mailer.Urgent = false Mailer.Timeout = 30 Mailer.FromName = SiteName Mailer.FromAddress = "info@zoningsol.com" Mailer.AddRecipient "Zoning Solutions", "info@zoningsol.com" Mailer.Subject = "Online certificate request submitted" Body = "A quote request form has been submitted on the website at " & now & vbCrLf Body = Body & vbCrLf Body = Body & "Site Information:" & vbCrLf Body = Body & "-----------------" & vbCrLf Body = Body & vbCrLf Body = Body & "Owner: " & Owner & vbCrLf Body = Body & "Site Name: " & SiteName & vbCrLf Body = Body & "Present Use: " & PresentUse & vbCrLf Body = Body & "Proposed Use: " & ProposedUse & vbCrLf Body = Body & "Address: " & Address & vbCrLf Body = Body & "City/State: " & CityState & vbCrLf Body = Body & vbCrLf Body = Body & "Customer Information:" & vbCrLf Body = Body & "---------------------" & vbCrLf Body = Body & "Contact: " & Contact & vbCrLf Body = Body & "Firm: " & Firm & vbCrLf Body = Body & "Address: " & CustomerAddress & vbCrLf Body = Body & "City/State: " & CustomerCityState & vbCrLf Body = Body & "Phone: " & Phone & vbCrLf Body = Body & "Fax: " & Fax & vbCrLf Body = Body & "Date Ordered: " & DateOrdered & vbCrLf Body = Body & "Date Required: " & DateRequired & vbCrLf Mailer.BodyText = Body if not Mailer.SendMail then Msg = "Your request could not be submitted. This is likely a temprary condition. Please try again later. " end if set Mailer = nothing end function sub Main if Request.Form("Post") <> "Y" then DateOrdered = Month(now) & "/" & day(now) & "/" & year(now) DateRequired = Month(now) & "/" & day(now) & "/" & year(now) exit sub end if Msg = "" Owner = LoadVal("Owner", true, "Please enter something at ""Owner"".") SiteName = LoadVal("SiteName", true, "Please enter something at ""Site Name"".") PresentUse = LoadVal("PresentUse", true, "Please enter something at ""Present Use"".") ProposedUse = LoadVal("ProposedUse", true, "Please enter something at ""Proposed Use"".") Address = LoadVal("Address", true, "Please enter something at ""Site Address"".") CityState = LoadVal("CityState", true, "Please enter something at ""Site City/State"".") Contact = LoadVal("Contact", true, "Please enter something at ""Contact"".") Firm = LoadVal("Firm", true, "Please enter something at ""Firm"".") CustomerAddress = LoadVal("CustomerAddress", true, "Please enter something at ""Customer Address"".") CustomerCityState = LoadVal("CustomerCityState", true, "Please enter something at ""Customer City/State"".") Phone = LoadVal("Phone", true, "Please enter something at ""Phone"".") Fax = LoadVal("Fax", true, "Please enter something at ""Fax"".") DateOrdered = LoadVal("DateOrdered", true, "Please enter something at ""Date Ordered"".") DateRequired = LoadVal("DateRequired", true, "Please enter something at ""Date Required"".") if Msg <> "" then exit sub end if if not IsPhone(Phone) then Msg = "Please provide a valid Phone number" FocusField = "Phone" exit sub end if if not IsPhone(Fax) then Msg = "Please provide a valid Fax number" FocusField = "Fax" exit sub end if if not IsDate(DateOrdered) then Msg = "Please enter a valid date at Date Ordered" FocusField = "DateOrdered" exit sub end if if not IsDate(DateRequired) then Msg = "Please enter a valid date at Date Required" FocusField = "DateRequired" exit sub end if SendTheMail if Msg <> "" then exit sub end if Screen = "Done" end sub sub WriteFocusField if FocusField = "" then exit sub end if %> <% end sub %> Zoning Solutions Online Certificate
Zoning Solutions
Zoning Solutions
Information
Online Certificate
Contact Us
   

Zoning Solutions, Inc.
836 Washington street
P.O. Box 850270
Braintree, Ma 02185

 Tel: 781-848-0089
Fax: 781-380-4136

 

 

 

 

Click HERE for sample certificate.

Click HERE to download the ORDER FORM in PDF format.

<%if Screen = "Done" then%>


Thank you for your interest!

Your request has been submitted to our site administrator.

We will process your request as soon as possible.

<%else%>
" name="Cert" method=post>

ZONING DUE DILIGENCE ORDER FORM

<%if Msg <> "" then%> <%end if%>
<%=Msg%>
    Site Information
Owner:
Site Name:
Present Use:
Proposed Use:
(if different)
Address:
City/State:
    Customer Information
Contact:
Firm:
Address:
City/State:
Phone:
Fax:
Date Ordered:
Date Required:
<%end if%>