ASP read file and save File function code _ Application Tips

'*************************************
' Read the file
'*************************************

Function LoadFromFile (ByVal File)
Dim objstream
Dim Rtext
Rtext = Array (0, "")
Set objstream = Server.CreateObject ("ADODB. Stream ")
With Objstream
. Type = 2
. Mode = 3
. Open
. Charset = "Utf-8"
. Position = Objstream.size
On Error Resume Next
. LoadFromFile Server.MapPath (File)
If ERR Then
Rtext = Array (Err.Number, Err.Description)
LoadFromFile = Rtext
Err.Clear
Exit Function
End If
Rtext = Array (0,. ReadText)
. Close
End With
LoadFromFile = Rtext
Set objstream = Nothing
End Function

'*************************************
' Save file
'*************************************

Function SaveToFile (ByVal strbody, ByVal File)
Dim objstream
Dim Rtext
Rtext = Array (0, "")
Set objstream = Server.CreateObject ("ADODB. Stream ")
With Objstream
. Type = 2
. Open
. Charset = "Utf-8"
. Position = Objstream.size
. WRITETEXT = Strbody
On Error Resume Next
. SaveToFile Server.MapPath (File), 2
If ERR Then
Rtext = Array (Err.Number, Err.Description)
SaveToFile = Rtext
Err.Clear
Exit Function
End If
. Close
End With
Rtext = Array (0, "Save file succeeded!")
SaveToFile = Rtext
Set objstream = Nothing
End Function