<% Option Explicit %>

Home  Bulletin Board

	BULLETIN BOARD This Bulletin Board is designed to encourage the exchange of information, announce events, and stimulate ongoing discussions and debates concerning topics relevant to a Christian's everyday life experience; however, they are open to all. We discourage posting of personally identifying information (e.g., address and telephone information). yacmamezion.org takes no responsibility for communication among members outside of our bulletin boards. <% Response.Flush 'Response.ScriptTimeOut = 90 'On Error Resume Next Dim objForums Dim SQLQuery Dim objRS Dim sProc Set objForums = CreateObject("dbAccess.clsExecutes") objForums.ConnectionString = Application("dbConnection") sProc = "sp_ForumsCategoryList " Set objRS = objForums.ExecuteProc (sProc) If Err > 0 then Response.Write "" & vbNewLine ElseIf Not objRS.EOF and Not objRS.BOF then Dim strCategoryName Dim strCatDesc Dim intCatID Dim intCount Dim intHCount Dim intIdx Dim vBgColor Set strCategoryName = objRS("strCategoryName") Set strCatDesc = objRS("strCatDesc") Set intCatID = objRS("intCatID") Set intCount = objRs("intMsgCount") Set intHCount = objRs("intHitsCount") intIDx = 0 Do while Not objRS.EOF intIdx = intIdx + 1 if intIdx MOD 2 then vBgColor = "FFFFFF" Else vBgColor = "#E6DCB2" %> <% objRS.MoveNext Loop objRS.Close Set objRS = Nothing Else Response.write "" End if %>   Category/Description Msgs/Hits " _ & "Problem Connecting to the Master Database! " _ & "Notify the site Administrator " _ & " <%= strCategoryName %> <%= strCatDesc %> <%= intCount & "/" & intHCount %> No Forums found at the present Time! Check back soon.