
Guardemos el archivo envio.asp
Debemos de crear un formulario con los campos de las variables que queremos enviar y en la accion del formulario, apuntarlo hacia envio.asp.
Tambien se puede enviar la variable directa a envio.asp, por lo que tendremos que ajustar nuestro request.Form un request.querystring o simple request.
ej. envio.asp?valor=hola
Por otro lado, en el servidor remoto crearemos otro archivo ej. valor.asp, el cual recogera las variables que le enviemos, y segun estas variables mostrara los resultados.
Ej. valor.asp
if request("valor")="hola" then
response.write "1" ' Respuesta correcta
else
response.write "2" ' Respuesta incorrecta
end if
En la zona de nuestro codigo donde indicamos
if respuesta="1" then
.....
Segun la respuesta del servidor remoto o pagina, podremos ejecutar cualquien funcion o accion, actualizar o insertar en base de datos, etc...
<% 'Codigo ofrecido por Tutores.org %>
- <%@ Language=VBScript %>
- <%
- valor=request.Form("valor")
- sPostData = "valor=" & server.URLEncode(valor)
- set objHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
- objHttp.open "POST", "http://www.tutores.org/valor.asp", false
- objHttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
- objHttp.Send sPostData
- if (objHttp.status <> 200 ) then
- response.Write "ERROR al conectar con el servidor remoto"
- else
- respuesta = objHttp.responseText
- if respuesta="1" then
- response.Write "La variable es correcta:<br>"&respuesta
- else
- response.Write "La variable no es correcta:<br>"&respuesta
- end if
- end if
- %>
<a title="Tutores.org - Pasar variables entre servidores "Msxml2.ServerXMLHTTP"" href="http://www.tutores.org/codigo/1673/" target="_blank">Pasar variables entre servidores "Msxml2.ServerXMLHTTP"</a>
<!-- Final enlace Tutores.org -->
Saludos!