<%@ Language=VBscript %>
MWH Live Homepage
<%
set objXMLReceive=Server.CreateObject("Msxml2.DOMDocument.3.0")
set objXMLResponse=Server.CreateObject("Msxml2.DOMDocument.3.0")
set objSrvHTTP=server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
objXMLReceive.async=false
if request("LoggedIn")<>"TRUE" then
objXMLReceive.loadxml("" & Request("u1") & "" & Request("u2") & "")
objSrvHTTP.Open "POST", "http://83.71.178.73:1455/MWHLiveLocal/LoginRequest.asp", False
objSrvHTTP.send objXMLReceive
objxmlResponse.loadxml(objSrvHTTP.responseXML.xml)
'Response.Write objxmlresponse.xml
if objxmlResponse.childNodes(0).childNodes(0).text="Succeeded" then
Session("CUSTNMBR")=objxmlResponse.childnodes(0).childnodes(1).text
Session("FULLNAME")=objxmlResponse.childnodes(0).childnodes(2).text
else
Response.Redirect "MWHLiveLoginFailed.html"'
end if
end if
%>