% Set Conn = Server.Createobject("Adodb.Connection") Conn.Open "dsn=cpr;uid=ems;pwd=ems;" set rs = Server.createobject("Adodb.RecordSet") %>