Code: Select all
' Dim res : res = ""
' If Not (artw = "") Then
' res = FTPUpload(site,user,pass,artw,path)
' If Not (res = "") Then
' Call SDB.MessageBox("NowPlayingFTP: "&res,mtError,Array(mbOk))
' End If
' End If
' If res = "" Then
' res = FTPUpload(site,user,pass,loc,path)
' If Not (res = "") Then
' Call SDB.MessageBox("NowPlayingFTP: "&res,mtError,Array(mbOk))
' End If
' End If