<% 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) %>

FAS Home | USDA.gov | Economic Research Service | World Agricultural Outlook Board | Plain Writing |  Trade Links | FOIA Accessibility Statement | Privacy Policy | Non-Discrimination Statement | Information Quality | USA.gov | White House | Site Map