<%sub Table_show(tablename)%>

<%

set rs=server.CreateObject("adodb.recordset")

sql="select * from "&tablename

rs.open sql,conn,1,1

%>

<%for i=0 to rs.fields.count-1%>

<%next%>

<%do while not rs.eof%>

<%for i=0 to rs.fields.count-1%>

<%next%>

<%rs.movenext

loop

rs.close

set rs=nothing%>

<%=rs.fields(i).name%>

<%=rs(i)%>

<%end sub%>