<%
dim conn
set conn=server.createobject("adodb.connection")  
conn.ConnectionTimeout=20                      
conn.open "driver={SQL Server};server=(local);uid=it.zgcren.com;pwd=!(*#!@)(;database=zgcrenlife"
Function CloseDatabase()
  conn.Close
  Set conn=Nothing
End Function
%>
