entrada 3

<%
' DECLARACION DE VARIABLES

DIM urlhtml,web,cod_web,cod_soporte,ip,inicio,cantidad,formato,modo

' ¿HTTP O HTTPS?

IF Request.ServerVariables("HTTPS")="off" THEN

web = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")

ELSE

web = "https://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")

END IF


' VARIABLES DE LA PAGINA

cod_web="B74C2EFC"
cod_soporte="1141938ba2c2b13f5505d7c424ebae5f"
ip = Request.ServerVariables("REMOTE_ADDR")
inicio = 0
cantidad = 10
formato= "HTML"
modo = "demo"


' CADENA DE CONEXION

urlhtml= "http://w3.exponsor.com/enlaces.php?" & "pagina=" & web & "&cod_web=" & cod_web& "&cod_soporte=" & cod_soporte& "&ip=" & ip& "&inicio=" & inicio& "&cantidad=" & cantidad& "&formato=" & formato & "&modo=" & modo

' LLAMADA AL SERVICIO WEB


Set HttpObj = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
HttpObj.Open "GET", urlhtml, false
HttpObj.Send()
HTML = HttpObj.ResponseText

Set HttpObj = Nothing

' EN LA VARIABLE HTML tenemos los enclaces y los podemos pintar donde queramos con el siguiente codigo.%>
<%Response.Write(HTML)%>

texto