Current World Production, Market and Trade Reports
<%
Dim strParentPage
'strParentPage = Request.ServerVariables("APPL_PHYSICAL_PATH") & Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/"), Len(Request.ServerVariables("SCRIPT_NAME")))
'strParentPage = Mid(Request.ServerVariables("PATH_TRANSLATED"), InStrRev(Request.ServerVariables("PATH_TRANSLATED"), "\") + 1, Len(Request.ServerVariables("PATH_TRANSLATED")))
strParentPage = Request.ServerVariables("PATH_TRANSLATED")
'response.write "Path Translated: " & Request.ServerVariables("PATH_TRANSLATED") & "
"
'response.write "Physical Path: " & Request.ServerVariables("APPL_PHYSICAL_PATH") & "
"
'response.write "Script Name: " & Request.ServerVariables("SCRIPT_NAME") & "
"
'response.write "Parent Page: " & strParentPage & "
"
GetDateLastModified(strParentPage)
%>