BC Purchasing
<% dim objRS
set objRS = Server.CreateObject("ADODB.Recordset")
txtCountryID = "WM"
if request("txtCountryID") <> "" then txtCountryID = request("txtCountryID")
%>
<% if objRS.state = 1 then objRS.close
set objRS = nothing
closeObject()
%>