%
RESPONSE.Flush()
if request.ServerVariables("REQUEST_METHOD") = "POST" then
message = ""
submitted = True
userpostcode = request("userpostcode")
testpostcode = uCase(replace(userpostcode," ",""))
if Len(Trim(testpostcode)) < 6 then message = message & "Please enter a full postcode"
if message = "" then
sql = "SELECT * FROM ResponseStandards WHERE PostCodeCollapse LIKE " & DBstring(testpostcode)
set rs = dbr.Execute(sql)
if not rs.EOF then
Postcode = rs("Postcode")
District = rs("District")
RiskAreaType = rs("RiskAreaType")
FireRiskLevel = rs("FireRiskLevel")
ff5Target = rs("ff5Target")
ff8Target = rs("ff8Target")
oldTarget = rs("oldTarget")
Station = rs("Station")
FRS = rs("FRS")
POBox = rs("POBox")
district = CheckNoData(district)
RiskAreaType = CheckNoData(RiskAreaType)
FireRiskLevel = CheckNoData(FireRiskLevel)
ff5Target = CheckNoData(ff5Target)
ff8Target = CheckNoData(ff8Target)
oldTarget = CheckNoData(oldTarget)
Station = CheckNoData(Station)
FRS = CheckNoData(FRS)
if POBox = "N" then
if FRS = "Shropshire" then
' Add an entry to the click counting table to record this successful hit. (added DBW 24 Aug 2006)
ip = request.ServerVariables("REMOTE_ADDR")
if ip = "217.40.146.132" then
sfrs = "true"
message = message & "You cannot use this facility from computers located on the SFRS network. Please refer to the local network copy of this site using the link below.
http://sfweb/internet/Management/IRMP/ResponseStandardCheck.asp."
else
sfrs = "false"
sql = "INSERT INTO PAFclick (Postcode,App,URL,IP,sfrs) VALUES (" & DBstring(postcode) & ",'RESPSTD'," & DBstring(right(request.ServerVariables("URL"),128)) & "," & DBstring(ip) & "," & sfrs & ")"
dbw.Execute(sql)
end if
else
if FRS = "Cheshire" then
website = "www.cheshirefire.gov.uk"
elseif FRS = "Staffordshire" then
website = "www.staffordshirefire.gov.uk"
elseif FRS = "West Midlands" then
website = "www.wmfs.net"
elseif FRS = "Hereford and Worcester" then
website = "www.hwfire.org.uk"
elseif FRS = "Mid and West Wales" then
website = "www.mawwfire.gov.uk"
elseif FRS = "North Wales" then
website = "www.nwales-fireservice.org.uk"
end if
message = message & "Postcode " & postcode & " is served by " & FRS & " Fire Service. Please refer to their website at " & website & " for details of their response standards."
end if
else
message = message & "Postcode " & Postcode & " is a PO Box and does not represent a geographical location for which a response standard can be calculated."
end if
else
message = message & "Sorry, postcode " & ucase(userpostcode) & " is not listed in our database. If you believe this is a valid postcode within Shropshire, please contact our IRMP team."
end if
end if
end if
function CheckNoData (val)
uval = trim(val)
if uval = "" or isEmpty(uval) or Isnull(uval) then uval = "No information"
CheckNoData = uval
end Function
%>
IRMP Response Standards | Shropshire Fire and Rescue Service