<% Set con = Server.CreateObject("ADODB.Connection") con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\arne\My Documents\Picture.mdb;User Id=admin;Password=;" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT K FROM Test",con Do While Not rs.EOF %> "><%=rs("K")%>
<% rs.MoveNext Loop Set rs = Nothing Set con = Nothing %>