Dim post_params As String
Dim su As StringUtils
post_params = "device_id="& su.EncodeUrl(data_arr(0),"UTF8") & _
"&club_id=" & su.EncodeUrl(data_arr(1),"UTF8") & _
"&seq=" & su.EncodeUrl(data_arr(2),"UTF8") & _
"&str=" & su.EncodeUrl(data_arr(3),"UTF8") & _
"&args=" & su.EncodeUrl(data_arr(4),"UTF8")
send_job.PostString(linkstr, post_params)