<%

function returnIf(state, ifTrue, ifFalse)
    dim returnValue

    if not isNull(state) then
        if cBool(state) then
            returnValue = ifTrue
        else
            returnValue = ifFalse
        end if
    else
        returnValue = ifFalse
    end if

    returnIf = cStr(returnValue)
end function

function getFileText(relativePath)
    dim fileSystem, fileHandle, absolutePath, fileText

    absolutePath = Server.mapPath(relativePath)
    set fileSystem = Server.Createobject("Scripting.FileSystemObject")

    set fileHandle = fileSystem.openTextFile(absolutePath)
    fileText = fileHandle.ReadAll
    fileHandle.close
    set fileHandle = nothing

    set fileSystem = nothing
    getFileText = fileText
end function

sub setFileText(relativePath, fileText)
    const overwrite = true

    dim fileSystem, fileHandle, absolutePath

    absolutePath = Server.mapPath(relativePath)
    set fileSystem = Server.Createobject("Scripting.FileSystemObject")

    set fileHandle = fileSystem.createTextFile(absolutePath, overwrite, 0)

    fileHandle.write fileText
    fileHandle.close

    set fileHandle = nothing
    set fileSystem = nothing
end sub

sub noParameterSub
    dim bla

    bla = 1
end sub

%>