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