¡ Hola ¡
FUNCIONA EL REPAGINAR EN UN AGENTE EL PROBLEMA ERA
Function parametro(cadena As String, variable As String) As String
If InStr(cadenza,variable)>0 Then
' LO HE ENCONTRADO
cadena2=StrToken(CADENA,PARAMETRO+"=",2)
If InStr(cadena2,"&")>0 Then
parametro=StrToken(cadena2,"&",1)
Else
parametro=cadena2
End If
Else
' NO ESTA ESE PARAMETRO
parametro="0"
End If
End Function
que pone cadena2 cadena cadenza, y mi atrevimiento porque yo veo un codigo y lo respeto si pone cadenza es cadenza
pero esta vez puse cadena en todos.
GRACIAS .