ASP Read Write file FSO instance code

'==============================
' Function name: fsolinewrite
' Function: Write files by line
' Parameter: File relative path filepath, write line number linenum, write content linecontent
'==============================
Function Fsolinewrite (filepath,linenum,linecontent)
If linenum<1 Then Exit Function
Set fso=server.createobject ("Scri" & "Pting"). File "& Sys" & "Temobject")
If not Fso.fileexists (Server.MapPath (FilePath)) Then Exit Function
Temp=fsofileread (FilePath)
Temparr=split (TEMP,CHR) &AMP;CHR (10))
Temparr (LineNum-1) =linecontent
Temp=join (TEMPARR,CHR) &AMP;CHR (10))
Call CreateFile (filepath,temp)
Set fso=nothing
End Function

'==============================
' Function name: Fsofileread
' Function: Read file
' Parameter: File relative path filepath
'==============================
Function Fsofileread (FilePath)
Set Objadostream = Server.CreateObject ("A" & "DoD" & "B.st" & "R" & "Eam")
If err.number=-2147221005 Then
Response.Write "Side Card Error Tip: Server does not support ADODB.stream"
Err.Clear
Response.End
End If
With Objadostream
. type=2
. mode=3
. Charset = "Utf-8"
. Open
. LoadFromFile Server.MapPath (FilePath)
. Position = 2
Fsofileread=. ReadText
End With
Objadostream.close
Set objadostream=nothing
End Function