%
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
%>