Return to Last Page Visited.

Bulletin for Builders Archive


Bulletin for Builders Archive

<% Const PageSize = 10 'Number of records per page Const ixCatalog = "D:\_catalog" 'Index Server Catalog Const docPath = "development/bfb/pdf" 'Path to documents Const ThisPage = "default.asp" 'Filename of current page Dim searchstring 'searchstring = "permits" searchstring = Request("query") Dim PageNo If Request.Querystring("Page") = "" Then PageNo = 1 Else PageNo = Request.Querystring("Page") End If Dim ixQuery, ixUtil Dim rsJobdesc Set ixQuery = Server.CreateObject("ixsso.query") Set ixUtil = Server.CreateObject("ixsso.util") ixQuery.Catalog = ixCatalog ixQuery.Columns = "doctitle, vpath, filename, size, write, characterization, rank, dockeywords, docsubject" ixQuery.SortBy = "doctitle[a]" 'ixQuery.MaxRecords = 500 'ixQuery.Query = "#dockeywords |[" & searchstring & "]* and #filename *.pdf" IF searchstring = "" THEN ixQuery.Query = "#filename *.pdf" ELSE ixQuery.Query = "@dockeywords " & searchstring & " and #filename *.pdf" END IF ixUtil.AddScopeToQuery ixQuery, "/" & docPath, "deep" 'Run the query set rsJobdesc = ixQuery.CreateRecordset("nonsequential") If Not rsJobdesc.EOF THEN 'Multiple page variables rsJobdesc.CacheSize = PageSize rsJobdesc.MoveFirst 'Move to first record rsJobdesc.PageSize = PageSize rsJobdesc.AbsolutePage = PageNo End If %>
<% ELSE Response.Write("") END IF %>
Type in one or more keywords to search the bulletins:

<% If Not rsJobdesc.EOF THEN %> <% If searchstring > "" THEN Response.Write("") End If %> <% Dim intCount, RowColor, FileSize intCount = 0 Do While Not rsJobdesc.EOF and intCount < PageSize If RowColor = "#FFFFFF" Then RowColor = "#F7F5F4" Else RowColor = "#FFFFFF" End If FileSize = "" & rsJobdesc("size") & "" FileSize = round(int(FileSize)/1000) %> <% rsJobdesc.MoveNext intCount = intCount + 1 Loop %>
") Response.Write("Search results for '" & searchstring & "'") Response.Write("
Issue #

File Size

"><%=rsJobdesc("doctitle")%>
<% IF rsJobdesc("docsubject") > "" THEN Response.Write(rsJobdesc("docsubject")) Response.Write("
") END IF %> <%=rsJobdesc("dockeywords")%>
<%=FileSize%> KB
<% Response.Write "
-- Page " & PageNo & " of " & rsJobdesc.PageCount & " --
" 'If current page is more than 1 then display previous button If cint(PageNo) > 1 Then Response.Write "Previous Page" End If If cint(PageNo) < cint(rsJobdesc.PageCount) AND cint(PageNo) > 1 Then Response.Write " | " End If 'If current page is less than the total number of pages display next button If cint(PageNo) < cint(rsJobdesc.PageCount) Then Response.Write "Next Page" End If %>

Get The Free Adobe Acrobat ReaderThese documents are distributed in Portable Document Format. You must have the free
Adobe Acrobat Reader installed on your computer to view or print these files.
") Response.Write("No Records Returned for '" & searchstring & "'") Response.Write("

<% If instr(strURL,"aspscripts/pfp.asp") then %>
<% Else %> <% End if %>