% 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 %>
![]() |
|
Copyright © 2004 Asian Food Information Centre (AFIC) |