<% set db = Server.CreateObject("ADODB.Connection") connect="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("\cgi-bin\Gams.mdb") db.Open connect sql2 = "select * from Funktionaere order by Position" set rs = db.Execute(sql2) do until rs.eof %> <% rs.MoveNext loop db.Close set db=Nothing set rs=Nothing %>
">" width="90" height="120" alt="<%=(rs("Name"))%>">