<% dim RS, SQL set RS = server.createobject("ADODB.recordset") SQL = "SELECT * FROM links ORDER BY linktitel" RS.Open SQL,conn if not RS.eof then do until RS.EOF %> <% RS.MoveNext loop end if RS.close %>

"><%response.write RS("linktitel")%> <%response.write RS("linkbeskrivelse")%>