Calling a .NET web service from classic ASP

Hi.

I have a very simple web service that I am trying to call from a classic ASP
page. The web service project and the ASP page are both on my development
machine. That's the code of my web service:

<WebService(Namespace:="http://tempuri.org/")> _
Public Class TextData
Inherits System.Web.Services.WebService

<WebMethod(Description:="Simple method")> _
Public Function GetName(ByVal sName As String) As String
Return "The name is: " & sName
End Function

End Class

And in my ASP page I have the following code:

<%Option Explicit
Dim objRequest, objXMLDoc, objXmlNode, strRet, strError
Set objRequest = Server.createobject("MSXML2.XMLHTTP")

With objRequest
.open "GET", "HTTP://tempuri.org/TextData/TextData.asmx", False
.setRequestHeader "Content-Type", "text/xml"
.setRequestHeader "SOAPAction", "HTTP://tempuri.org/GetName"
.send
End With

Set objXMLDoc = Server.createobject("MSXML2.DOMDocument")
objXmlDoc.async = false

If objXMLDoc.LoadXml(objRequest.ResponseXml.Xml) Then
Set objXMLNode = objXMLDoc.SelectSingleNode("GetNameResponse")

If Not objXMLNode Is Nothing then
strRet = objXMLNode.NodeTypedValue
Response.Write("Response: " & sRet)
End If
Else
strError = objXMLDoc.parseError.reason
Response.Write("Error: " & strError)
End If

%>


When I run the ASP page, I receive the error: XML document must have a top
level element.

What do I need to do in order to consume this web service in a classic ASP
page? And why do I need to use tempuri.org instead of localhost, in my
Request?

Thank you,
Julian

re: Calling a .NET web service from classic ASP

I'm not an expert on SOAP, in fact, I don't know much about it but it looks
like you're missing SOAP body.
You'll need SOAP body in the request body in addition to the SOAPAction in
the request header.

you don't have to use tempuri.org if you don't want to. You gave your
webservice the namespace tempuri.org. Change it to whatever you want and
make sure you match it in your request.

"Julian Hershel" <jhershel.thisout@exds.com> wrote in message
news:OqjBipzIEHA.3820@tk2msftngp13.phx.gbl...[color=blue]
> Hi.
>
> I have a very simple web service that I am trying to call from a classic[/color]
ASP[color=blue]
> page. The web service project and the ASP page are both on my development
> machine. That's the code of my web service:
>
> <WebService(Namespace:="http://tempuri.org/")> _
> Public Class TextData
> Inherits System.Web.Services.WebService
>
> <WebMethod(Description:="Simple method")> _
> Public Function GetName(ByVal sName As String) As String
> Return "The name is: " & sName
> End Function
>
> End Class
>
> And in my ASP page I have the following code:
>
> <%Option Explicit
> Dim objRequest, objXMLDoc, objXmlNode, strRet, strError
> Set objRequest = Server.createobject("MSXML2.XMLHTTP")
>
> With objRequest
> .open "GET", "HTTP://tempuri.org/TextData/TextData.asmx", False
> .setRequestHeader "Content-Type", "text/xml"
> .setRequestHeader "SOAPAction", "HTTP://tempuri.org/GetName"
> .send
> End With
>
> Set objXMLDoc = Server.createobject("MSXML2.DOMDocument")
> objXmlDoc.async = false
>
> If objXMLDoc.LoadXml(objRequest.ResponseXml.Xml) Then
> Set objXMLNode = objXMLDoc.SelectSingleNode("GetNameResponse")
>
> If Not objXMLNode Is Nothing then
> strRet = objXMLNode.NodeTypedValue
> Response.Write("Response: " & sRet)
> End If
> Else
> strError = objXMLDoc.parseError.reason
> Response.Write("Error: " & strError)
> End If
>
> %>
>
>
> When I run the ASP page, I receive the error: XML document must have a top
> level element.
>
> What do I need to do in order to consume this web service in a classic ASP
> page? And why do I need to use tempuri.org instead of localhost, in my
> Request?
>
> Thank you,
> Julian
>
>[/color]

re: Calling a .NET web service from classic ASP

Hello Julian,
[color=blue]
> What do I need to do in order to consume this web service in a classic
> ASP page? And why do I need to use tempuri.org instead of localhost,
> in my Request?
>[/color]

