% Set connDB= Server.CreateObject("ADODB.Connection") MdbFilePath = Server.MapPath("../dbcontent/database/Products.mdb") connDB.mode = 3 connDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MdbFilePath strSQL = "" strSQL = "SELECT lkCat.CatID, lkCat.Category" strSQL = strSQL & " FROM lkCat Where show=1 Order by displayOrder;" Set rsDB = Server.CreateObject("ADODB.Recordset") rsDB.Open strSQL, connDB,1,1 %>
|
|
||||||||||||||||||||
|
|
||||||||||||||||||||