| |
|
|
|
|
<%
DIM mySQL, objRS
mySQL = "SELECT * FROM photos WHERE PhotoSubcategory = 'Poinsettia'"
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 ""%>
|
<%=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 ("]")
%>
|
Flowers- courtesy of West Coast Gardens
1420 - 172nd Street
Surrey, B.C. V3S 9M6
Phone: 604-541-1117
Email:
Gardens@WestCoastFloral.com
Directions:
Map Quest
|
|
|
|
|
|
|
|
|
|