<% LANGUAGE="VBSCRIPT" %> <% 'Option Explicit Response.Expires = 0 '================================================= ' GLOBAL VARIABLES Const LAST_MODIFIED = "December 1st, 1998" Const FILENAME = "/catalog/default.asp" Const PAGE_NAME = "Online Catalog" Const DIRECTORY = "catalog" Const TABLE = "Products" Const KEYWORDS = "catalog, online, purchase" Const DESCRIPTION = "Replace this with your content." '================================================= MAIN '================================================= Sub Main %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Session("ConnectionString") SQL = "SELECT DISTINCT ProductType FROM Products ORDER BY ProductType" Set RSProductType = Conn.Execute(SQL) %>

<%=PAGE_NAME%>

<%=Description%>

Select Product or Service from the drop-down menu below:

<% End Sub '================================================ ' CLIENT-SIDE FUNCTIONS %> <% '================================================ 'rs.Close 'Set rs=Nothing 'Conn.Close ' ' SERVER-SIDE FUNCTIONS ' %>