%
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
%>
Food Pyramid
|
|
|
|
Food
Pyramid
 |
|
|
Copyright © 2004 Asian Food Information Centre (AFIC) * Permission is
granted to media, health and education professionals to use AFIC
information resources in part or in full, providing credit is given to its
source and AFIC is informed of its use by emailing info@afic.org.
No part of any AFIC information resources or the AFIC logo or its name may
be used for any advertising or commercial product promotion purposes or
with any commercially branded materials. |