InsUrl="http://xxx.com/sdi_sync.php"
cCursor=dbSQL.ExecQuery("Select * from AA where syn=1")
ProgressDialogShow2("Data synchronizing. Please wait...", False)
Dim values(ccursor.ColumnCount*2) As String
For j=0 To cCursor.RowCount-1
cCursor.Position=j
l=k
For k=0 To cCursor.ColumnCount-1
values(l)= cCursor.GetColumnName(k)
l=l+1
values(l)= cCursor.GetString2(k)
l=l+1
Next
l=0
k=0
job.Initialize("Synchronize", Me)
job.Download2(InsUrl,Array As String("action","add",values(0),values(1),values(2 ),values(3),values(4),values(5),values(6),values(7 ),values(8),values(9),values(10),values(11),values (12),values(13),values(14),values(15),values(16),v alues(17),values(18),values(19),values(20),values( 21),values(22),values(23),values(24),values(25),va lues(26),values(27),values(28),values(29),values(3 0),values(31),values(32),values(33),values(34),val ues(35),values(36),values(37),values(38),values(39 ),values(40),values(41),values(42),values(43),valu es(44),values(45),values(46),values(47),values(48) ,values(49),values(50),values(51) ))
Next