simpleformat
       

contact

 

<% DIM mySQL, objRS mySQL = "SELECT * FROM photos WHERE PhotoCategory = 'Vancouver'" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.CursorType = 1 objRS.Open mySQL, objConn DIM intPageRecords, intRecords, intRecordCount, intCurrentPage DIM intNumberOfPages, intDisplayPage intPageRecords = Request.Querystring("page") IF intPageRecords = "" THEN intPageRecords = 1 : intRecords = 1 intRecords = intPageRecords intPageRecords = ((intPageRecords - 1) * 12) +1 intRecordCount = 0 IF NOT objRS.EOF THEN objRS.Move (intPageRecords - 1) DO WHILE intRecordCount < 12 and NOT objRS.EOF %> <% count = count + 1 If count = 1 Then %> <% End If %> <% objRS.MoveNext intRecordCount = intRecordCount +1 If count = 4 Then count = 0 %> <% End If Loop END IF If count <> 0 Then Response.Write ""%>
 
"> " style="border: 2px solid #FFFFFF">
<%=intPageRecords%> - <%=intPageRecords+(intRecordCount-1)%> of <%=(objRS.RecordCount)%> photos   <% intCurrentPage = Request.Querystring("page") IF intCurrentPage = "" THEN intCurrentPage = 1 intNumberOfPages = int(objRS.RecordCount \ 10) IF objRS.RecordCount MOD 10<> 0 THEN intNumberOfPages = intNumberOfPages + 0.5 Response.Write("Pages: [") FOR intDisplayPage = 1 TO intNumberOfPages IF Cint(intDisplayPage) = Cint(intCurrentPage) THEN Response.Write " " & intDisplayPage & " " ELSE Response.Write " " & intDisplayPage &_ " " END IF NEXT Response.Write ("]") %>

 
 

2006 simpleformat.com. All Rights Reserved.
Terms of use