| <% ' Verbindung zur Datenbank herstellen Set DBAnbindung = Server.CreateObject ("ADODB.Connection") DBAnbindung.Open "dblw" Set RecordSet = DBAnbindung.Execute ("SELECT menue, kat FROM link ORDER BY kat") RecordSet.MoveFirst Do While Not RecordSet.EOF Response.Write (RecordSet.Fields("menue")) RecordSet.MoveNext Loop DBAnbindung.Close %> |
|
|
|
|||