|
<HTML><BODY>
<%
Set cn = Server.CreateObject("ADODB.Connection")
strMdb = Server.MapPath( "sample.mdb" )
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strMdb & ";"
cn.Open strConnection
Set rs = cn.OpenSchema( 4, Array( Empty, Empty, "IADDRESS", Empty ) )
%>
<TABLE border=1 cellpadding=3>
<tr><td bgcolor=silver>[IADDRESS] COLUMN_NAME</td></tr>
<%
Do while NOT rs.EOF
%>
<tr>
<td><% = rs.Fields( 3 ).Value %></td>
</tr>
<%
rs.MoveNext
Loop
%>
</TABLE>
<%
rs.Close
cn.Close
%>
</BODY></HTML>
| |