<%LANGUAGE="VBSCRIPT"%> <% sql = "SELECT * FROM Aktionen WHERE Kategorie LIKE 'V' ORDER BY LfdNr" set rsAktionen = Server.CreateObject("ADODB.Recordset") rsAktionen.Open sql, conn, 3, 3 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsAktionen_numRows = rsAktionen_numRows + Repeat1__numRows %> Autohaus Rudhart - Neuwagen
 

  [__]
  <% While ((Repeat1__numRows <> 0) AND (NOT rsAktionen.EOF)) %>
<%=(rsAktionen.Fields.Item("Titel").Value)%>

<% If Len(rsAktionen.Fields.Item("Freitext").Value) > 0 Then Response.Write Replace(rsAktionen.Fields.Item("Freitext").Value, vbCrLf, "
" & vbCrLf) End if %>
" target="_blank">
" target="_blank">
<%=(rsAktionen.Fields.Item("Linktext").Value)%>
<%=(rsAktionen.Fields.Item("Fusstext").Value)%>
.jpg">
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsAktionen.MoveNext() Wend %>