% dim rs dim conn set conn=server.CreateObject("ADODB.CONNECTION") set rs=server.CreateObject("adodb.recordset") conn.Open application("connstr") %>