<% dim tablename,file,linkwanted,linkforsale,author tablename="quixtar" file="quixtar.asp" linkwanted="Quixtair/MLM-WANTED" linkforsale="Quixtair/MLM-FOR SALE" author="AUTHOR" %> Amway related tapes books Tools independent lines of sponsorship yager britt wwdb quixtar tapes ina network 21 mlm <% Dim iPageCount Dim iPageCurrent Dim strOrderBy Dim strSQL Dim objPagingConn Dim objPagingRS Dim iRecordsShown Dim I If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If if Request.QueryString("sort")="" or Request.QueryString("sort")="wanted" then strSQL="select * from "&tablename&" where sub='wanted' order by posted desc" message=linkwanted else if Request.QueryString("sort")="forsale" then strSQL="select * from "&tablename&" where sub='forsale' order by posted desc" message=linkforsale else if Request.QueryString("sort")="search" then dim txtsearch,criteria,string,r1 string=request.form("txtsearch") criteria=request.form("r1") strSQL="select * from "&tablename&" where (title like '%"&string&"%' or author like '%"&string&"%' or description like '%"&string&"%') and sub='"&criteria&"'" message="Search Results for "&string&" in sub-category "&criteria&"" end if end if end if %>
?sort=search method=post>
Item Search in <%=tablename%> Category
Search
WANTED     FOR SALE    
?sort=forsale onmouseover="window.status='for sale'; return true" onmouseout="window.status=' '; return true"><%=linkforsale%> ?sort=wanted onmouseover="window.status='wanted'; return true" onmouseout="window.status=' '; return true"><%=linkwanted%>

Read The Kennedy Report: Why telephone prospecting and cold calls are obsolete for network marketers - and the hot new alternative.  Click here

Classified Category:<%=message%>

Clarification: Tools, tapes and books sold here are produced by Quixtar / Amway independent lines of sponsorship, not Quixtar or Amway Corporation.  Quixtar and Amway are trademarks of their respective holders.

<% set objPagingConn= Server.CreateObject("ADODB.Connection") objPagingConn.Open ConnString, Username, Password objPagingConn.DefaultDatabase = DatabaseName Set objPagingRS = Server.CreateObject("ADODB.Recordset") objPagingRS.PageSize = iPageSize objPagingRS.CacheSize = iPageSize objPagingRS.Open strSQL, objPagingConn, adOpenStatic, adLockReadOnly, adCmdText iPageCount = objPagingRS.PageCount If iPageCurrent > iPageCount Then iPageCurrent = iPageCount If iPageCurrent < 1 Then iPageCurrent = 1 If iPageCount = 0 Then Response.Write "

No records found!
Click Here to post a FREE Classified Ad.
"& vbcrlf Else objPagingRS.AbsolutePage = iPageCurrent %> Page <%= iPageCurrent %> of <%= iPageCount %>
<% If iPageCurrent > 1 Then %> &page=<%= iPageCurrent - 1 %>">[<< Prev] <% End If For I = 1 To iPageCount If I = iPageCurrent Then %> <%= I %> <% Else %> &page=<%= I %>"><%= I %> <% End If Next 'I If iPageCurrent < iPageCount Then %> &page=<%= iPageCurrent + 1 %>">[Next >>] <% End If %> <% ' Spacing Response.Write "

" & vbCrLf Response.Write "" & vbCrLf Response.Write vbTab & "" & vbCrLf response.write "" & vbcrlf iRecordsShown = 0 Do While iRecordsShown < iPageSize And Not objPagingRS.EOF response.write " " & vbcrlf response.write " " & vbcrlf response.write " " & vbcrlf response.write "" & vbcrlf response.write " " & vbcrlf response.write "" & vbcrlf iRecordsShown = iRecordsShown + 1 objPagingRS.MoveNext Loop Response.Write "
NO.POSTEDTITLE"&author&"DESCRIPTIONEMAIL
" & objPagingRS("id") & "" & objPagingRS("posted") & "" & objPagingRS("title") & "" & objPagingRS("author") & "

" & objPagingRS("description") & "

Send Email
" & vbCrLf End If objPagingRS.Close Set objPagingRS = Nothing objPagingConn.Close Set objPagingConn = Nothing If iPageCurrent > 1 Then %> &page=<%= iPageCurrent - 1 %>">[<< Prev] <% End If For I = 1 To iPageCount If I = iPageCurrent Then %> <%= I %> <% Else %> &page=<%= I %>"><%= I %> <% End If Next 'I If iPageCurrent < iPageCount Then %> &page=<%= iPageCurrent + 1 %>">[Next >>] <% End If %>