<%@LANGUAGE="VBSCRIPT" %>
<%
Dim fso, f
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f   = fso.GetFile(Server.MapPath("../356_RSS.xml"))

If (Session("FirstCheck")="") AND (Session("DateLastModified")="") Then
	Response.Write("0")
	Session("DateLastModified") = f.DateLastModified
	Session("FirstCheck")="False"
ElseIf Session("DateLastModified")="" Then
	Response.Write("1")
	Session("DateLastModified") = f.DateLastModified
ElseIf Session("DateLastModified")=f.DateLastModified Then
	Response.Write("0")
Else
	Response.Write("1")
	Session("DateLastModified") = f.DateLastModified
End If

Set f   = nothing
Set fso = nothing
%>