<%
dim conn
set conn=server.createobject("adodb.connection")  
conn.ConnectionTimeout=20                      
conn.open "driver={SQL Server};server=61.172.245.67;uid=a02222020383;pwd=a022220203832;database=a02222020383"
Function CloseDatabase()
  conn.Close
  Set conn=Nothing
End Function
%>
