Code Reference » asp http://sullivan.net/blog A collection of code for my reference (and perhaps other people too) Wed, 25 Jan 2012 17:53:32 +0000 en hourly 1 http://wordpress.org/?v=3.2.1 POST using ASP http://sullivan.net/blog/2010/05/post-using-asp/ http://sullivan.net/blog/2010/05/post-using-asp/#comments Mon, 31 May 2010 12:20:32 +0000 Darren http://sullivan.net/blog/?p=335 A more simple way to to a POST. This is cleaner than the last example I created.

I used a nice function at http://www.secretgeek.net/XMLSendReceive.shtml.

' First load the XML to send off
Set SendDoc = server.createobject("Microsoft.XMLDOM")
SendDoc.ValidateOnParse= True
SendDoc.LoadXML(sTrData) 

' Then call the POST function and get a nice object back
set SourceObj = xmlSend (sURL, SendDoc)

Reading the XML:

set oUid = SourceObj.documentElement.selectSingleNode("//UserId")
set oHtml = SourceObj.documentElement.selectSingleNode("//User/Name")

Here is the nifty little function

    private function xmlsend(url, docSubmit)
        Set poster = Server.CreateObject("MSXML2.ServerXMLHTTP")
        poster.open "POST", url, false
        poster.setRequestHeader "CONTENT_TYPE", "text/xml"
        poster.send docSubmit
        Set NewDoc = server.createobject("Microsoft.XMLDOM")
        newDoc.ValidateOnParse= True
        newDoc.LoadXML(poster.responseTEXT)

        Set XMLSend = NewDoc
        Set poster = Nothing
    end function
]]> http://sullivan.net/blog/2010/05/post-using-asp/feed/ 0 GET and POST using ASP http://sullivan.net/blog/2009/09/get-and-post-using-asp/ http://sullivan.net/blog/2009/09/get-and-post-using-asp/#comments Thu, 10 Sep 2009 07:53:13 +0000 Darren http://sullivan.net/blog/?p=162 In these examples I am calling a WCF service. Many legacy projects out on the net are still using ASP.

POST example with ASP

xmlToSend = "<?xml version=""1.0"" encoding=""utf-8"" ?><InputXMLObject xmlns=""http://schemas.datacontract.org/2004/07/MyService""><FirstName>Darren</FirstName><LangCode>UK</LangCode><LastName>Sullivan</LastName><Address>123 Rue de Nowhere</Address><City>Paris</City></InputXMLObject>"

postUrl = "http://myurl.com/MyService.svc/AddPerson"
Dim HttpReq
Set HttpReq = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
HttpReq.Open "POST", postUrl, False
HttpReq.SetRequestHeader "Content-Type", "application/xml"	'"application/x-www-form-urlencoded"
HttpReq.Send xmlToSend
PostXMLResponse = HttpReq.ResponseText

GET example with ASP

getUrl = "http://MyUrl/MyService.svc/AddPerson?FirstName=Darren&LastName=Sullivan&Address=123 Rue de Nowhere&City=Paris&langCode=UK"

Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "GET", getUrl, False
xmlhttp.setRequestHeader "Content-type", "text/xml"
xmlhttp.send()
GetXMLResponse = xmlhttp.responseText

Process the XML result

Set SourceObj = Server.CreateObject("MSXML2.DOMDocument.6.0")
SourceObj.async = false
SourceObj.setProperty "SelectionLanguage", "XPath"
'SourceObj.loadXML( GetXMLResponse ) ' For the GET call
SourceObj.loadXML( PostXMLResponse ) ' For the POST call

Dim NewRecordID, Success, ErrorString

set NewRecordID	= SourceObj.documentElement.selectSingleNode("//RecordID")
set Success = SourceObj.documentElement.selectSingleNode("//Success")
set ErrorString = SourceObj.documentElement.selectSingleNode("//ErrorString")

if not ErrorStringis nothing then
	ErrorText = ErrorString.text
else
	ErrorText = ""
end if
...
]]> http://sullivan.net/blog/2009/09/get-and-post-using-asp/feed/ 3