Subversion Repositories DevTools

Rev

Rev 4764 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4764 Rev 5018
Line 57... Line 57...
57 
'Return a relative path to the server base. Used for relative pathing to 'images'
 57 
'Return a relative path to the server base. Used for relative pathing to 'images'
58 
'Assumes server base is in a directory called Release_Manager
 58 
'Assumes server base is in a directory called Release_Manager
59 
Function GetPathToBase()
 59 
Function GetPathToBase()
60 
    Dim url,depth,rv,ii
 60 
    Dim url,depth,rv,ii
61 
    url = request.servervariables("URL")
 61 
    url = request.servervariables("URL")
62 
    url = Mid(url,Instr(url, "Release_Manager"))
 62 
    url = Mid(url,Instr(Lcase(url), "release_manager"))
63 
    depth =  len(url) - len(replace(url, "/", ""))
 63 
    depth =  len(url) - len(replace(url, "/", ""))
64 
    rv = ""
 64 
    rv = ""
65 
    For ii = 2 To depth
 65 
    For ii = 2 To depth
66 
        rv = rv & "../"
 66 
        rv = rv & "../"
67 
    Next
 67 
    Next