Welcome !
         

 Help with ASP recordset

Author Message
traianus

  • Total Posts : 1
  • Scores: 0
  • Reward points : 0
  • Joined: 8/5/2013
  • Status: offline
Help with ASP recordset Monday, August 05, 2013 10:36 PM (permalink)
0
Hi,
I have a page which lists products up to a certain number and then produces a move next etc series of links for viewing the remainder of products. The problem is that the links, producing the following URL: http://www.bhgardeners.co...rimmers&offset=15 make the code invalid, and despite my attempts to follow the recommendations of the validator: http://validator.w3.org/c...sp%3fFind%3dStrimmers I have been unable to correct this.
 
Here is the VBscript ASP code:
<% 
 ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters 
 
 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 
 %>

<message edited by traianus on Monday, August 05, 2013 10:40 PM>
 
#1
    Online Bookmarks Sharing: Share/Bookmark

    Jump to:

    Current active users

    There are 0 members and 2 guests.

    Icon Legend and Permission

    • New Messages
    • No New Messages
    • Hot Topic w/ New Messages
    • Hot Topic w/o New Messages
    • Locked w/ New Messages
    • Locked w/o New Messages
    • Read Message
    • Post New Thread
    • Reply to message
    • Post New Poll
    • Submit Vote
    • Post reward post
    • Delete my own posts
    • Delete my own threads
    • Rate post

    2000-2017 ASPPlayground.NET Forum Version 3.9