<%
CONST adOpenStatic = 3
SET nameConn = Server.CreateObject("ADODB.Connection")
nameConn.Open "DSN=gast"
SET RS = Server.CreateObject("ADODB.RecordSet")
RS.Open "SELECT Titel, Url, Bild, Beschreibung FROM prolinks ORDER BY ID DESC", nameConn, adOpenStatic
%>
<%
DIM i
WHILE NOT RS.EOF AND i < 5
%>
<%
RS.MoveNext
i = i+1
WEND
RS.Close
SET RS = Nothing
nameConn.Close
SET nameConn = Nothing
%>
Kategorie:
