% dim cnn,rst,i set cnn=server.createobject("ADODB.Connection") cnn.open conn_init() set rst = server.createobject("adodb.recordset") %>