У меня есть следующий код для получения сведений с веб-сервера
<%@ LANGUAGE=VBScript%>
<%
vCustomerUserName = "name"
vCustomerPassword = "password"
vEventID = 123456
vEmail = "myname@me.com"
vPassword = "1122334455"
Response.Buffer=False
Dim MyConnection
Dim TheURL
''# Specifying the URL
dataURL = "http://www.regonline.com/authorization.asmx/authorizeMemberWithEmailAddress"
Set MyConnection = Server.CreateObject("Microsoft.XMLHTTP")
''# Connecting to the URL
MyConnection.Open "POST", dataURL, False
MyConnection.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
''# Sending and getting data
strQueryString = "customerUserName=" & vCustomerUserName & "&customerPassword=" & vCustomerPassword & "&eventID=" & vEventID & "&emailAddress=" & vEmail & "&password=" & vPassword
''# MyConnection.Send
MyConnection.Send strQueryString
TheData = MyConnection.responseText
''# Set the appropriate content type
Response.ContentType = MyConnection.getResponseHeader("Content-type")
Response.Write (TheData)
Set MyConnection = Nothing
%>
Если я запусту эту страницу в браузере, она вернет документ, который выглядит как XML-документ.Что мне нужно сделать, это извлечь значение определенного узла, а затем отправить его в браузер в виде
response.write firstName=bob&lastName=smith
Может кто-нибудь помочь мне, это сводит меня с ума и занял слишком много времениникуда не деться.Кажется, я не могу получить доступ к ответу с сервера в виде XML-документа и буду признателен за любую помощь.
Спасибо