Hola a todos soy novato en esto de los webservice, encontre este codigo en la web:
<%@ Language = "VBScript" %>
<HTML>
<HEAD>
<title></title>
<%
Function GetAppSettings(key)
Dim url, xmlhttp, dom, node
'Call web service using HTTP-GET
url = "http://localhost/PWS/Ch2-3/AppServi...smx/"
url = url & "GetAppSettings?key=" & key
Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
Call xmlhttp.Open("GET", url,False)
Call xmlhttp.send
'Parse result
Set dom = Server.CreateObject("Microsoft.XMLDOM")
dom.Load(xmlhttp.responseBody)
Set node = dom.SelectSingleNode("//string")
Response.Write(Server.HTMLEncode(xmlhttp.responseT ext))
If Not node is Nothing Then
GetAppSettings = node.text
End If
End Function
Dim key
Dim value
If Len(Request("Submit1")) > 0 Then
Dim xmlhttp
Dim url
Dim dom
key = Request("key")
value = GetAppSettings(key)
End If
%>
</HEAD>
<body>
<P>
Application("ConnectString")= <%=Application("ConnectString") %>
</P>
<form>
<P>
<INPUT id="key" type="text" name="key" value="<%=key%>">=<%=value%>
</P>
<P>
<INPUT id="Submit1" type="submit" value="GetAppSetting" name="Submit1">
</P>
</form>
<P>
</body>
</HTML>
Y necesito adaptarlo a lo que piden en este link:
ftp://ftp2.sat.gob.mx/asistencia_servicio_ftp/publicaciones/cfdi/WS_ConsultaCFDI.pdf
Luego entonces lo modifico de esta manera
'Call web service using HTTP-GET
url = "https://consultaqr.facturaelectronica.sat.gob.mx/ConsultaCFDIService.svc?wsdl"
url = url & "GetAppSettings?re=XAXX010101000&rr=XAXX010101000& tt=1234567890.123456&id=ad662d33-6934-459c-a128-BDf0393f0f44"
" & key
El cuadro de texto key lo dejo en blanco y al consumir el WS me regresa error
A ver si alguien me puede ayudar.
