|
<%
Dim rsDatum
set rsDatum=Server.CreateObject("adodb.Recordset")
rsDatum.open "select TOP 1 Kategorie, datetime from Nachrichten WHERE Kategorie='"&rsKats("Kategorie")&"' order by datetime desc", conn, adOpenStatic
%>
<%
Do Until rsDatum.EOF
response.write UKDate(rsDatum("datetime"))
rsDatum.MoveNext
loop
rsDatum.close
set rsDatum=nothing
%>
|
<%
'Const adOpenStatic = 3
Dim rsTopics
Set rsTopics = Server.CreateObject("ADODB.RecordSet")
rsTopics.Open "SELECT Kategorie, Antworten, AwAn, root FROM Nachrichten WHERE Kategorie = '"&rsKats("Kategorie")&"' AND root = 0", conn, adOpenStatic
%>
<%=rsTopics.RecordCount%>
|
<%
rsTopics.close
set rsTopics = nothing
'Const adOpenStatic = 3
Dim rsGesamt
Set rsGesamt = Server.CreateObject("ADODB.RecordSet")
rsGesamt.Open "SELECT * FROM Nachrichten WHERE Kategorie='"&rsKats("Kategorie")&"'", conn, adOpenStatic
%>
<%=rsGesamt.RecordCount%>
<%
rsGesamt.close
set rsGesamt = nothing
%>
|
