<%@ Language=VBScript %>
<%
dim conn,rs
set conn=server.CreateObject("adodb.connection")
conn.Open "driver=Microsoft Access Driver (*.mdb);DBQ=" & "c:\inetpub\wwwroot\yes\login.mdb"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from users",conn,3,3
%>
<table>
<%

DO UNTIL rs.EOF

%> 
<tr align=center  bgcolor=330099>
<td><font color=ffffff  size=2 face=Arial ><b><%=rs("code")%></td>
<td><font color=ffffff  size=2 face=Arial ><b><%=rs("user")%></td>
<td><font color=ffffff  size=2 face=Arial ><b><%=rs("pass")%></td>
<td><font color=ffffff  size=2 face=Arial ><b><%=rs("mail")%></td>
<td><font color=ffffff  size=2 face=Arial ><b><%=rs("memir")%></td>
 </tr>

<%

rs.movenext 
loop
  %>
</table>