<% Dim objQuery Set objQuery = GetDBConn() %> <%Call SubMain(objQuery)%> <% objQuery.close Set objQuery = Nothing %>