<% '******************************** '* HTTP NewsGroups '* (c) ML Computersysteme 1998 '* http://www.mlsys.de '* %> HTTP-News

HTTP-Newsgroups

<% set DataConn=server.createobject("adodb.connection") cnpath="DBQ=" & server.mappath("/news/db/news.mdb") DataConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & cnpath set tb = Server.CreateObject("ADODB.Recordset") tb.Open "Select * from [Gruppen] WHERE [Zeiger] = Null or [Zeiger] = 0 order by [Gruppe]", DataConn Do While not tb.EOF Response.Write "" & tb.Fields("Gruppe") & " (" & CountArticle(tb.Fields("Nummer")) & ")
" & vbcrlf WriteGruppen tb.fields("Nummer"), 1 tb.movenext Loop tb.close DataConn.close Set tb = Nothing Set DataConn = Nothing Sub WriteGruppen(Zeiger, Level) set gb = Server.CreateObject("ADODB.Recordset") gb.Open "Select * from [Gruppen] WHERE [Zeiger] = " & Zeiger & " order by [Gruppe]", DataConn Do While not gb.EOF Response.Write "" & "" & gb.Fields("Gruppe") & " (" & CountArticle(gb.Fields("Nummer")) & ")
" & vbcrlf WriteGruppen gb.fields("Nummer"), Level + 1 gb.movenext Loop gb.close Set gb = Nothing End Sub Function CountArticle(Gruppe) set rs = DataConn.execute("SELECT COUNT(*) As RsCount FROM [Artikel] WHERE [Gruppe] = " & Gruppe & " GROUP BY [Gruppe]") if not (rs.eof and rs.bof) then CountArticle = rs("RsCount") else CountArticle = 0 end if rs.Close set rs = nothing End Function %>

© ML-Computersysteme 1998