У меня есть следующий код, чтобы захватить детали с веб-сервераПроблемы с XMLHTTP
<%@ LANGUAGE=VBScript%>
<%
vCustomerUserName = "name"
vCustomerPassword = "password"
vEventID = 123456
vEmail = "[email protected]"
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-документа и был бы признателен за любую помощь.
Благодаря