Ciao! Devo fare un file, default.asp , che visualizza in sequenza,passando da uno all'altro ad intervalli prefissati, dei file html conentuti in una cartella, un po' come se fosse una presentazione di power point.
Ho trovato questo codice:

<%
Dim ultimoFile, nuovoFile
Const miaCartella = "C:\inetpub\wwwroot\\cartellahtml\"
Const attesaRefresh = 70

ultimoFile = Trim(Request("ultimoFile"))

dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")

nuovoFile = TrovaFile(miaCartella, ultimoFile)

Function TrovaFile(pCartella, pUltimoFile)
Dim f, f1, fc, s
Dim mioFile, primoFile
Dim trovato
trovato = false
primoFile = ""
mioFile = ""

Set f = fso.GetFolder(pCartella)
Set fc = f.Files
For Each f1 in fc
If primoFile = "" then primoFile = f1.name
If pUltimoFile = "" Then
mioFile = f1.name
exit for
ElseIf LCase(pUltimoFile) = LCase(f1.name) Then
trovato = true
ElseIf trovato = true Then
mioFile = f1.name
Exit For
End if
Next
If mioFile = "" Then mioFile = primoFile

TrovaFile = mioFile

End Function

Function LeggiFile(percorsoFile)
Set apriFile = fso.OpenTextFile(percorsoFile, 1)
If apriFile.AtEndOfStream Then
LeggiFile = ""
Else
LeggiFile = apriFile.ReadAll
End If
apriFile.Close
End Function
%>

<!doctype html>
<html>
<head>

<meta http-equiv="content-type" content="text/html; charset=UTF-8">
<meta http-equiv="refresh" content="<% =attesaRefresh %>;url=http://localhost/default.asp?ultimoFile=<% =nuovoFile %>">
<title>elenco file</title>
</head>
<body>
<center>
<% =LeggiFile(miaCartella & nuovoFile) %>
</font>
</center>
[/b]
</body>
</html>


Tuttavia la sequenza non parte mai ed il file ASP visualizza sempre e solo il primo file hml della cartella. Qualcuno sa come fare?
Va bene anche se conoscete l'indirizzo web di qualche script che fa un lavoro simile!