% lang=2 Set db=Server.CreateObject("ADODB.Connection") Set rs=Server.CreateObject("ADODB.RecordSet") db.Open "DB_ActiveDB" ID=5 %>