<%
'news
'rimette + e %
Function nopiu(sValue)
Dim sAns
sAns = Replace(sValue, "%2b", "+")
nopiu = sAns
End Function
Function noperc(sValue)
Dim sAns
sAns = Replace(sValue, "%25", "%")
noperc = sAns
End Function
ilfile=server.mappath("motore/notizie/notizie-home.txt")
Set file = CreateObject("Scripting.FileSystemObject")
Set ilfile = file.OpenTextFile(ilfile, 1, False)
illine=ilfile.readline
p1=InStr(illine,"n1=")+3
f1=InStr(illine,"&n2=")-4
p2=InStr(illine,"n2=")+3
f2=InStr(illine,"&n3=")-4
p3=InStr(illine,"n3=")+3
f3=InStr(illine,"&n4=")-4
p4=InStr(illine,"n4=")+3
f4=InStr(illine,"&n5=")-4
p5=InStr(illine,"n5=")+3
f5=InStr(illine,"&n6=")-4
p6=InStr(illine,"n6=")+3
f6=InStr(illine,"&n7=")-4
p7=InStr(illine,"n7=")+3
f7=InStr(illine,"&n8=")-4
p8=InStr(illine,"n8=")+3
f8=InStr(illine,"&n9=")-4
p9=InStr(illine,"n9=")+3
f9=InStr(illine,"&n10=")-4
p10=InStr(illine,"n10=")+4
f10=InStr(illine,"&l1=")-4
n1= mid(illine,p1,f1)
n2= mid(illine,p2,(f2-f1)-4)
n3= mid(illine,p3,(f3-f2)-4)
n4= mid(illine,p4,(f4-f3)-4)
n5= mid(illine,p5,(f5-f4)-4)
n6= mid(illine,p6,(f6-f5)-4)
n7= mid(illine,p7,(f7-f6)-4)
n8= mid(illine,p8,(f8-f7)-4)
n9= mid(illine,p9,(f9-f8)-4)
n10= mid(illine,p10,(f10-f9)-5)
' controllo % + al contrario e crea array
n = array(nopiu(noperc(n1)), nopiu(noperc(n2)), nopiu(noperc(n3)),nopiu(noperc(n4)), nopiu(noperc(n5)), nopiu(noperc(n6)), nopiu(noperc(n7)), nopiu(noperc(n8)), nopiu(noperc(n9)), nopiu(noperc(n10)))
'id della notizia
y0=InStr(illine,"&id1=")-5
x1=InStr(illine,"id1=")+4
y1=InStr(illine,"&id2=")-5
x2=InStr(illine,"id2=")+4
y2=InStr(illine,"&id3=")-5
x3=InStr(illine,"id3=")+4
y3=InStr(illine,"&id4=")-5
x4=InStr(illine,"id4=")+4
y4=InStr(illine,"&id5=")-5
x5=InStr(illine,"id5=")+4
y5=InStr(illine,"&id6=")-5
x6=InStr(illine,"id6=")+4
y6=InStr(illine,"&id7=")-5
x7=InStr(illine,"id7=")+4
y7=InStr(illine,"&id8=")-5
x8=InStr(illine,"id8=")+4
y8=InStr(illine,"&id9=")-5
x9=InStr(illine,"id9=")+4
y9=InStr(illine,"&id10=")-5
x10=InStr(illine,"id10=")+5
y10=InStr(illine,"&data=")-6
id = array(mid(illine,x1,(y1-y0)-5),mid(illine,x2,(y2-y1)-5),mid(illine,x3,(y3-y2)-5),mid(illine,x4,(y4-y3)-5),mid(illine,x5,(y5-y4)-5),mid(illine,x6,(y6-y5)-5),mid(illine,x7,(y7-y6)-5),mid(illine,x8,(y8-y7)-5),mid(illine,x9,(y9-y8)-5),mid(illine,x10,(y10-y9)-5))
' ultima ora e ultima data per homepage
dx=InStr(illine,"data=")+5
ox=InStr(illine,"ora=")+4
data=mid(illine,dx,8)
ora=mid(illine,ox,10)
ilfile.Close
set ilfile=nothing
set file=nothing
%>
www.ires.it
