<% LCID = 1040 Session.LCID = LCID function IsoToData(sData) appoData = Mid(sData, 5,2)&"/" appoData = appoData & Mid(sData, 7,2) & "/" appoData = appoData & Mid(sData, 1,4) IsoToData = appoData end function Function ApplyXMLFormatting(strInput) strInput = Replace(strInput,"&", "&") strInput = Replace(strInput,"’", "'") strInput = Replace(strInput,"""", """) strInput = Replace(strInput, ">", ">") strInput = Replace(strInput,"<","<") ApplyXMLFormatting = strInput End Function function FormatDt(sItData) appoItData = Mid(sItData, 7,2) & " " appoItData = appoItData & Monthname(Mid(sItData, 5,2)) & " " appoItData = appoItData & Mid(sItData, 1,4) & "" ItData = appoItData end function Set connNews = Server.CreateObject("ADODB.Connection") connNews.Open "pensiero" SQLArt = "SELECT * from tblNews where nVisibile = 1 ORDER BY sData desc" set RSArt = connNews.execute(SQLArt) ciclo = 0 %> http://www.pensiero.it/ Notizie, curiosità, anteprime dal mondo della sanità italiana ed internazionale Copyright 2005 Il Pensiero Scientifico Editore it-it <%=Now()%> 20 <% DO UNTIL RSArt.EOF OR ciclo=10 ID = RSArt("nIDnews") titolo = RSArt("sTitolo") data = IsoToData(RSArt("sData")) 'dataestesa = Day(mid(RSArt("sData"),7,2))&" "&monthname(mid(RSArt("sData"),5,2))&" "&mid(RSArt("sData"),1,4) 'dataestesa = ItData(RSArt("sData")) abstract = cstr(RSArt("sAbstract") & "") strDesc = abstract %> <%=data%> http://www.pensiero.it/news/news.asp?IDNews=<%=ID%> <%=ApplyXMLFormatting(strDesc)%> <% RSArt.movenext ciclo=ciclo+1 loop connNews.close set connNews = nothing %>