%@ LANGUAGE="VBScript" %> <% DSN_Name = Session("DSN_Name") Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open DSN_Name SQL = "SELECT Distinct CATEGORY from Product" Set RSSrchCategory = Connection.Execute(SQL) SQL = "SELECT Distinct MFG from Product" Set RSSrchManufacturer = Connection.Execute(SQL) %>