il Cosmopolita

<% '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 %> il Cosmopolita

ARCHIVI ON LINE

Rassegna Online

www.rassegna.it

Ricerca nel sito dal 1999 all'anno corrente

Accesso libero

Rassegna sindacale

settimanale di politica ed economia sociale

www.rassegnasindacale.it

Accesso gratuito agli abbonati per l'anno in corso

Se non hai la password e sei abbonato alla rivista Rassegna sindacale clicca qui per iscriverti gratuitamente al servizio
di consultazione on linedegli articoli della rivista.

Accesso riservato agli abbonati all'archivio di Rassegna Online (1997-2003 )

Se non hai la password clicca qui per abbonarti alla consultazione on line dell'archivio di Rassegna Sindacale.

Rassegna sindacale on line archive
Subscription Application Form

If you have no password to make your subscription to Rassegna Sindacale on line Archive click here

Notiziario della rivista giuridica del lavoro

rivista bimestrale

Accesso gratuito agli abbonati

CHIUDI