<% nof_rootDir="../" nof_scriptDir="scripts" nof_debug=true nof_sitePath = GetSitePath(nof_rootDir) function GetSitePath(RootDir) Dim relPath relPath = split(RootDir, "/") forwardSteps = UBound(relPath) - 1 if forwardSteps = 0 and relPath(0) = "." then forwardSteps = -1 GetSitePath = Server.MapPath(".") for idx=0 to forwardSteps GetSitePath = Left(GetSitePath, inStrRev(GetSitePath, "\") - 1) next GetSitePath = GetSitePath & "\" end function %> <% function FileExists(ByVal file, ByVal sitePath, ByVal scriptDir) dim fso, filePath on error resume next Set fso = Server.CreateObject("Scripting.FileSystemObject") filePath = sitePath & scriptDir & "\" & file FileExists = fso.FileExists(filePath) set fso = nothing end function %> <% sub IncludeLib(ByVal lib, ByVal sitePath, ByVal scriptDir) dim fso, f, buf, filePath Set fso = Server.CreateObject("Scripting.FileSystemObject") filePath = sitePath & scriptDir & "\" & lib if fso.FileExists(filePath) then set f = fso.OpenTextFile(filePath, 1, false, -2) buf = f.ReadAll f.close() set f = nothing Dim regEx Set regEx = New RegExp regEx.Pattern = "^\s*<" & chr(37) & "\s*" regEx.IgnoreCase = True regEx.Global = True buf = regEx.Replace(buf,"") regEx.Pattern = "\s*" & chr(37) & ">\s*$" regEx.IgnoreCase = True regEx.Global = True buf = regEx.Replace(buf, "") set regEx = nothing ExecuteGlobal buf else if nof_debug then Response.Write "Could not include the file `" & filePath & "`." else Response.Write "

An error occured. Please contact the site administrator.

" Response.Write "

Error code: 103

" end if Response.End end if set fso = nothing end sub %> <% call IncludeLib("nof_util.asp", nof_sitePath, nof_scriptDir) %> SecuritySurvey

Security Survey
[Home] [Sec Survey]

REPORTING ANY INFORMATION IS NOT DEPENDENT ON YOUR PERSONAL DETAILS BUT GENERAL LOCATIONS ARE IMPORTANT

Any information supplied will be kept confidential.
<% if FileExists("rememberValues.js", nof_sitePath, nof_scriptDir) then %>
Have you had a vehicle stolen?<% if Len(request("1194009066531_CarTheftErrImg")) > 0 then response.write "" end if %>
Has your vehicle been vandalised?<% if Len(request("1194009066531_CarVanErrImg")) > 0 then response.write "" end if %>
Have you had anything stolen from your vehicle?<% if Len(request("1194009066531_someNameErrImg")) > 0 then response.write "" end if %>
Have the vehicle related incidents been reported to the police?<% if Len(request("1194009066531_CarReportedErrImg")) > 0 then response.write "" end if %>
Vehicles: Have you had a satisfactory response from the police?<% if Len(request("1194009066531_CarPoliceOkErrImg")) > 0 then response.write "" end if %>
Vehicle Incidents: Please give details, dates and times.<% if Len(request("1194009066531_CarTeheftNotesErrImg")) > 0 then response.write "" end if %>
Have you had a burglary?<% if Len(request("1194009066531_HouseBurgledErrImg")) > 0 then response.write "" end if %>
Has your home been vandalised?<% if Len(request("1194009066531_HouseVanErrImg")) > 0 then response.write "" end if %>
Have you experienced any Anti-Social behaviour?<% if Len(request("1194009066531_EstateASBOErrImg")) > 0 then response.write "" end if %>
Have the house/flat related incidents been reported to the police?<% if Len(request("1194009066531_HouseReportedErrImg")) > 0 then response.write "" end if %>
House: Have you had a satisfactory response from the police?<% if Len(request("1194009066531_HousePoiceOkErrImg")) > 0 then response.write "" end if %>
House Incidents: Please give details, dates and times.<% if Len(request("1194009066531_HouseNotesErrImg")) > 0 then response.write "" end if %>
Estate: Please give details if you have ever felt unsafe (where?)<% if Len(request("1194009066531_EstateUnsafeErrImg")) > 0 then response.write "" end if %>
Estate Incidents: Have you had a satisfactory response from the police?<% if Len(request("1194009066531_EstatePoliceOkErrImg")) > 0 then response.write "" end if %>
Have you been aware of police foot patrols on the estate? If so how many<% if Len(request("1194009066531_EstatePolicePatrolsErrImg")) > 0 then response.write "" end if %>
Estate: Please rate how safe you feel on the estate<% if Len(request("1194009066531_EstateRateSafeErrImg")) > 0 then response.write "" end if %>
Estate: Please rate if the safety compares today against 1 year ago<% if Len(request("1194009066531_EstateRateImproveErrImg")) > 0 then response.write "" end if %>
Have you had any problems with pedestrian access to the estate? (includes Co-Op etc)<% if Len(request("1194009066531_RustonRoadAccessErrImg")) > 0 then response.write "" end if %>
Any further information that could be of use to the police and the Residents Association<% if Len(request("1194009066531_AnyInfoErrImg")) > 0 then response.write "" end if %>
General location of your home<% if Len(request("1194009066531_BlockNameErrImg")) > 0 then response.write "" end if %>
House / Flat Number (or range)<% if Len(request("1194009066531_HouseNoErrImg")) > 0 then response.write "" end if %>
Type of Dwelling<% if Len(request("1194009066531_TypeOfDwellingErrImg")) > 0 then response.write "" end if %>
First name<% if Len(request("1194009066531_firstNameErrImg")) > 0 then response.write "" end if %>
Last name<% if Len(request("1194009066531_lastNameErrImg")) > 0 then response.write "" end if %>
Phone<% if Len(request("1194009066531_phoneErrImg")) > 0 then response.write "" end if %>
EMail Address<% if Len(request("1194009066531_EMailErrImg")) > 0 then response.write "" end if %>
Additional Information<% if Len(request("1194009066531_AddInfoErrImg")) > 0 then response.write "" end if %>
<% if Len(request("1194009066531_SubmitErrImg")) > 0 then response.write "" end if %>
<%=request("1194009066531_Errors")%>
<% Response.Write "" else if nof_debug then Response.Write "Could not include the file `" & nof_sitePath & nof_scriptDir & "\" & "rememberValues.js`." else Response.Write "

An error occured. Please contact the site administrator.

" Response.Write "

Error code: 103

" end if end if %>
BuiltWithNOF
[Sec Survey]