<% dim Dat() redim dat(12) dat(1) = "JAN" dat(2) = "FEB" dat(3) = "MAR" dat(4) = "APR" dat(5) = "MAY" dat(6) = "JUN" dat(7) = "JUL" dat(8) = "AUG" dat(9) = "SEP" dat(10) ="OCT" dat(11) = "NOV" dat(12) = "DEC" function HTMLOutput(Inhalt) HTMLOutput = " " for i = 1 to len (Inhalt) HTMLOutput = HTMLOutput & mid(Inhalt,i,1) if asc(mid(Inhalt,i,1)) = 13 then HTMLOutput = HTMLOutput & "
" end if next end function %> <% set news=server.createobject("ADODB.connection") news.open "fhdsscrreg" set articles = news.execute ("select headline, datum, subline, newstext from news WHERE ID=" & request("ID")) text = articles("Newstext") text = HTMLOutput(text) %> <%=articles("HEadline")%>
 

 

<%=articles("HEadline")%>

<%=dat(month(articles("Datum"))) & " " & day(articles("Datum")) & ", " & year(articles("Datum"))%> - <%=articles("Subline")%>

<%=text%>