<%@ Language=VBScript %> <% Response.Expires = 0 %> <%' ON ERROR RESUME NEXT ' --- GLOBAL ------------------------------------------------------------ ' Use this for the entire page because of access Set objConn = Server.CreateObject( "ADODB.Connection" ) objConn.ConnectionString = DBCONN objConn.Open Dim objRecordSet,CategoryID,StrTemp CategoryID = 0 StrTemp = Request("CID") if StrTemp <> "" then CategoryID = Cint(StrTemp) end if 'call DisplayCategoryPath 'top navigation row call DisplaySiblingCategoryPath(CategoryID) call DisplayParentImage(CategoryID) Set objRecordSet = GetCategoryList(CategoryID) call DisplayCategoryTree(objRecordset) 'horizontal list of categories and their images call DisplaySeeAll(CategoryID) 'top navigation row objConn.Close set objConn = Nothing %>