%
if(Request("county") <> "") then Session("county") = Request("county")
if(Request("age") <> "") then Session("age") = Request("age")
%>
<%
function fileTimeStamp(pagePath)
Dim objFSO
Dim objFile
dim strPath
strPath = pagePath
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'response.write pagePath & "
"
'response.write strPath & "
"
if objFSO.FileExists(strPath) then
Set objFile = objFSO.GetFile(strPath)
fileTimeStamp = FormatDateTime(objFile.DateLastModified, 1)
Set objFile = Nothing
else
fileTimeStamp = "Error receiving TimeStamp"
end if
Set objFSO = Nothing
end function
function stripQueryString(strPath)
dim strResults
if strPath <> "" then
dim arPath
arPath = Split(strPath, "\")
if IsArray(arPath) then
dim strPage
dim intElement
dim strRoot
strPage = arPath(UBound(arPath))
if InStr(strPage, "?") <> 0 then
strPage = Left(strPage, InStr(strPage, "?"))
end if
arPath(UBound(arPath)) = strPage
strResults = Join(arPath, "\")
end if
end if
stripQueryString = strResults
end function
%>