<% Dim objQuery Set objQuery = GetDBConn() %>

<%Call SubMain(objQuery)%>

<% objQuery.close Set objQuery = Nothing %>