<%
dim con
set con = server.createObject("ADODB.Connection")
function openConnection()
con.open connectionStringHere
end function
function closeConnection()
con.close
end function
function destroyConnection()
set con = nothing
end function
%>