Option Explicit

Dim objView, objRecord
Dim strTableName, strPropertyName, strSite

strTableName = "HP_Site"
strPropertyName = "HP_Site_Folder"
strSite = UCase(Left(Session.Property("ComputerName"), 3))

Set objView = Session.Database.OpenView("Select `Folder` From `" & strTableName & "` Where `Site`='" & strSite & "'")
objView.Execute
        Set objRecord = objView.Fetch
        if  (objRecord is nothing) OR (objRecord.StringData(1) is nothing) then Session.Property(strPropertyName) = "anyadat te geci"
    elseif
        Session.Property(strPropertyName) = objRecord.StringData(1)
    end if
objView.Close
Set objRecord = Nothing
Set objView = Nothing