<%
Set nor = Server.CreateObject("ADODB.RecordSet")
nor.ActiveConnection = con
sqlString= "SELECT * FROM news WHERE posizione=1"
nor.open sqlString
news=nor("testo")
nor.close
news=replace(news," "," ")
testo=news
news=""
conta=1
while (conta<240)
if (mid(testo,conta,1)="<") then
while ((mid(testo,conta,1)<>">") and (conta<200))
conta=conta+1
wend
conta=conta+1
end if
if(mid(testo,conta,1)<>"<") then
news=news&mid(testo,conta,1)
conta=conta+1
end if
wend
%>