怎样用asp把ACCESS中的数据提出来并显示在网页中

<%@ Language="JScript" %>
<%
//*******************
//RecordSet对象读取显示数据
//*******************
%>





<%
Conn = Server.CreateObject("ADODB.Connection");
Conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" +Server.MapPath("db1.mdb"));

//==============================
Rs = Server.CreateObject("ADODB.Recordset");
sql = "Select * from youxi01";
Rs.Open(sql, Conn, 3);
Response.Write(Rs.RecordCount+"fff
");
//=============================
/*
Rs.AbsolutePosition =1;
Move(int,start);
Rs.Move(1,0);
Rs.MoveFirst();
Rs.MoveNext();
Rs.MovePrevious();
Rs.MoveLast();
*/
//=============================
Response.Write(":"+Rs(" yxq"));
Conn.Close();
%>

Set Conn= Server.CreateObject("ADODB.Connection")
Connstr="Provider=microsoft.jet.OLEDB.4.0;data source="&Server.MapPath("db1.mdb")&";
Conn.Open connstr
set rs=conn.execute("select yxq from youxi01")
response.write rs("yxq")
数据库要和这个ASP文件在一个目录下

Set Conn= Server.CreateObject("ADODB.Connection")
Connstr="Provider=microsoft.jet.OLEDB.4.0;data source="&Server.MapPath("db1.mdb")&";
Conn.Open connstr
set rs=conn.execute("select yxq from youxi01")

while not rs.eof
response.write rs("yxq")
rs.movenext
wend

rs.close
set rs=nothing
conn.close
set conn=nothing

<% set conn=server.createobject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0;"&"data source="&server.mappath("db1.mdb")
conn.open
set rs=server.createobject("adodb.recordset")
rs.open "youxi01",conn,1,1,2
response.write ""
response.Write ""
FOR I=0 to rs.fields.count-1
response.Write ""
for i=0 to rs.fields.count-1
response.write "

"&rs.fields(i).name next do while not rs.eof response.Write "

"&rs.fields(i).value NEXT rs.movenext loop response.Write "

"
rs.close
set rs=nothing
set conn=nothing
%>