%@ Language=VBScript %> <% Option Explicit %> <% openObjects() %> <% Dim pages, rs_pages Set pages = GetObject("script:" & Server.MapPath("/~components/pages.wsc")) pages.open() Set rs_pages = pages.getPages() pages.close() Set pages = Nothing %>