<%
dim conn
dim connstr
Set conn = Server.CreateObject("ADODB.Connection")
connstr="driver={SQL Server};server=localhost;UID=wz01;PWD=wz01;database=testsql"
conn.Open connstr
set rss=server.createobject("adodb.recordset")
sqls = "select * from TABLE1 order by id asc"
rss.open sqls,conn,1,1
do while not rss.eof
response.Write(rss("id")&rss("memo"))
rss.movenext
loop
%>