Function FullPath () 'gets the current page path (by wind)
DIM STR, Host, URL, Keyword, Full
Str = "http: //"
Host = Request.SerVariables ("http_host")
URL = Request.serverVariables ("Path_INFO") 'or URL
Keyword = Request.ServerVariables ("query_string")
IF keyword <> "" ""
Full = STR & HOST & URL & "?" & Keyword
Else
Full = STR & HOST & URL
END IF
Response.write full
END FUNCTION
