<% Set conn = Server.CreateObject("ADODB.Connection") Conn.Open Application("DBConnection_ConnectionString"), Application("DBConnection_RuntimeUserName"), Application("DBConnection_RuntimePassword") Set Rst=server.createObject("adodb.recordset") %>
<% conn.close set rst=nothing set conn=nothing %>