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