xomBuild.Initialize("Activ")
xomBuild.BuildFromString(str,"",Null)
File.WriteString(File.DirRootExternal, "/clicklike/rating.xml", str)
If CheckInternet=True Then
ibFTP.close
ibFTP.Initialize("eeeFTP", "ftp.informbyuro.kz", 21, "####", "####")
ibFTP.PassiveMode = False
If ibFTP.IsInitialized=True Then
If File.Exists(File.DirRootExternal,"/clicklike/rating.xml")=True Then
ibFTP.UploadFile(File.DirDefaultExternal, "/clicklike/rating.xml", False, "/ClickLike/rating_OK.xml")
Log("Файл подготовлен к отправлен на FTP сервер")
Else
Log("Нет файла для отправки на FTP сервер")
End If
Else
Log("Не произошло подключение к FTP сервер")
End If
Else
Log("Нет доступа к Интернет")
End If