Código PHP:
<%
Mod_Sales_Daily_Report_ZIP = ""
Mod_Asr_Report_HTM = ""
Mod_Margin_Report_HTM = ""
Mod_SalesRep_Control_HTM = ""
Mod_New_Customer_Day_HTM = ""
On Error Resume Next
pos=cstr(InStrRev(Cstr(Request.ServerVariables("PATH_TRANSLATED")), "\",-1,0))
Path=mid(Request.ServerVariables("PATH_TRANSLATED"),1,pos-1)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Sales_Daily_Report_ZIP = objFSO.GetFile(Path & "sales_daily_report.zip").DateLastModified
if Err.number=0 then
Mod_Sales_Daily_Report_ZIP = "Last Update: " & Sales_Daily_Report_ZIP
else
Err.Clear
end if
Asr_Report_HTM = objFSO.GetFile(Path & "asr_report.htm").DateLastModified
if Err.number=0 then
Mod_Asr_Report_HTM = "Last Update: " & Asr_Report_HTM
else
Err.Clear
end if
Margin_Report_HTM = objFSO.GetFile(Path & "Margin_Report.htm").DateLastModified
if Err.number=0 then
Mod_Margin_Report_HTM = "Last Update: " & Margin_Report_HTM
else
Err.Clear
end if
SalesRep_Control_HTM = objFSO.GetFile(Path & "SalesRep_Control.htm").DateLastModified
if Err.number=0 then
Mod_SalesRep_Control_HTM = "Last Update: " & SalesRep_Control_HTM
else
Err.Clear
end if
New_Customer_Day_HTM = objFSO.GetFile(Path & "New_Customer_Day.htm").DateLastModified
if Err.number=0 then
Mod_New_Customer_Day_HTM = "Last Update: " & New_Customer_Day_HTM
else
Err.Clear
end if
Set objFSO = Nothing
%>
<table border="0" cellspacing="0" cellpadding="3">
<%if Session("Usuario")="REPORT" then%>
<tr>
<td><a href="sales_daily_report.zip" class="menuabajo">Sales Daily Report</a></td>
<td class="tituloslmenu"><%=Mod_Sales_Daily_Report_ZIP%></td>
</tr>
<tr>
<td><a href="New_Customer_Day.htm" class="menuabajo">New Customers Daily Report</a></td>
<td class="tituloslmenu"><%=Mod_New_Customer_Day_HTM%></td>
</tr>
<%elseif Session("Usuario")="SREPORT" then%>
<tr>
<td><a href="asr_report.htm" class="menuabajo">ASR Report per Route</a></td>
<td class="tituloslmenu"><%=Mod_Asr_Report_HTM%></td>
</tr></table>
El resultado de la impresion de los contenidos es asi:
Last Update: Sales Daily Report 28-09-2003 time: 14:45
Estoy muy agradecido por la ayuda que pueda recibir.
Saludos
![Adios](http://static.forosdelweb.com/fdwtheme/images/smilies/adios.gif)
Libio Balbin