|
Chronik
Vormoos
Sortierung ( | ) |
|
<%
Dim sort
sort = Request.QueryString("sort")
IF sort = "" THEN
SQL = "SELECT * FROM chronik"
ELSE
SQL = "SELECT * FROM chronik ORDER BY ID DESC"
END IF
SET getChronik = adoCon.EXECUTE(SQL)
DO UNTIL getChronik.EOF = TRUE
Datum = getChronik("Datum")
Memo = getChronik("Memo")
%>
<%=Datum%> |
<%=Memo%> |
|
|
<%
getChronik.MoveNEXT
LOOP
getChronik.Close
SET getChronik = nothing
%>
|