<%
sub OpenCONN
if IsObject(application("My_conn_CAL")) then
	set my_conn= application("My_conn_CAL")
else
	application.lock
	Set application("My_conn_CAL") = Server.CreateObject ("ADODB.Connection")
	application("My_conn_CAL").ConnectionTimeout = 360
	application("My_conn_CAL").CommandTimeout = 30
	application("My_conn_CAL").Open strConnect
	application.Unlock
	set my_conn= application("My_conn_CAL")
end if
end sub 

sub CloseCONN
	my_conn.close
	set my_conn=nothing
end sub

%>