PBC NEWS ARCHIV
<%
DBCON.OPEN DBSTR
IF ID1 <> "" THEN
SQL = "SELECT * FROM news WHERE ID=" & ID1
ELSE
SQL = "SELECT * FROM news WHERE Archiv='Ja' ORDER BY DATUM DESC"
END IF
RS.OPEN SQL, DBCON%>
<%=RS("DATUM")&"; "&RS("Ueber_lang")%>
<%=RS("Newstext")%>
<%
RS.CLOSE
DBCON.CLOSE%>
|
News Übersicht:
<%
DBCON.OPEN DBSTR
SQL = "SELECT * FROM news WHERE Archiv='Ja' ORDER BY Datum DESC;"
RS.OPEN SQL, DBCON
DO WHILE NOT RS.EOF
%>
<%=RS("DATUM")%>
"><%=RS("Ueber_kurz")%>
<%RS.MOVENEXT
LOOP
RS.CLOSE
DBCON.CLOSE%>
|