Sub ServerLog(AddLog As String)
'save the daily log
DateTime.DateFormat="yyyyMMdd"
AddLog=DateTime.Date(DateTime.Now) & "-" & DateTime.Time(DateTime.Now) & " Server: " & AddLog &CRLF
'LogColor(AddLog,Colors.Red)
Log(AddLog)
Dim DailyLog As String =DateTime.Date(DateTime.Now) &"_"& Main.LogFile
Dim FileOut As OutputStream=File.OpenOutput(Main.WkDir,DailyLog,True)
Dim Tw As TextWriter
Tw.Initialize(FileOut)
Tw.Write(AddLog)
Tw.Close
End Sub