<% Option Explicit %> <!-- #include virtual="/resources/global/glbTitle.asp" -->- Bulletin Board Page

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.