En la primera página del cliente vemos un combo con las distintas listas que dispone el MUG, este es el resultado del método GetListas del WS y está realizado así:
<%
Dim oWS, oXML, oXSL, sRetornoWS, sHTML
'Creo Objeto cliente SOAP
'Para poder realizar esta tarea debo tener instalado el SOAP Toolkit en el servidor
Set oWS = Server.CreateObject("MSSOAP.SoapClient")
oWS.ClientProperty("ServerHTTPRequest") = true
'Dirección del Motor de este WebService
oWS.mssoapinit "http://webservices.mug.org.ar/motor.wsdl"
'Objeto para recibir el retorno del WS
Set oXML = Server.CreateObject("MSXML2.DomDocument")
'Objeto del XSL
Set oXSL = Server.CreateObject("MSXML2.DomDocument")
'Traer Listas
'El help está en http://www.mug.org.ar/ModoDeUso.asp
sRetornoWS = oWS.GetListas()
'Si el primer carácter es 255 => un error
If left(sRetornoWS, 1) = chr(255) then
Response.Write(mid(sRetornoWS, 2))
Else
'Cargamos el retorno del método GetListas en el objeto XML
oXML.async = false
oXML.loadXML sRetornoWS
'Cargamos el XSL
oXSL.async = false
oXSL.load(Server.MapPath("/Proyectos")&"/ComboListas.xsl")
'Le aplicamos el XSL al XML y obtenemos un HTML
sHTML = oXML.transformNode(oXSL)
'Retonamos el HTML que es un Combo
Response.Write(sHTML)
End If
Set oWS = Nothing
Set oXML = Nothing
Set oXSL = Nothing
%>
Usuarios que han visto este tema también han visto...
- Vaciar un Array con ASP
- Utilizar Java en páginas ASP
- Paginar Datos en ASP
- Desarrollo de un libro de visitas usando XML y ASP
- Utilizando SAFileUp para realizar un upload
- Versión imprimible de este documento
- Enviar por e-mail este documento
Información legal | Política de Privacidad | Contacte con nosotros
Otro proyecto de Factoría de Internet. Copyright© 2003-2008 Factoría de Internet S.L.. Todos los derechos reservados.