At first run-through, I don't see anything there that
shouldn't work. I
made my own page with a database of mine that does the same
sort of paging
and that works fine so I have to assume it's in the
recordset.
When you get to the end, it should just load the last page
again .. mine
does. The fact that you get a blank page with no recordsets
makes it sound
as if it was expecting more records
Try this. Make a new page and a plain display recordset on it
without the
filtering. A sort of display all type thing. Then put on your
repeat
region for 5 or 10 records per page and add the paging. Get
that working
with a straight display page .. then go back and add your
original filtered
recordset in instead of the plain one and see if that works
for you.
--
Nancy Gill
Adobe Community Expert
BLOG:
http://www.dmxwishes.com/blog.asp
Author: Dreamweaver 8 e-book for the DMX Zone
Co-Author: Dreamweaver MX: Instant Troubleshooter (August,
2003)
Technical Editor: DMX 2004: The Complete Reference, DMX 2004:
A Beginner's
Guide, Mastering Macromedia Contribute
Technical Reviewer: Dynamic Dreamweaver MX/DMX: Advanced PHP
Web Development
"FissDesign" <webforumsuser@macromedia.com> wrote in
message
news:e88bf5$r6s$1@forums.macromedia.com...
> Dim MM_keepNone
> Dim MM_keepURL
> Dim MM_keepForm
> Dim MM_keepBoth
>
> Dim MM_removeList
> Dim MM_item
> Dim MM_nextItem
>
> ' create the list of parameters which should not be
maintained
> MM_removeList = "&index="
> If (MM_paramName <> "") Then
> MM_removeList = MM_removeList & "&" &
MM_paramName & "="
> End If
>
> MM_keepURL=""
> MM_keepForm=""
> MM_keepBoth=""
> MM_keepNone=""
>
> ' add the URL parameters to the MM_keepURL string
> For Each MM_item In Request.QueryString
> MM_nextItem = "&" & MM_item & "="
> If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
> MM_keepURL = MM_keepURL & MM_nextItem &
> Server.URLencode(Request.QueryString(MM_item))
> End If
> Next
>
> ' add the Form variables to the MM_keepForm string
> For Each MM_item In Request.Form
> MM_nextItem = "&" & MM_item & "="
> If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
> MM_keepForm = MM_keepForm & MM_nextItem &
> Server.URLencode(Request.Form(MM_item))
> End If
> Next
>
> ' create the Form + URL string and remove the intial
'&' from each of the
> strings
> MM_keepBoth = MM_keepURL & MM_keepForm
> If (MM_keepBoth <> "") Then
> MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
> End If
> If (MM_keepURL <> "") Then
> MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
> End If
> If (MM_keepForm <> "") Then
> MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
> End If
>
> ' a utility function used for adding additional
parameters to these
> strings
> Function MM_joinChar(firstItem)
> If (firstItem <> "") Then
> MM_joinChar = "&"
> Else
> MM_joinChar = ""
> End If
> End Function
> %>
> <%
> ' *** Move To Record: set the strings for the first,
last, next, and
> previous
> links
>
> Dim MM_keepMove
> Dim MM_moveParam
> Dim MM_moveFirst
> Dim MM_moveLast
> Dim MM_moveNext
> Dim MM_movePrev
>
> Dim MM_urlStr
> Dim MM_paramList
> Dim MM_paramIndex
> Dim MM_nextParam
>
> MM_keepMove = MM_keepBoth
> MM_moveParam = "index"
>
> ' if the page has a repeated region, remove 'offset'
from the maintained
> parameters
> If (MM_size > 1) Then
> MM_moveParam = "offset"
> If (MM_keepMove <> "") Then
> MM_paramList = Split(MM_keepMove, "&")
> MM_keepMove = ""
> For MM_paramIndex = 0 To UBound(MM_paramList)
> MM_nextParam = Left(MM_paramList(MM_paramIndex),
> InStr(MM_paramList(MM_paramIndex),"=") - 1)
> If (StrComp(MM_nextParam,MM_moveParam,1) <> 0)
Then
> MM_keepMove = MM_keepMove & "&" &
MM_paramList(MM_paramIndex)
> End If
> Next
> If (MM_keepMove <> "") Then
> MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
> End If
> End If
> End If
>
> ' set the strings for the move to links
> If (MM_keepMove <> "") Then
> MM_keepMove = Server.HTMLEncode(MM_keepMove) &
"&"
> End If
>
> MM_urlStr = Request.ServerVariables("URL") & "?"
& MM_keepMove &
> MM_moveParam
> & "="
>
> MM_moveFirst = MM_urlStr & "0"
> MM_moveLast = MM_urlStr & "-1"
> MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)
> If (MM_offset - MM_size < 0) Then
> MM_movePrev = MM_urlStr & "0"
> Else
> MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
> End If
> %>
> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01
Transitional//EN"
> "
http://www.w3.org/TR/html4/loose.dtd">
> <html>
> <head>
> <meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
> <title>Untitled Document</title>
> </head>
>
> <body>
> <%
> While ((Repeat1__numRows <> 0) AND (NOT
Recordset1.EOF))
> %>
> <table width="300" border="1" cellspacing="2"
cellpadding="2">
> <tr>
>
<td><%=(Recordset1.Fields.Item("id").Value)%></td>
> </tr>
> <tr>
>
<td><%=(Recordset1.Fields.Item("country").Value)%></td>
> </tr>
> <tr>
>
<td><%=(Recordset1.Fields.Item("refno").Value)%></td>
> </tr>
> <tr>
>
<td><%=(Recordset1.Fields.Item("pic_thumbnail").Value)%></td>
> </tr>
> <tr>
>
<td><%=(Recordset1.Fields.Item("location_description").Value)%></td>
> </tr>
> <tr>
>
<td><%=(Recordset1.Fields.Item("email").Value)%></td>
> </tr>
> <tr>
>
<td><%=(Recordset1.Fields.Item("weblink").Value)%></td>
> </tr>
> <tr>
>
<td><%=(Recordset1.Fields.Item("short_description").Value)%></td>
> </tr>
> <tr>
>
<td><%=(Recordset1.Fields.Item("full_description").Value)%></td>
> </tr>
> <tr>
>
<td><%=(Recordset1.Fields.Item("rentsale").Value)%></td>
> </tr>
> <tr>
>
<td><%=(Recordset1.Fields.Item("location").Value)%></td>
> </tr>
> <tr>
>
<td><%=(Recordset1.Fields.Item("continent").Value)%></td>
> </tr>
> </table>
> <%
> Repeat1__index=Repeat1__index+1
> Repeat1__numRows=Repeat1__numRows-1
> Recordset1.MoveNext()
> Wend
> %>
> <table border="0" width="50%" align="center">
> <tr>
> <td width="23%" align="center"><% If MM_offset
<> 0 Then %>
> <a href="<%=MM_moveFirst%>">First</a>
> <% End If ' end MM_offset <> 0 %>
> </td>
> <td width="31%" align="center"><% If MM_offset
<> 0 Then %>
> <a
href="<%=MM_movePrev%>">Previous</a>
> <% End If ' end MM_offset <> 0 %>
> </td>
> <td width="23%" align="center"><% If Not
MM_atTotal Then %>
> <a href="<%=MM_moveNext%>">Next</a>
> <% End If ' end Not MM_atTotal %>
> </td>
> <td width="23%" align="center"><% If Not
MM_atTotal Then %>
> <a href="<%=MM_moveLast%>">Last</a>
> <% End If ' end Not MM_atTotal %>
> </td>
> </tr>
> </table>
> </BODY></HTML>
> </body>
> </html>
> <%
> Recordset1.Close()
> Set Recordset1 = Nothing
> %>
>
>
>
>
>
> Done in 2 parts.
>
> Thank you
>
1 Correct answer
11
Replies
AdChoices