Spanish ayuda de http a httputils2 querys(solucionado)

Sub validacion

'
Dim req As HttpRequest
Dim consulta As String

consulta="select cliente from tabla"

req.InitializePost2("mipaginaweb",consulta.GetBytes("UTF8"))
t=1
req.Timeout=20000
control.Execute(req, t)
'
End Sub

Sub control_ResponseSuccess (Response As HttpResponse, tarea As Int)

Log("control 1 existe el archivo")
Dim res As String
res = Response.GetString("UTF8")
Log("Respuesta del servidor: " & res)


Dim parser As JSONParser
parser.Initialize(res)

Dim j As List '


        j.initialize
        j= parser.NextArray




Select tarea
Case 1
end sub

Sub ExecuteRemoteQuery(Query As String, JobName As String)
    Dim job As HttpJob
    job.Initialize(JobName, Me)
    job.PostString("url_a_tu_servidor", Query)
End Sub

Sub JobDone(Job As HttpJob)
    If Job.Success Then
        Dim res As String
        res = Job.GetString
        Dim parser As JSONParser
        parser.Initialize(res)
        Dim Respuesta As List
        Respuesta=parser.NextArray
        Log(Job.JobName&"-"&res)
        Select Job.JobName
            Case "Un caso"
                              Codigo de este caso
            Case "Otro caso"
                              Codigo de este caso
        End Select
    End If
    Job.Release
End Sub