Dovresti utilizzare i tag CODE, infatti il codice è molto difficile
da leggere.
In tutti i casi, la funzione del Server Scrivi,ritorna sempre False.

codice:
Public Function Scrivi(ByVal Testo as String) as Boolean 

If strTitolo = "" Then 
    Exit Function 
End If 
' Scrivi... 
' Ritorna sempre False !!

' Se riesci a scrivere devi ritornare True !!  
Scrivi = True   
End Function
Se riesci a scrivere devi ritornare True !!

Ciao,