<% set rs = Server.CreateObject("ADODB.Recordset") set rs = conn.Execute("Select hauptkategorieid,kategoriename From hauptkategorie order by kategoriename asc") %> <% While Not rs.EOF Response.Write "" rs.MoveNext Wend %>

" Response.Write "	" & RS("kategoriename") & "" & " " Response.Write "

<% set rs = Nothing conn.Close set conn = Nothing %>