<% @ Language="VBScript" %>
<% Option Explicit %>
<%
const title = "view a HIP"
'feeds title tag & H2
%>
J M Harrison :: <% =replace(pCase(title), "–", "::") %>
<%
'Vars & objs
dim hipCode, msg, doIt, oConn, oRS, sql
set oConn = server.createObject("ADODB.connection")
set oRS = server.createObject("ADODB.recordset")
oConn.open conStr
'Read value off form
hipCode = request.form("hipCode")
'See whether value corresponds to a published HIP & route forwards if so
if len(hipCode) > 0 then
sql = "SELECT hipCode FROM tHips WHERE hipCode = '" & hipCode & "' AND hipPublish = TRUE;"
oRS.open sql, oConn
if oRS.bof and oRS.eof then
msg = br & "That is not a valid code for a published HIP"
else
doIt = true
end if
oRS.close
end if
if doIt = true then
response.redirect("viewHip/?id=" & hipCode)
end if
%>
<% =fSting("hips") & title %>
To view a Home Information Pack (HIP) for one of my clients, you’ll need the HIP Code I have provided.