Alle Foren Themen Statistiken

<% sort_order=request("sort_order") if sort_order="" then sort_order="T_VIEW_COUNT" end if SQL2 = "SELECT T_SUBJECT, T_VIEW_COUNT, T_REPLIES, TOPIC_ID, T_DATE, T_AUTHOR, T_LAST_POST_AUTHOR FROM FORUM_TOPICS where "&sort_order&">0 order by "&sort_order &" DESC" set onn = Server.CreateObject("ADODB.Connection") onn.Open strConnString set rs2 = onn.execute(SQL2) %> <% x=1 do until rs2.eof if x mod 2 then tdcolor= strForumCellColor else tdcolor= strAltForumcellColor end if x=x+1 %> <% rs2.movenext loop rs2.close set rs2=nothing onn.close%> Thema Autor Datum Angezeigt Antworten Letzter Poster "> <%=rs2("T_SUBJECT")%> "> <%=getMemberName(rs2("T_AUTHOR"))%> <%=chkdate(rs2("T_DATE"))%>, <%=chktime(rs2("T_DATE"))%> <%=rs2("T_VIEW_COUNT")%> <%=rs2("T_REPLIES")%> <% if rs2("T_LAST_POST_AUTHOR")<>0 then response.write "" response.write getmemberName(rs2("T_LAST_POST_AUTHOR"))&" " else response.write " " end if %>