<% path=Request.ServerVariables("PATH_TRANSLATED") path=left(path,instrrev(path,"\")) strDSN = "DRIVER=Microsoft Access-Treiber (*.mdb); DBQ=" & path & "database\database.mdb" strSQL = "SELECT * FROM news WHERE visible='1' ORDER BY id DESC" Set database = Server.CreateObject("ADODB.Recordset") database.Open strSQL, strDSN Set datum = database("datum") Set titel = database("titel") Set d_inhalt = database("inhalt") Set poster = database("poster") Set quellename = database("quellename") Set quelleurl = database("quelleurl") vl_counter=0 do until database.eof or vl_counter=10 %>
 <%=datum%> - <%=titel%>

posted by <%=poster%> 

<% inhalt=replace(d_inhalt,":)","") inhalt=replace(inhalt,"^_^","") inhalt=replace(inhalt,":D","") inhalt=replace(inhalt,":(","") inhalt=replace(inhalt,":disgust:","") inhalt=replace(inhalt,":eek:","") inhalt=replace(inhalt,">(","") inhalt=replace(inhalt,":wacko:","") inhalt=replace(inhalt,";)","") inhalt=replace(inhalt,"???","") %> <%=inhalt%> <% if len(quellename)>0 then %>
 (Quelle: <%=quellename%>) <%end if %>

<% database.MoveNext vl_counter=vl_counter +1 loop database.close %>