<%@ Language=VBScript %> <% Option explicit %> <% ' Lettura file .txt con i numeri memorizzati Dim objFSO, objApriFile, strPath, arrNumero(7), iCount iCount = 0 strPath = Server.MapPath("../cgi-bin/news.txt") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objApriFile = objFSO.OpenTextFile(strPath, 1) Do While Not objApriFile.AtEndOfStream arrNumero(iCount) = objApriFile.ReadLine iCount = iCount + 1 Loop objApriFile.Close Set objApriFile = Nothing Set objFSO = Nothing %> Refugio Monti Pallidi Canazei - Noticias

 

Refugio Monti Pallidi
Strada del Sella 2
38032 Canazei (TN)
Tel. +39 0462.601337
Fax +39 0462.751542
E-Mail:

 
NOTICIAS

<% Dim dtdataScad dtdataScad = cdate(arrNumero(1)) Dim dtOggi dtOggi = cdate(Date()) If dtDatascad >= dtOggi then %>

<%= arrNumero(2)%>

<%= arrNumero(3)%>

<%= arrNumero(4)%>

<%= arrNumero(5)%>

<%= arrNumero(6)%>
<% End If %>