<% '############################################################ ' Datenank Öffnen und alle Datensätzte ausgeben. set db = Server.CreateObject("ADODB.Connection") connect="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("\cgi-bin\Gams.mdb") db.Open connect SQL = "select * from Beitragende_Mitglieder order by Nachname" set rs = db.Execute(SQL) do until rs.eof ' Bis Tabellenende %> <% rs.MoveNext loop db.Close set db=Nothing set rs=Nothing %>
Beitragende Mitglieder / Contributing members
   
<%=rs("Vorname")%> <%=rs("Nachname")%>