<% 'results per page constant Const NumPerPage = 20 If request.QueryString("page") = "" then CurrentPage = 1 'We're on the first page 're-locate local_variables into session_variables to allow page switching session("pass_type") = request.QueryString("type") session("pass_sort") = request.QueryString("sort") if request.QueryString("item") <> "" then session("pass_item") = request.QueryString("item") Else CurrentPage = CInt(request.QueryString("page")) End If dim sSQL strDBPath = Server.MapPath("/App_Data/brittons.mdb") Set cnnSimple = Server.CreateObject("ADODB.Connection") cnnSimple.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & strDBPath & "; PWD=" Set rs = Server.CreateObject("ADODB.Recordset") 'search by type only If session("pass_type") <> "" then sSQL = "SELECT * FROM " & session("pass_item") & " WHERE TYPE = '" & session("pass_type") & "'" Session("SQL") = sSQL sSQL = sSQL & " ORDER by REF_NO DESC" end if 're-order existing sql string if session("pass_sort") <> "" then sort = session("pass_sort") order = "DESC" If sort = "our_price_lh" then sort = "our_price" order = "ASC" end if If sort = "our_price_hl" then sort = "our_price" order = "DESC" end if sSQL = session("SQL") & " ORDER by " & sort & " " & order end if 'debug info 'response.write sSQL & "
" 'response.end rs.Open sSQL, cnnSimple, 1, 1 Dim recCount, Count If Not rs.EOF Then rs.MoveLast recCount = rs.RecordCount rs.MoveFirst rs.PageSize = NumPerPage TotalPages = rs.PageCount rs.AbsolutePage = CurrentPage End If Dim v, RangeStart, RangeEnd RangeStart = ((rs.PageSize * CurrentPage) - rs.PageSize) + 1 v = recCount - (rs.PageSize * (CurrentPage - 1)) If v < rs.PageSize then RangeEnd = rs.PageSize * (CurrentPage - 1) + v Else RangeEnd = rs.PageSize * CurrentPage End if %>

 

<%=recCount & " " & ucase(rs.fields("TYPE").value)%>

Sort By:

 

Displaying <%=RangeStart%> - <%=RangeEnd%> of <%=recCount%> Below:

<%If Not CurrentPage = 1 Then %> Goto Previous Page <%Else%> <%End If%>  |  <%If Not CurrentPage = TotalPages Then %> Goto Next Page <%Else%> <%End If%>



<%Do While Not rs.EOF AND Count < rs.PageSize%>

 

 <%If rs.fields("ADD01").value <> "" then%> <%end if%>
s.jpg" border="0" cellpadding="0" cellspacing="0" width="100" height="200">
<%If rs.fields("OUR_PRICE").value <> "" then%>

.jpg" target="_blank" title="Click Me for a Closer Look!">

<%else%>

.jpg" target="_blank" title="Click Me for a Closer Look!">

<%end if%>

 

<%=rs.fields("REF_NO").value%>


    OUR PRICE: <%If rs.fields("OUR_PRICE").value <> "" then %>', 0, 0, 600, 170, 0, 0, 0, 0, 0)" target="_self">£<%=rs.fields("OUR_PRICE").value%><% else %>SOLD <%end if%>
    NEW COST*: <%If rs.fields("NEW_COST").value <> "" then %>', 0, 0, 600, 170, 0, 0, 0, 0, 0)" target="_self">£<%=rs.fields("NEW_COST").value%><% else response.write "N/A" end if %>
    SAVING: <%If (rs.fields("OUR_PRICE").value <> "" AND rs.fields("NEW_COST").value <> "") then response.write int(100 - (100 / (rs.fields("NEW_COST").value / rs.fields("OUR_PRICE").value))) & "%" else response.write "N/A"%>
    REF #: <%=rs.fields("REF_NO").value%>
    CONDITION: <%=rs.fields("CONDITION").value%>

 

 

 

 

    ADDTIONAL IMAGES:
<%If rs.fields("ADD01").value <> "" then%>    _ADD01.jpg" target="_blank">Click here to view Additional Image 1<%end if%> <%If rs.fields("ADD02").value <> "" then%>
    _ADD02.jpg" target="_blank">Click here to view Additional Image 2<%end if%> <%If rs.fields("ADD03").value <> "" then%>
    _ADD03.jpg" target="_blank">Click here to view Additional Image 3<%end if%> <%If rs.fields("ADD04").value <> "" then%>
    _ADD04.jpg" target="_blank">Click here to view Additional Image 4<%end if%> <%If rs.fields("ADD05").value <> "" then%>
    _ADD05.jpg" target="_blank">Click here to view Additional Image 5<%end if%> <%If rs.fields("ADD06").value <> "" then%>
    _ADD06.jpg" target="_blank">Click here to view Additional Image 6<%end if%> <%If rs.fields("ADD07").value <> "" then%>
    _ADD07.jpg" target="_blank">Click here to view Additional Image 7<%end if%> <%If rs.fields("ADD08").value <> "" then%>
    _ADD08.jpg" target="_blank">Click here to view Additional Image 8<%end if%> <%If rs.fields("ADD09").value <> "" then%>
    _ADD09.jpg" target="_blank">Click here to view Additional Image 9<%end if%> <%If rs.fields("ADD10").value <> "" then%>
    _ADD10.jpg" target="_blank">Click here to view Additional Image 10<%end if%>



<% rs.MoveNext count = count + 1 response.flush Loop %>

 

 

<%If Not CurrentPage = 1 Then %> Goto Previous Page <%Else%> <%End If%>  |  <%If Not CurrentPage = TotalPages Then %> Goto Next Page <%Else%> <%End If%>



 


<% rs.close Set rs = Nothing cnnSimple.Close Set cnnSimple = Nothing %>