Function getFileName()
Dim strURL,intPos,intStrLen,strFileName
strURL = Request.Servervariables("url")
intPos = InstrRev(strURL,"/")
intStrLen = len(strURL)
strFileName = Right(strURL,intStrLen-intPos)
getFileName = strFileName
End Function