tempuri.org is actually the namespace that is used for the web service. Your problem arises from this line:

.open "GET", "http://tempuri.org/TextData/TextData.asmx", False

This line should actually read (assuming your webservice is hosted on the local machine):
.Open "GET", "http://localhost/TextData/TextData.asmx", False

Also, since your method is expecting a string you will want to pass this along on the querystring (ie: TextData.asmx?name=Foo or use a POST method to pass the parameter along.

--
Matt Berther
http://www.mattberther.com

re: Calling a .NET web service from classic ASP

Hi Matt.

I changed my ASP page as you told me and it worked, thanks. That's my final
code but I would like your help one more time:

<%Option Explicit
Dim objRequest, objXMLDoc, objXmlNode
Dim strRet, strError, strNome

strName = "Julian"
Set objRequest = Server.createobject("MSXML2.XMLHTTP")

With objRequest
.open "GET", "http://localhost/TextData/TextData.asmx/GetName?sName=" &
strName, False
.setRequestHeader "Content-Type", "text/xml"
.setRequestHeader "SOAPAction", "HTTP://localhost/TextData/GetName"
.send
End With

Set objXMLDoc = Server.createobject("MSXML2.DOMDocument")
objXmlDoc.async = false

Response.Write(objRequest.ResponseXml)

'If objXmlDoc.LoadXml(objRequest.ResponseXml.Xml) Then
' Set objXmlNode = objXmlDoc.SelectSingleNode("GetNameResponse")
' If Not objXmlNode Is Nothing Then
' strRet = objXmlNode.NodeTypedvalue
' Response.Write(strRet)
' End If
'Else
' strError = objXmlDoc.parseError.reason
' Response.write(strError)
'End If
%>

I see the entire response in xml. How can I extract only the sName parameter
from the returned xml? The commented code does not work :-(

Thanks,
Julian



"Matt Berther" <mberther@hotmail.com> wrote in message
news:%23MZiBp2IEHA.1944@TK2MSFTNGP11.phx.gbl...[color=blue]
> Hello Julian,
>[color=green]
> > What do I need to do in order to consume this web service in a classic
> > ASP page? And why do I need to use tempuri.org instead of localhost,
> > in my Request?
> >[/color]
>
> tempuri.org is actually the namespace that is used for the web service.[/color]
Your problem arises from this line:[color=blue]
>
> open "GET", "http://tempuri.org/TextData/TextData.asmx", False
>
> This line should actually read (assuming your webservice is hosted on the[/color]
local machine):[color=blue]
> Open "GET", "http://localhost/TextData/TextData.asmx", False
>
> Also, since your method is expecting a string you will want to pass this[/color]
along on the querystring (ie: TextData.asmx?name=Foo or use a POST method to
pass the parameter along.[color=blue]
>
> --
> Matt Berther
> http://www.mattberther.com[/color]

re: Calling a .NET web service from classic ASP

Hello Julian,

First of all, if you're using .NET 1.1 and have not overridden machine.config to allow HTTP GET requests for your web service, you will need to enable that by adding the following XML to your web.config, under the system.web element:

<webServices>
<protocols>
<add name="HttpGet"/>
</protocols>
</webServices>

Secondly, since youre not using SOAP, you can expect this simple response to be in the format of:

<string xmlns="http://tempuri.org/">The name is: Julian</string>

Hence, you should be able to extract the data that you want with something like:

Set objXmlNode = objXmlDoc.SelectSingleNode("string")

Lastly, since you are not using SOAP, you can safely delete the setRequestHeader "SOAPAction" line.

I've re-created your simple webservice on my development machine here and it does work after making the changes I just detailed.

If you have further questions, please let me know.
[color=blue]
> 'If objXmlDoc.LoadXml(objRequest.ResponseXml.Xml) Then
> ' Set objXmlNode = objXmlDoc.SelectSingleNode("GetNameResponse")
> ' If Not objXmlNode Is Nothing Then
> ' strRet = objXmlNode.NodeTypedvalue
> ' Response.Write(strRet)
> ' End If
> 'Else
> ' strError = objXmlDoc.parseError.reason
> ' Response.write(strError)
> 'End If
> %>
> I see the entire response in xml. How can I extract only the sName
> parameter from the returned xml? The commented code does not work :-([/color]

--
Matt Berther
http://www.mattberther.com