%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") %>