% @LANGUAGE = VBScript %> <% Response.Expires = 0 Dim objConn, objRS, strQuery Dim strConnection, strClass, strSport, strState, strCounter %>