vti_encoding:SR|utf8-nl vti_timelastmodified:TR|20 Mar 2004 03:06:24 -0000 vti_extenderversion:SR|5.0.2.2623 vti_title:SR|Untitled Document vti_lineageid:SR|{BB75470E-687B-46DE-A50C-C1AD0288D7EE} vti_backlinkinfo:VX| vti_usagebymonth:UX|0 0 0 0 0 0 0 0 0 0 0 0 3 vti_usagebyweek:UX|0 vti_usagebyday:UX|0 vti_usagelastupdated:TX|02 Oct 2005 05:59:59 -0000 vti_usagetotalhits:IX|3 vti_cacheddtm:TX|20 Mar 2004 03:06:24 -0000 vti_filesize:IR|1288 vti_cachedtitle:SR|Untitled Document vti_cachedbodystyle:SR|vti_cachedlinkinfo:VX|S|greenlogo2.gif S|./awmmenupath.gif S|camenu.js vti_cachedsvcrellinks:VX|FSUS|greenlogo2.gif FSUS|awmmenupath.gif FSUS|camenu.js vti_cachedneedsrewrite:BR|false vti_cachedhasbots:BR|false vti_cachedhastheme:BR|false vti_cachedhasborder:BR|false vti_metatags:VR|HTTP-EQUIV=Content-Type text/html;\\ charset=iso-8859-1 vti_charset:SR|windows-1252 ctive_CheckedChanged" Checked='<%# Eval("Active") %>' runat="server" /> web2db(strSearch) & "%') " Else strSQL = strSQL & "WHERE parentID = 0 " End If strSQL = strSQL & "ORDER BY " & sortBy & " " & sortDir 'connect to the database Set dbRS = Server.CreateObject("ADODB.Recordset") With dbRS .CursorLocation = 3 .CacheSize = C_dbPageSize .Open strSQL, C_dbConnect End With If dbRS.EOF = False Then With dbRS .MoveFirst topicCount = CInt(.RecordCount) .PageSize = C_dbPageSize pageCount = CInt(.PageCount) .AbsolutePage = curPage End With Else topicCount = 0 pageCount = 1 End If 'preconstruct query strings to keep things simple stateQS = "curPage=" & curPage & "&" stateQS = stateQS & "search=" & Server.URLEncode(strSearch) %> <%=C_PageTitle%> :: Topics <%=C_PageBody%> <%=C_PageLogo%>





<%If Not strSearch = "" Then%> <%Else%> <%End If%>
Add New Topic   |  Search results for <%=strSearch%> (Show All Topics or New Search)


<%For c = 0 To UBound(fieldNames)%> <%If LCase(fieldNames(c)) = sortBy Then%> <%Else%> <%End If%> <%Next%>
<%=fieldDescriptions(c)%> <%=fieldDescriptions(c)%>
<% If dbRS.EOF Then %> <% Else Do Until dbRS.EOF Or x >= C_dbPageSize %> <% x = x + 1 dbRS.MoveNext Loop End If %>
No Topics Found
&<%=stateQS%>"><%=db2web(dbRS("topic"))%> <%=db2web(dbRS("author"))%> <%=FormatDateTime(dbRS("date_posted"),2)%> <% If dbRS("parentID") = 0 Then Response.Write dbRS("replies") Else Response.Write "-" End If %>

top of the page <%=topicCount%> Topic(s) Found
Page of <%=pageCount%>

<% 'clear recordset from memory Set dbRS = Nothing 'store sort settings in session variables Session("sortBy") = sortBy Session("sortDir") = sortDir %>