<% 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.