Did you try using recordset paging? It sounds like that's what you're trying to do and have written your own code to accomplish it rather than using the built in functionality of the recordset object. For an example of the recordset object's paging functionality take a look at: http://www.learnasp.com/learn/dbtablepaged.asp Dan
________________________________ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Heather Sent: 19 July 2005 23:32 To: [email protected] Subject: [AspClassicAnyQuestionIsOk] Re: Randomisation of results - ASP/SQL Hiya guys! Hey, have I stumped you with this one? It's awfully quiet. I must admit I've been playing around with the code for a week and a half and I just keep getting so far but can't seem to get it to work completely. Help! Cheers, Heather --- In [email protected], "Heather" <[EMAIL PROTECTED]> wrote: > --- In [email protected], "Mischa Kroon" > <[EMAIL PROTECTED]> wrote: > > Show the code maybe we can help ... without it it would be hard :) > > Hiya, > > Sorry! I'm new to this! The background for this page is - on my > site, you go through a main category, then a sub-category, then a map > and then you come to this page which has up to 10 records on the first > page and then so on until all records are shown. It uses 2 separate > connection files and 2 ODBC connections which link up to the SQL > databases. (The rsAdvertising bits pull down ads down the side of my > page which works correctly - it's the main content of the page which > isn't working right but I wasn't completely sure which bits to omit so > decided against.) Here's the code (I'm sorry, there's a lot. Again, > I didn't know what bits to snip out so I'm posting the lot - I > inherited it from a developer). > > Any help gratefully received! > > Heather > > > <% > Dim rsAdvertising__MMColParam > rsAdvertising__MMColParam = "Show" > If (Request("MM_EmptyValue") <> "") Then > rsAdvertising__MMColParam = Request("MM_EmptyValue") > End If > %> > <% > Dim rsAdvertising > Dim rsAdvertising_numRows > > Set rsAdvertising = Server.CreateObject("ADODB.Recordset") > rsAdvertising.ActiveConnection = MM_advertising_STRING > rsAdvertising.Source = "SELECT * FROM advertising WHERE adVisibility = > '" + Replace(rsAdvertising__MMColParam, "'", "''") + "'" > rsAdvertising.CursorType = 2 > rsAdvertising.CursorLocation = 2 > rsAdvertising.LockType = 1 > rsAdvertising.Open() > > rsAdvertising_numRows = 0 > %> > <% > Dim rsServices__varCategory > rsServices__varCategory = "%" > If (Request.QueryString("category") <> "") Then > rsServices__varCategory = Request.QueryString("category") > End If > %> > <% > Dim rsServices__varRegion > rsServices__varRegion = "%" > If (Request.QueryString("region") <> "") Then > rsServices__varRegion = Request.QueryString("region") > End If > %> > <% > Dim rsServices__MMColParam > rsServices__MMColParam = "Show" > If (Request("MM_EmptyValue") <> "") Then > rsServices__MMColParam = Request("MM_EmptyValue") > End If > %> > <% > Dim rsServices > Dim rsServices_numRows > > Set rsServices = Server.CreateObject("ADODB.Recordset") > rsServices.ActiveConnection = MM_franchise_STRING > > Dim strKeyword > > IF Request.querystring("keyword") = "" Then > strKeyword = "" > Else > strKeyword = " AND (Clientname LIKE '%" + > Replace(request.querystring("keyword"), "'", "''") + "%' OR town LIKE > '%" + Replace(request.querystring("keyword"), "'", "''") + "%' OR > Description LIKE '%" + Replace(request.querystring("keyword"), "'", > "''") + "%')" > End If > > > > rsServices.Source = "SELECT clientid, clientref, showlisting, > category, clientname, titletag, town, county, region, postcode, > postcode2, thumbnail, [description] FROM new WHERE category LIKE '" + > Replace(rsServices__varCategory, "'", "''") + "' AND region LIKE '" + > Replace(rsServices__varRegion, "'", "''") + "' AND showlisting = > 'Show'" + strkeyword + " Order By NEWID() ASC" > > rsServices.CursorType = 3 ' Changed so recordcount works > > rsServices.CursorLocation = 2 > rsServices.LockType = 1 > rsServices.Open() > > rsServices_numRows = 0 > %> > <% > Dim rsRegions > Dim rsRegions_numRows > > Set rsRegions = Server.CreateObject("ADODB.Recordset") > rsRegions.ActiveConnection = MM_franchise_STRING > rsRegions.Source = "SELECT * FROM regions ORDER BY region ASC" > rsRegions.CursorType = 2 > rsRegions.CursorLocation = 2 > rsRegions.LockType = 1 > rsRegions.Open() > > rsRegions_numRows = 0 > %> > <% > Dim Repeat1__numRows > Dim Repeat1__index > > Repeat1__numRows = -1 > Repeat1__index = 0 > rsAdvertising_numRows = rsAdvertising_numRows + Repeat1__numRows > %> > <% > Dim Repeat2__numRows > Dim Repeat2__index > > Repeat2__numRows = 10 > Repeat2__index = 0 > rsServices_numRows = rsServices_numRows + Repeat2__numRows > %> > > <% > ' *** Recordset Stats, Move To Record, and Go To Record: declare > stats variables > > Dim rsServices_total > Dim rsServices_first > Dim rsServices_last > > ' set the record count > rsServices_total = rsServices.RecordCount > > ' set the number of rows displayed on this page > If (rsServices_numRows < 0) Then > rsServices_numRows = rsServices_total > Elseif (rsServices_numRows = 0) Then > rsServices_numRows = 1 > End If > > ' set the first and last displayed record > rsServices_first = 1 > rsServices_last = rsServices_first + rsServices_numRows - 1 > > ' if we have the correct record count, check the other stats > If (rsServices_total <> -1) Then > If (rsServices_first > rsServices_total) Then > rsServices_first = rsServices_total > End If > If (rsServices_last > rsServices_total) Then > rsServices_last = rsServices_total > End If > If (rsServices_numRows > rsServices_total) Then > rsServices_numRows = rsServices_total > End If > End If > %> > <% > Dim MM_paramName > %> > <% > ' *** Move To Record and Go To Record: declare variables > > Dim MM_rs > Dim MM_rsCount > Dim MM_size > Dim MM_uniqueCol > Dim MM_offset > Dim MM_atTotal > Dim MM_paramIsDefined > > Dim MM_param > Dim MM_index > > Set MM_rs = rsServices > MM_rsCount = rsServices_total > MM_size = rsServices_numRows > MM_uniqueCol = "" > MM_paramName = "" > MM_offset = 0 > MM_atTotal = false > MM_paramIsDefined = false > If (MM_paramName <> "") Then > MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") > End If > %> > <% > ' *** Move To Record: handle 'index' or 'offset' parameter > > if (Not MM_paramIsDefined And MM_rsCount <> 0) then > > ' use index parameter if defined, otherwise use offset parameter > MM_param = Request.QueryString("index") > If (MM_param = "") Then > MM_param = Request.QueryString("offset") > End If > If (MM_param <> "") Then > MM_offset = Int(MM_param) > End If > > ' if we have a record count, check if we are past the end of the > recordset > If (MM_rsCount <> -1) Then > If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or > move last > If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a > full repeat region > MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) > Else > MM_offset = MM_rsCount - MM_size > End If > End If > End If > > ' move the cursor to the selected record > MM_index = 0 > While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1)) > MM_rs.MoveNext > MM_index = MM_index + 1 > Wend > If (MM_rs.EOF) Then > MM_offset = MM_index ' set MM_offset to the last possible record > End If > > End If > %> > <% > ' *** Move To Record: if we dont know the record count, check the > display range > > If (MM_rsCount = -1) Then > > ' walk to the end of the display range for this page > MM_index = MM_offset > While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + > MM_size)) > MM_rs.MoveNext > MM_index = MM_index + 1 > Wend > > ' if we walked off the end of the recordset, set MM_rsCount and > MM_size > If (MM_rs.EOF) Then > MM_rsCount = MM_index > If (MM_size < 0 Or MM_size > MM_rsCount) Then > MM_size = MM_rsCount > End If > End If > > ' if we walked off the end, set the offset based on page size > If (MM_rs.EOF And Not MM_paramIsDefined) Then > If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then > If ((MM_rsCount Mod MM_size) > 0) Then > MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) > Else > MM_offset = MM_rsCount - MM_size > End If > End If > End If > > ' reset the cursor to the beginning > If (MM_rs.CursorType > 0) Then > If Not MM_rs.BOF Then MM_rs.MoveFirst > Else > MM_rs.Requery > End If > > ' move the cursor to the selected record > MM_index = 0 > While (Not MM_rs.EOF And MM_index < MM_offset) > MM_rs.MoveNext > MM_index = MM_index + 1 > Wend > End If > %> > <% > ' *** Move To Record: update recordset stats > > ' set the first and last displayed record > rsServices_first = MM_offset + 1 > rsServices_last = MM_offset + MM_size > > If (MM_rsCount <> -1) Then > If (rsServices_first > MM_rsCount) Then > rsServices_first = MM_rsCount > End If > If (rsServices_last > MM_rsCount) Then > rsServices_last = MM_rsCount > End If > End If > > ' set the boolean used by hide region to check if we are on the last > record > MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) > %> > <% > ' *** 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 > %> > > > > > > <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" > "http://www.w3.org/TR/html4/loose.dtd";> > <html> > <head> > > <title>Wantafranchisebusiness - New and Resale Franchise Opportunities > - UK and NI</title> > > <meta http-equiv="Content-Type" content="text/html; > charset=iso-8859-1"> > <meta name="description" content="Wantafranchisebusiness.com - Your > indispensable directory for Franchise Businesses in the UK and > Northern Ireland"> > <meta name="keywords" content="wantafranchisebusiness, > wantafranchisebusiness.com, wanta, wantaco, wanta co, franchise, > franchise business, franchise business opportunity, business, wanta, > dunfermline, uk"> > <meta name="robots" content="noindex,nofollow"> > > <link href="styles/win.css" rel="stylesheet" type="text/css"> > <script src="scripts/javascript.js" language="JavaScript" > type="text/JavaScript"> > </script> > > > </head> > > <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" > onLoad="MM_preloadImages('gfx/aboutwantabtn-roll.g > if','gfx/whatweofferbtn-roll.gif','gfx/whychooseusbtn-roll.gif')"> > > > > <!-- MASTHEAD --> > > <div id="masthead"><img src="gfx/masthead.gif" alt="Wanta Co." > title="Wanta Co." width="962" height="138"></div> > <div id="mastheadlogo"><img > src="gfx/wantafranchisebusiness-masthead.gif" > alt="Wantafranchisebusiness.com Logo" width="413" height="87" > title="Wantafranchisebusiness.com Logo"></div> > > <div id="mastheadbtn1"><a > href="http://www.wantafranchisebusiness.com/wantaco.asp"; > onMouseOut="MM_swapImgRestore()" > onMouseOver="MM_swapImage('about','','gfx/aboutwan > tabtn-roll.gif',1)"><img > src="gfx/aboutwantabtn-def.gif" alt="About Wanta Co." title="About > Wanta Co." name="about" width="150" height="38" border="0"></a></div> > <div id="mastheadbtn2"><a > href="http://www.wantafranchisebusiness.com/offer.asp"; > onMouseOut="MM_swapImgRestore()" > onMouseOver="MM_swapImage('offer','','gfx/whatweof > ferbtn-roll.gif',1)"><img > src="gfx/whatweofferbtn-def.gif" alt="What We Offer" title="What We > Offer" name="offer" width="132" height="38" border="0"></a></div> > <div id="mastheadbtn3"><a > href="http://www.wantafranchisebusiness.com/choose.asp"; > onMouseOut="MM_swapImgRestore()" > onMouseOver="MM_swapImage('whychoose','','gfx/whyc > hooseusbtn-roll.gif',1)"><img > src="gfx/whychooseusbtn-def.gif" alt="Why Choose Us?" title="Why > Choose Us?" name="whychoose" width="139" height="38" > border="0"></a></div> > > > <!-- SIDEPANEL --> > > <div id="sidepanel"><img src="gfx/sidepanel.gif"></div> > > <!-- FORM --> > <% > > %> > > <div id="searchform"> > <form action="newbycategory.asp" method="get" name="keyword" > id="keyword" class="standard"> > <br/> > <span class="headings">Search within results</span><br> > <input name="keyword" type="text" class="form" > id="keyword" size="20"> > <br> > <br> > <input name="searchbtn" type="image" id="searchbtn" > onMouseOver="MM_swapImage('searchbtn','','gfx/sear > chbutton-roll.gif',1)" > onMouseOut="MM_swapImgRestore()" src="gfx/searchbutton-def.gif" > alt="Search within results by keyword" width="103" height="60" > border="0"> > <input name="category" type="hidden" class="smallform" > id="cat2" size="1" value="<%=request.querystring("category")%>"> > <input name="region" type="hidden" class="smallform" id="reg2" > size="1" value="<%=request.querystring("region")%>"> > <input name="rand" type="hidden" class="smallform" > id="rand" size="1" value="<%=request.querystring("rand")%>"> > <br> > <% > > %> > </form> > </div> > > > <!-- MENU --> > > <div id="menu" class="menu"> > <p align="center"> Please visit:<br> > <a href="http://www.wantaco.com"; title="Wanta > Co.">www.wantaco.com</a><br/> > to see the rest of the <br> > Wanta Co. family.</p> > <ul> > <li class="list"> <a > href="http://www.wantafranchisebusiness.com/privacy.asp"; > title="Privacy Policy">Privacy Policy</a></li> > <li class="list"> <a > href="http://www.wantafranchisebusiness.com/terms.asp"; title="Terms > and Conditions">Terms & Conditions</a></li> > <li class="list"> <a > href="http://www.wantafranchisebusiness.com/advertise.asp"; > title="Advertise on Wanta Co.">Advertise with us</a></li> > <li class="list"> <a > href="http://www.wantafranchisebusiness.com/contact.asp"; > title="Contact Us">Contact Us</a></li> > <li class="list"> <a > href="http://www.wantafranchisebusiness.com/sitemap.asp"; title="Site > Map">Sitemap</a></li> > </ul> > </div> > > > <!-- PAGE HEADING --> > <div id="pageheading" class="standardheading"><a > href="http://www.wantafranchisebusiness.com/index.asp"; title="Go to > the Home Page">Home</a> <img src="gfx/menu-icon.gif" width="13" > height="15" /> <a href="http://www.wantafranchisebusiness.com/new.asp"; > title="New">New</a> > <% If Not rsServices.EOF Or Not rsServices.BOF Then %> > <img src="gfx/menu-icon.gif" width="13" height="15" /> <strong><a > href="javascript:history.go(-1);" title="Go Back to Map > Page"><%=(rsServices.Fields.Item("category").Value)%></a></strong> > <img src="gfx/menu-icon.gif" width="13" height="15" /> <strong><font > color="#FF9900"><%=(rsServices.Fields.Item("region > ").Value)%></font></strong><% > End If ' end Not rsServices.EOF Or NOT rsServices.BOF %> > </div> > > <!-- MAIN CONTENT --> > > > <div id="displaycontent" class="standard"> > <p> > <% If rsServices.EOF And rsServices.BOF Then %> > Sorry, but we could not find any matches for <b><%= > Request("category") %></b> in <b><%= Request("region") %></b>. Please > <a href="http://www.wantafranchisebusiness.com/new.asp";><b>click > here</b></a> to try an alternative search.<br> > <% End If ' end rsServices.EOF And rsServices.BOF %> > <% If Not rsServices.EOF Or Not rsServices.BOF Then %> > Your search produced the following results. Please click on result > to see listing. > <% End If ' end Not rsServices.EOF Or NOT rsServices.BOF %> > <br> > <br> > <span class="standardheading"> > <% If Not rsServices.EOF Or Not rsServices.BOF Then %> > <img src="gfx/tablehead.gif" width="100%" height="10"> > <% End If ' end Not rsServices.EOF Or NOT rsServices.BOF %> > </span> </p> > > <% > > Dim TotalPages > Dim CurrentPage > > If request.querystring("offset") = "" or request.querystring("offset") > = 0 then > CurrentPage = 1 > Else > CurrentPage = (cint(request.querystring("offset")) / 10) + 1 > End If > > If (cint(rsServices.recordcount) mod 10) = 0 then > TotalPages = (cint(rsServices.recordcount) / 10) > Else > TotalPages = (cint(rsServices.recordcount) \ 10) + 1 > End If > > If cint(rsServices.recordcount) <> 0 then > > %> > > <p align="center">Page <%=CurrentPage%> of <%=TotalPages%></p> > > <% > End If > > %> > > > <% > While ((Repeat2__numRows <> 0) AND (NOT rsServices.EOF)) > %> > <div style="width: 490px; border: 1px; > border-color:#FF9900; border-style:solid; padding: 4px; > background-color: #D7EBFF;"> > <table width="100%" border="0" cellpadding="0" > cellspacing="0" id="table" summary="This table shows the results of > your search."> > <tr valign="top"> > <td width="60" height="0" rowspan="2" > scope="col"> > <div align="left" class="standard"> > <!-- Hide thumbnail if not available//--> > <%Dim showthumbnail > showthumbnail = rsServices.Fields.Item("thumbnail").Value > if showthumbnail <>"" Then %> > <A > HREF="http://www.wantafranchisebusiness.com/newdetail.asp?<%= > Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & > "clientid=" & rsServices.Fields.Item("clientid").Value %>"><img > src="<%=(rsServices.Fields.Item("thumbnail").Value)%>" > alt="<%=(rsServices.Fields.Item("clientname").Value)%>" > title="<%=(rsServices.Fields.Item("clientname").Value)%>" width="50" > height="50" border="1"></A> > <% Else %> > <img src="gfx/icon.gif" > alt="<%=(rsServices.Fields.Item("clientname").Value)%>" width="12" > height="12"> > <% End If %> > <!-- END Hide thumbnail //--> > </div></td> > <td height="0" colspan="2" scope="col"><div > align="left"><A > HREF="http://www.wantafranchisebusiness.com/newdetail.asp?<%= > Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & > "clientid=" & rsServices.Fields.Item("clientid").Value %>" > title="<%=(rsServices.Fields.Item("clientname").Value)%>"><font > size="3"><strong><%=(rsServices.Fields.Item("clien > tname").Value)%></strong></font></A></div></td> > </tr> > <tr> > <td height="0" colspan="2" valign="middle" > class="smalltext" scope="col"><div > align="left"><%=Left(rsServices.Fields.Item("description").Value, > 150)%>....<a > href="http://www.wantafranchisebusiness.com/newdetail.asp?<%= > Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & > "clientid=" & rsServices.Fields.Item("clientid").Value > %>"><strong><font size="1">More</font></strong></a></div></td> > </tr> > </table> > </div> > <br/> > <% > > 'to update the showlistingstats > > Dim cmd > > Set cmd = Server.CreateObject("ADODB.Command") > cmd.CommandType = 1 > cmd.CommandText = "Update new set showlistingstats = showlistingstats > + 1 WHERE clientid = " & rsServices.Fields.Item("clientid").value > cmd.ActiveConnection = MM_franchise_STRING > cmd.Execute > > set cmd = Nothing > > 'stats code ends here > > > Repeat2__index=Repeat2__index+1 > Repeat2__numRows=Repeat2__numRows-1 > rsServices.MoveNext() > Wend > %> > <p align="right"> > <% If MM_offset <> 0 Then %> > <A HREF="<%=MM_movePrev%>">Previous</A> I > <% End If ' end MM_offset <> 0 %> > <% If Not MM_atTotal Then %> > <A HREF="<%=MM_moveNext%>">Next Page</A> > <% End If ' end Not MM_atTotal %> > <p align="right"><span class="standardheading"> > <% If Not rsServices.EOF Or Not rsServices.BOF Then %> > <img src="gfx/tablehead.gif" width="100%" height="10"> > <% End If ' end Not rsServices.EOF Or NOT rsServices.BOF %> > </span><br> > <a href="javascript:history.go(-1);" title="Go back to > previous page">Back</a> I <a > href="http://www.wantafranchisebusiness.com/index.asp"; title="Go to > Home Page">Home</a> > > > > <!-- DISCLAIMER --> > > <div class="smalltext"><img src="gfx/horizdiv.gif" alt="Wanta Co. > Disclaimer" width="100%" height="14"> Please note that the use of this > website is governed by the <a > href="http://www.wantafranchisebusiness.com/terms.asp";>Terms & > Conditions for Use of This Website</a> and our <a > href="http://www.wantafranchisebusiness.com/privacy.asp";>Privacy > Policy</a>. </div> > </div> > > > > <!-- COLUMN 2 --> > > <!-- COLUMN 3 --> > <div id="column3" class="standard"> > <p align="center"> > <% > While ((Repeat1__numRows <> 0) AND (NOT rsAdvertising.EOF)) > %> > <a > href="<%=(rsAdvertising.Fields.Item("adLink").Value)%>"><img > src="<%=(rsAdvertising.Fields.Item("adImage").Value)%>" > alt="<%=(rsAdvertising.Fields.Item("adTitle").Value)%>" > title="<%=(rsAdvertising.Fields.Item("adTitle").Value)%>" > border="0"></a> <br/><br/> > <% > Repeat1__index=Repeat1__index+1 > Repeat1__numRows=Repeat1__numRows-1 > rsAdvertising.MoveNext() > Wend > %> <br> > </p> > </div> > > > > > > </body> > </html> > <% > rsServices.Close() > Set rsServices = Nothing > %> > <% > rsRegions.Close() > Set rsRegions = Nothing > %> > <% > rsAdvertising.Close() > Set rsAdvertising = Nothing > %> ________________________________ YAHOO! GROUPS LINKS * Visit your group "AspClassicAnyQuestionIsOk <http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk> " on the web. * To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED] subscribe> * Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service <http://docs.yahoo.com/info/terms/> . ________________________________ [Non-text portions of this message have been removed] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
