<%
CPage=Cint(Request.Form("CurrentPage")) 'get CPage value from form's CurrentPage field
Select Case Request.Form("Submit")
Case "Previous" 'if prev button pressed
CPage = Cint(CPage) - 1 'decrease current page
Case "Next" 'if next button pressed
CPage = Cint(CPage) + 1 'increase page count
End Select
Set Cn=Server.CreateObject("ADODB.Connection") 'create connection
Cn.CursorLocation = 3
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("data\brycodata.mdb") & ";"
Set Rs=Server.CreateObject("ADODB.Recordset") 'create recordset
if request("CID")<>"" then
Rs.Open "Select * from reseller_details WHERE reseller_country_code = '" & request("CID") & "' ORDER BY reseller_company ASC",Cn,2,2
else
Rs.Open "Select * from reseller_details ORDER BY reseller_company ASC",Cn,2,2
end if
Rs.PageSize=iPageSize
if CPage=0 Then CPage=1 'initially make current page = first page
if Not(Rs.EOF) Then Rs.AbsolutePage=CPage 'specifies that current record resides In CPage
TotPage=Rs.PageCount
'stores total no. of pages
For i=1 To Rs.PageSize%>
bgcolor="#CCCCCC">
<%grey=false
else%>
bgcolor="#ffffff">
<%grey=true
end if%>
<%
Rs.MoveNext
if Rs.EOF Then Exit For
Next
'close all connections and recordsets
Rs.Close
Cn.Close
Set Rs = Nothing
Set Cn = Nothing
%>
<%if totpage>1 then%> Page <%=CPage %> of <%=TotPage %> <%end if%>
<%=rs("reseller_company")%> |
|||||||||||||
<%if rs("reseller_address1")<>"" then
response.write(rs("reseller_address1") & " |
<%if rs("reseller_buy_online_text")<>"" then%>
Buy online at "m" then%>http://<%end if%><%=rs("reseller_buy_online_link")%>" target="blank"><%=rs("reseller_buy_online_text")%>
<%end if%>
|
||||||||||||
<%if rs("reseller_buyinstore")<>"" then%>
Buy in-store at <%=rs("reseller_buyinstore")%>
<%end if%>
|
|||||||||||||
|
|
<%if totpage>1 then%> Page <%=CPage %> of <%=TotPage %> <%end if%>