%
Dim Conn, dbPath
dbPath = "c:\inetpub\wwwroot\fpdb\afic_up.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
Set Session("_conn") = conn
%>
<%
sqlTitle = "SELECT * FROM t_Articles INNER JOIN t_Articles2Categories ON t_Articles.Article_ID = t_Articles2Categories.Article_ID Where t_Articles2Categories.Cat_ID = ("& Request.QueryString("ID")&")Order by ArticleDate desc"
sqlCat = "SELECT * FROM t_Categories Where Cat_ID = "& Request.QueryString("ID")&""
Set rsTitle = Server.CreateObject("ADODB.Recordset")
Set rsCat = Server.CreateObject("ADODB.Recordset")
rsTitle.Open sqlTitle, conn, 3, 3
rsCat.Open sqlCat, conn, 3, 3
%>
AFICNews: AFIC's monthly e-bulletin provides updates on regional events,
the latest AFIC resources and analysis of recent news coverage of food safety
and nutrition topics and issues.
AFICNews: AFIC's monthly e-bulletin provides
updates on regional events, the latest AFIC resources and analysis of
recent news coverage of food safety and nutrition topics and issues.