Sub buscaIdComprador
Dim Cursor1 As Cursor
Cursor1 = SQL1.ExecQuery("SELECT id_perfil FROM config")
For i = 0 To Cursor1.RowCount - 1
Cursor1.Position = i
id_perfil = Cursor1.GetString("id_perfil")
Next
Cursor1.Close
Log("ID:"&id_perfil)
Dim dados_perfil As HttpJob
dados_perfil.Initialize("dados_perfil", Me)
dados_perfil.PostString(servridor &"cadastro.php?acao=3", "id_perfil="& id_perfil)
End Sub