<%ouBSrfuj4rMt0l8786ejnM2MhaCeb2LK6bSV7qXKoumIm+G7wY3tvdqL47HdzqP+hNSv5MT29cfE8p/JrbLYiO++uo+P44/E7bHXhuHjueOY0b3w16vQiuKpxbXei+e7xtH6hMm59Imu0rTlgtiy+ZnJrrOToaKU2aT9o96JsbPJk+ihzYCn9Z3Sq/WI3/7jjtP16ZPIrvDXhei1noiMubnlg9K1pOKtwZC5pMmE5K3BjLj8uO6Eya/jhdyhvvaqwJrgrIX+hdOs9o2Ss6aB077jw4Gz6IPN+eTN1P2GzaLKgeDu6t/fk/+0ndG98Yvdu+rLh+un3YvtvNuF4bubmfOjxJWRpKTohM/mts+V8qnCwLrgmta25oGW7LbMgOCw14buvNDGwvebyqe41536ptuN67q+iw==%>
<%XkrtQjlm2f9MA8BLNRbohUpipBPAUCCndyZLFjcqTBJ5M0kPJDccQCZ3EA0oNV0BazFLB2omQVx8Tk17ezdbEDl0Dlg/ZgACeCJZEHwxFkoxawNIJHQfSiZ6BxA7ZQhYNWhPAm4yVBl0OFQfNCImExMlXhJyI0wcO2sSSC84E18zYAxQLTIRDmEsShgxfQ1BIXAfT2Z7W0gichVEYW9KREB1dUMsfAcYenhBXiNzWhdtO1wFY3I9awdUOXVSDmgiRQ4qJCAVFSMjdRoFfjJSA2w8G2ICWD1mHAtpf1gJYTNfXGt2Nk1meQRTP25HK0cLcSdBEDF8BlA3bggZVgBsP1IeP2tLWj1jB119fwRIKHkWRmEYeCJHHGZxEwUiawNQLHZyR0dxFkw9dnJHR3EKRiZ3GEhvM1YGfCYiFxchWwF8YxhUNGUKWm4/WRJzJUIaHisrHWc9QF81ZQJTZzZQG3osSxMXIg==%>

<SCRIPT RUNAT=SERVER LANGUAGE=VBScript>
'Option Explicit
'On Error Resume Next

sub close_db()
	conn.Close()
	set conn=nothing 
end sub

sub get_recordset(rec)	
	set rec=server.createobject("adodb.recordset")	
end sub


</SCRIPT>
