% set adoConnect =server.CreateObject ("adodb.connection") adoconnect.Open application("conn") set adoRecordSet = server.CreateObject("adodb.recordset") %>