------------
Application("SiteName") = ""<BR>
application("SiteID") = "0"<BR>
Server.MapPath("/SiteName/") = "D:\Websites\GalleriesHosted\SiteNames"<BR>
Mid(Server.MapPath("/SiteName/"), InStrRev(Server.MapPath("/SiteName/"), "\")+1 ) = "SiteNames"<BR>
<BR>