%@ LANGUAGE="VBScript" %> <% 'n error resume next Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\websites\D\davidchasegallery\private\davidchase.mdb;" SQLStmt = "SELECT Count(inventory.Category) AS count1, categories.[Full_category], inventory.Category " SQLStmt = SQLStmt & "FROM inventory INNER JOIN categories ON inventory.Category = categories.Type1 " SQLStmt = SQLStmt & "GROUP BY categories.[Full_category], inventory.Category; " Set RS = Connection.Execute(SQLStmt) %>
![]() |
Home | Shopping Cart | Reference Books | Custom Mats & Framing | Archival Storage & Supplies | Restoration | Appraisals |
|