<% SET nameConn=Server.CreateObject("ADODB.Connection") nameConn.Open "DSN=klowersa" SET RS = nameConn.Execute("Select * from k_kurse order by thema") while not RS.EOF%>
<%if RS("Thema")<>buffer then buffer=RS("Thema")%>
">
<%Response.Write(RS("Thema"))%>
<%end if%>
<%Response.Write(RS("titel"))%>
<% %> <%set RT=nameConn.Execute("select * from referenten where refnr="+bla)%> <%blub=RT("vorname")&" "&RT("name")%>
<%Response.Write(RS("Beschreibung"))%>
Referent:
<%Response.Write(blub)%>
<%RS.MoveNext WEND RS.close%>
