<% Response.buffer = True %> D-CONSTRUCT Onlinedesign <% SET rs1 = Server.CreateObject("ADODB.RecordSet") rs1.Open "SELECT * FROM neues Where online=0 Order By datum DESC", "DSN=redaktion;" %>
       
d-construct
NeuesArchiv
Archiv    
  Kundenbereich
Name
Passwort
  
Leistung
Referenzen
Partner
Neues
Spass
Kontakt
<%i = 1 For i = 1 to 28 if not rs1.eof then %> <% rs1.movenext i = i + 1 j = j+1 end if next %>
  <%=rs1("datum") %> _<%=rs1("titel") %>
 <%=rs1("text") %>