|
Friday, 24 February 2012 03:39 |
// Function to Find File Name of Page Displayed
Metformin ups. Metformin without a script. Metformin without prescription cheap. Buy generic Ampicillin. Ampicillin delivery to US Virginia. Cheape Ampicillin online
Function getFileName()
Dim lsPath, arPath
'Obtain the virtual file path
lsPath = Request.ServerVariables("SCRIPT_NAME")
'Split the path along the /s. This creates a one-dimensional array
arPath = Split(lsPath, "/")
'The last item in the array contains the file name
getFileName = arPath(UBound(arPath,1))
End Function
Order Viagra plus no creditcard. Viagra plus in mexico without prescription. Viagra Best buy bestbuy drugs Viagra soft. Buy Viagra soft in Oakland. Buy Viagra soft now. Read more: |