Subversion Repositories DevTools

Rev

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

Rev 5080 Rev 5143
Line 67... Line 67...
67 
    Next
 67 
    Next
68 
    GetPathToBase = rv
 68 
    GetPathToBase = rv
69 
End Function
 69 
End Function
70 
 
 70 
 
71 
'--------------------------------------------------------------------------------------
 71 
'--------------------------------------------------------------------------------------
- 
 
 72 
' Determine if a variable or Const exists and is not empty
- 
 
 73 
'   Use to check if a vbscript variable has been declared and contains a non-empty value
- 
 
 74 
Function isDefined( var)
- 
 
 75 
    If (not IsEmpty(Eval(var))) AND Eval(var & " <> """"") Then
- 
 
 76 
        isDefined = TRUE
- 
 
 77 
    Else
- 
 
 78 
        isDefined = FALSE
- 
 
 79 
   End If
- 
 
 80 
End Function
- 
 
 81 
 
- 
 
 82 
'--------------------------------------------------------------------------------------
72 
 
 83 
 
73 
archive_server = Get_Archive_Server()
 84 
archive_server = Get_Archive_Server()
74 
MAIL_SERVER = Get_Mail_Server()
 85 
MAIL_SERVER = Get_Mail_Server()
75 
strRelativePath = GetPathToBase()
 86 
strRelativePath = GetPathToBase()
76 
APP_ROOT = Server.MapPath(".")
 87 
APP_ROOT = Server.MapPath(".")