%
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
%>
About Us
More AFIC Links
About Us
<%do while Not rsTitle.eof%>
Asian Food Information Centre (AFIC) is a Singapore-registered
not-for-profit organization whose mission is to provide sound
science-based information on nutrition, health and food safety across
the Asia Pacific region. AFIC is funded by the food, beverage and
agriculture industries.
Click here
( English ,
ภาษาไทย ,
中文 )
to download the AFIC's profile.
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.