Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    text
    copied!<p>dont know if u already resolved this issue, it´s a post from one year ago. I am Spanish and I am using mensario too.</p> <p>to send and http request: (this is in ASP but the process is the same one)</p> <pre><code>Function enviarMsg2 Dim oHTTP,inicio Dim strParametros Dim devolver Set oHTTP= server.CreateObject("Msxml2.ServerXMLHTTP") strParametros = "usuario="&amp;usuario&amp;"&amp;clave="&amp;clave&amp;"&amp;nserie="&amp;nserie&amp;"&amp; version=01010000&amp;operacion=300&amp;sms=1%0934635035526%0920041231233000%09Clinica+Paz%09Clinica+Paz+le+desea+Feliz+Navidad%2E&amp;sms=2%0934612345678%0920041231233001%09Clinica+Paz%09Clinica+Paz+le+desea+Feliz+Navidad%2E" 'response.Write strParametros 'response.End 'Abrimos la conexión con el método POST, ya que estamos enviando una petición. oHTTP.open "POST", "https://servicios.mensario.com/enviomasivo/apip", False 'Agregamos encabezados HTTP requeridos... oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 'Enviamos la petición oHTTP.send strParametros devolver = oHTTP.responsetext 'Comprobamos si fue correcto inicio = Instr(devolver, "100 BIEN") 'response.Write "---&gt;"&amp;inicio 'response.End if inicio &lt;=0 then enviarSMS2 = "Ha ocurrido un error en el envío del SMS." else enviarSMS2 = Mid(devolver,inicio+9,len(devolver)) end if Set oHTTP = Nothing </code></pre> <p>The only thing i dont have is a user /password for a try :)</p> <p>Basicaly, when the response is "100 bien" the function returns that, otherwise it returns error.Hope it helps :)</p>
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload