%@ 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)
%>
<% rs.Close
Set rs = Nothing
Connection.Close
set connection = nothing %>