Function html(ByVal veri)
        veri = Replace(veri, "<", "&lt;")
        veri = Replace(veri, ">", "&gt;")
        Return veri
    End Function