%@ LANGUAGE = VBScript %> <% Option Explicit %> <% On Error Resume Next Dim pg pg=Request.QueryString("pg") %>