<% dim VorNachname set db = Server.CreateObject("ADODB.Connection") connect="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("\cgi-bin\Gams.mdb") db.Open connect strsql = "Select * From Mitglieder ORDER BY Nachname" set rs = db.Execute(strsql) Do While Not rs.EOF ' Alle Datensätze erfassen VorNachname = rs("Vorname") + " " + rs("Nachname") %>
<% rs.MoveNext loop db.Close set db=Nothing %>

"> " width="90" height="120" alt="<%Response.Write VorNachname%>">

<%Response.Write VorNachname%>