% ' Get Current Category cat = TRIM( Request( "cat" ) ) IF cat = "" THEN cat = "Home" ' Open Database Connection Set Con = Server.CreateObject( "ADODB.Connection" ) Con.open="accessDSN" %>