<% @LANGUAGE = VBScript %> <% Option Explicit Response.Expires = 0 Response.Buffer = true Dim strQuery, strCaseId, strCaseno, strSearch, strAddress Dim strQueryB, strQueryP, intOpenError Dim intLoopCount Dim strDocId, strPageCount, strFlags 'on error resume next %> Dummy documents ASP page <% strCaseId = Request.QueryString("CaseId") Session("DocumentList") = "Documents.asp?caseid=" & trim(strCaseId) strSearch = "WHERE apps.caseid = '" + trim(strCaseId) +"' " strQuery="SELECT CaseNo, Address from Apps " strQuery=strQuery & strSearch set objRS=objConn.Execute(strQuery) %>
" else objRS.MoveFirst strCaseNo = cstr(objRS.fields("caseno")) strAddress = (objRS.fields("address")) response.write "

" & strCaseno & "
" & strAddress & "

" 'Access data on dbo.PLANNING objRS.Close 'set objRS = nothing strQueryB = "Select dwdocid, dwpagecount, dwflags, documenttype " strQueryB = strQueryB & "from dbo.PLANNING where caseno = '" & trim(strCaseId) & "'" set objRS=objConn.Execute(strQueryB) if objRS.bof and objRS.eof then response.write "

Documents not found - please try again


" response.write "" else objRS.MoveFirst %>

RBCLOG.gif (2464 bytes)

<% if objRS.bof and objRS.eof then response.write "

Details not found - please try again


" response.write "

Click here to search for another application

Click here to search for another application

Please note that JPEG images are only provided for users with old browser software. Both image types are the same size and resolution, however, the JPEG file size is considerably larger and will take much longer to download. Therefore only use the JPEG if your browser does not display the normal image.

Also, please note that the image files you are about to view are produced from
the original documents received by the Borough Council. Every effort is
made to provide the best image possible but this is occasionally limited by
the quality of the original document.

  <% end if intLoopCount = 0 Do while not objRS.eof %> <% objRS.Movenext loop %>

Document Type

 Pages    
<% intLoopCount = intLoopCount + 1 strDocId = trim(objRS.Fields("dwdocid")) strPageCount = trim(objRS.Fields("dwpagecount")) strFlags = trim(objRS.Fields("dwflags")) if objRS.Fields("documenttype") <> "" then response.write Trim(objRS.Fields("documenttype")) else response.write "UNKNOWN DOCUMENT" end if %> <% response.write strPageCount %> <% response.write "" %> Normal image <% ' response.write cstr(intLoopCount) %> <% response.write "" %> JPEG image
 <% response.write "" %>

<% end if %> <% ' close recordset and free resources objRS.close objConn.close Set objRS = Nothing Set objConn = Nothing ' error handling if err.number <> 0 then response.write "

Error! " + Err.description +"

" end if %>