<% Option Explicit %> Customer Support Discussion TOC

SALSA Forum

[ Home | TOC | Search | Post ]

Table of Contents

Note: you may need to reload this page to see the most recent additions.
<% Dim mConnection, mRecordset, mRecordCount, mSearchValue, mSearchCriteria Set mConnection = Server.CreateObject("ADODB.Connection") mConnection.CursorLocation = 3 '3 = adUseClient mConnection.Mode = 16 '16 = adModeShareDenyNone mConnection.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("salsa_forum.mdb") & ";" Set mRecordset = Server.CreateObject("ADODB.Recordset") mSearchValue = Request.QueryString("SearchValue") If mSearchValue <> "" Then mSearchCriteria = "WHERE [Subject] LIKE '%" & mSearchValue & "%' OR [From] LIKE '%" & mSearchValue & "%' OR [Comments] LIKE '%" & mSearchValue & "%' " End If mRecordset.Open "SELECT [MessageID], [Date], [Subject], [From] FROM [Forum] " & mSearchCriteria & "ORDER BY [Date] DESC", mConnection, 3 '3 = adoOpenStatic mRecordCount = mRecordset.RecordCount If mRecordCount > 0 Then Dim mRecordNumber, mCounter Const mRECORDS_MOVE_STEP = 5 mRecordNumber = Request.QueryString("RecordNumber") if mRecordNumber = "" then mRecordNumber = 0 end if mRecordset.move mRecordNumber mCounter = 0 Do Until mRecordset.EOF or mCounter = mRECORDS_MOVE_STEP mCounter = mCounter + 1 %> <% mRecordset.MoveNext Loop If mRecordCount > mRECORDS_MOVE_STEP Then If mRecordset.EOF Then %><% ElseIf mRecordNumber = 0 Then %><% Else %><% End If End If End If mConnection.close %>

Subject

From

Date
"><%= mRecordset("Subject") %>

<%= mRecordset("From") %>

<%= mRecordset("Date") %>

7Previous

Next8

7Previous - Next8

Article (<%= mRecordNumber + 1 %> to <% if (mRecordNumber + mRECORDS_MOVE_STEP) >= mRecordCount then Response.Write mRecordCount else Response.Write mRecordNumber + mRECORDS_MOVE_STEP %>) of <% Response.Write mRecordCount %>