function HTMLEncode(ByVal pString)
    dim fString
    fString = trim(pString)
    if fString = "" or IsNull(fString) then 
     fString = " "
    else
     fString = replace(fString, ">", "& gt;")
     fString = replace(fString, "<", "& lt;")
    end if
    HTMLEncode = fString
end function


function HTMLDecode(ByVal pString)
    dim fString
    fString = trim(pString)
    if fString = "" then 
     fString = " "
    else
     fString = replace(fString, "& gt;", ">")
     fString = replace(fString, "& lt;", "<")
    end if
    HTMLDecode = fString
end function


function chkString(pString,fField_Type) '## Types - name, password, title, message, url, urlpath, email, number, list
    fString = trim(pString)
    if fString = "" or isNull(fString) then
     fString = " "
     if fFieldType = "displayimage" then fString = ""
     chkString = fString
     Exit function
    else