<%@ Language=VBScript%>

<%

Dim host_athena

'host_athena="http://wlscollaudo.tesoro.it"

host_athena="https://appathena.rgs.mef.gov.it/athena2/"

%>

GUIDA PER UNA CORRETTA CONFIGURAZIONE DEL BROWSER CLICCA QUI.

href="https://appathena.rgs.mef.gov.it/athena2/popupSegnalazioniAthena.do" target="_blank"/>Supporto tecnico

href="mailto:assistenza.athena@mef.gov.it">Altre richieste

Link per RTS: scarica il file

Si informano gli utenti che il presente applicativo utilizza cookie tecnici nella misura strettamente necessaria a consentire l'erogazione del servizio. Per maggiori informazioni e' possibile consultare l'informativa Privacy e Cookie Policy.

<%

Dim objFso,PathFP,objItem,Cartella,rPath,sPath

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

rPath= "news\"

sPath= "news/"

PathFP = Server.mappath(rPath)

Set Cartella = objFSO.GetFolder(PathFP)

dim news, righe, pathFile, contanews

contanews=0

news="Non sono presenti news"

Dim ilfile,file,counter,illine,nomefile

'Dim listacartella()

'i = 0

'Do While Not resultset.EOF

' REDIM PRESERVE nomearray(i)

' listacartella(i) = CStr(resultset("nomecampo"))

' i = i + 1

' resultset.MoveNext

'Loop

For Each objItem In cartella.files

contanews = contanews+1

if (contanews=1) then news="" end if

' news = news & "" & objItem.Name & "
"

news = news & "" & right(objItem.Name,len(objItem.Name)-5) & "
"

ilfile="news/" & objItem.Name

%>

<%

Dim FileObject,appolinea

Set FileObject = Server.CreateObject("Scripting.FileSystemObject")

'LEGGO IL FILE

Set InStream = FileObject.OpenTextFile(Server.MapPath(ilfile),1,False,False)

linee = Instream.ReadAll()

' SALVO NELL'ARRAY

linee = Split (linee, VbCrLf)

InStream.Close

Set InStream=Nothing

'MOSTRO A VIDEO IL CONTENUTO DEL FILE

'for i = 0 to ubound(linee)

' if (i<4) then

' appolinea = replace(linee(i),"'","`")

' if len(appolinea) > 47 then

' appolinea = left(appolinea,47)

' appolinea = appolinea & "..."

' end if

' news = news & appolinea & "
"

' end if

' if (i=4) then

' news = news + "[...]
"

' end if

'next

news = replace(news,"'","`") & "
"

Set FileObject = Nothing

%>

<%

' Set file = CreateObject("Scripting.FileSystemObject")

' nomeFile = server.MapPath(objItem.Name)

' Set ilfile = fso.OpenTextFile(nomeFile,1,False,0)

' Set ilfile = file.OpenTextFile(ilfile, 1, False)

' righe = ""

' do while not ilfile.AtEndOfStream

' righe = righe & ilfile.ReadLine() & "
"

' loop

'

' ilfile.Close

' set ilfile=nothing

' set file=nothing

'

' news = news & righe

'

'

Next

Set Cartella = Nothing

Set objFSO = nothing

'news = news & ilfile

%>

tutte le news

Verifica e attestazione obblighi di pubblicazione istituzioni scolastiche. Istruzioni operative nella news.