KATEGORIEN

<% 'on error resume next Session.timeout = 20 If IsObject(Session("web_conn")) Then Set conn = Session("web_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "WEB","lichtnetz","ufo99" Set Session("web_conn") = conn End If Set rs = Server.CreateObject("ADODB.Recordset") sql="SELECT BUCH.Kategoriename as kategoriename FROM BUCH INNER JOIN KATEGORIE ON BUCH.Kategoriename = KATEGORIE.Kategoriename GROUP BY BUCH.Kategoriename" rs.Open sql, conn, 3, 3 do while not rs.eof %> "><%=server.HTMLEncode(rs("Kategoriename"))%>
<% rs.movenext loop rs.close %>