quote:

---

<% on error resume next
Session.LCID = 1033 '## Do Not Edit
Response.Buffer = true

dim strDBType, strConnString, strTablePrefix, strMemberTablePrefix, strCookieURL

strDBType = "access"

strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\progra~1\vwebsr~1\webroot\news.mdb" '## MS Access 97
strCookieURL = Left(Request.ServerVariables("Path_Info"), InstrRev(Request.ServerVariables("Path_Info"), "/"))
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Errors.Clear
my_Conn.Open strConnString
my_conn.Errors.Clear %>

<!--#INCLUDE FILE="title.asp" -->
<!-- Main Page Body -->
<table bgcolor='#151515' width="100%" border="0" cellspacing="0" cellpadding="1">
<tr><td VALIGN=TOP>
</td><td> </td><td width="100%" VALIGN=TOP>
<!-- Begin news generation -->

<%
'## Begin code section for Minimizing Categories
'## News Code - Minimizing Categories
strSql = "Select Max(CAT_ID) as Max_ID "
strSql = strSql & " FROM NEWS_CAT"

set rs0 = my_Conn.Execute (strSql)
MaxID = rs0("MAX_ID")
rs0.close
set rs0 = nothing

if MaxID > 0 then
i = 1
do until i > cint(MaxID)
HideNewsCat = "HideNewsCat" & i
if Request.QueryString(HideNewsCat) = "Y" then
Response.Cookies(strUniqueID & HideNewsCat) = "Y"
Response.Cookies(strUniqueID & HideNewsCat).Expires = now()+365
else
if Request.QueryString(HideNewsCat) = "N" then
Response.Cookies(strUniqueID & HideNewsCat) = "N"
Response.Cookies(strUniqueID & HideNewsCat).Expires = now()+365
end if
end if
i = i + 1
loop
end if
scriptname = request.servervariables("script_name")
%>
<TABLE bgcolor='#202020' width="100%" border="0" cellspacing="0" cellpadding="2">
<!-- Page's table --><TR><TD>
<%
set strsql = "SELECT NEWS_ENTRY.CAT_ID, NEWS_ENTRY.N_ID, NEWS_ENTRY.N_AUTHOR, NEWS_ENTRY.N_HEADER, NEWS_ENTRY.N_DATE, NEWS_ENTRY.N_MESSAGE, FROM NEWS_ENTRY ORDER BY NEWS_ENTRY.N_ID ASC;"
set rsNews = my_Conn.Execute (strsql)
'## do until rsNews.EOF
Call OpenTable()
HideNCat= "HideNewsCat" & rsNews("Cat_ID")
if Request.Cookies(strUniqueID & HideNCat) = "Y" then
Response.Write"<a href=""" & ScriptName & "?" & HideNCat & "=N""><img src=""icon_plus.gif"" width=""10"" height=""10"" border=""0"" alt=""Expand This Category""></a> "
else
Response.Write"<a href=""" & ScriptName & "?" & HideNCat & "=Y""><img src=""icon_minus.gif"" width=""10"" height=""10"" border=""0"" alt=""Collapse This Category""></a> "
end if
Response.Write rsNews("N_HEADER")
Call BeforeDate()
Response.Write rsNews("N_DATE")
Call MailAddy()
rsNews.MoveNext
'## loop

set i = nothing
set rsNews = nothing %>

<!-- Close page's table --></TD></TR></TABLE>

<!-- Subroutine section -->
<% Sub OpenTable() %>
<TABLE bgcolor='#404050' width="100%" border="0" cellspacing="0" cellpadding="0">
<!-- border table for netscape --><TR><TD>
<TABLE bgcolor='#404050' width="100%" border="0" cellspacing="2" cellpadding="0">
<!-- main table --><TR><TD bgcolor="#454560">
<TABLE width="100%" border="0" cellspacing="0" cellpadding="0">
<TR><TD>
<font face="Verdana,Arial,Helvetica,sans-serif" size="-1" color="#99AABB">
 <B>
<% end sub %>

<% Sub BeforeDate() %>
</B></TD>
<TD><!-- main table title --><font face="Verdana,Arial,Helvetica,sans-serif" size="-1" color="#CCCCDD">
<DIV align="right"><font size="-1" color="#99AABB">
<% end sub %>

<% Sub AfterName() %>
</font></A>
</TD></TR></TABLE>
</TD></TR><TR><TD bgcolor="#505060">
<TABLE width="100% border="0" cellspacing="0" cellpadding="4"><TR><TD>
<font face="Verdana,Arial,Helvetica,sans-serif" size="-2" color="#FFDD99">
     
<% Response.Write rsNews("N_MESSAGE")
end sub %>

<% Sub MailAddy() %>
   <A href="">
<font size="-2" color="#6699DD">
<%
HideNCat= "HideNewsCat" & rsNews("Cat_ID")
if Request.Cookies(strUniqueID & HideNCat) = "Y" then
Call CloseEarly()
Call CloseTable()
else
Call AfterName()
Call CloseTable()
end if
end sub %>

<% Sub CloseEarly() %>
</font></A>
</TD></TR></TABLE>
<% end sub %>

<% Sub CloseTable() %>
</TD></TR></TABLE>
</TD></TR>
<!-- Close border table for netscape --></TD></TR></TABLE>
<!-- Close main table --></TD></TR></TABLE>
<% end sub %>

<!-- end news generation -->
</TD><TD>
</TD></TR></TABLE>
<!--#INCLUDE FILE="footer.asp" -->
</body>
</html>

---