Här är en funktion som kollar om login o pass finns via xml.
Laddar xml och skapar ett objekt av <session> som finns i xml.
Sessionen blir tom, nån ide?
<%Option Explicit%>
<%
Dim wcUrl
wcUrl = "http://www.generationv.se/worldclient/WorldClient.dll"
Function GetSessionID (ByVal userName, ByVal password)
'// SEND ORDER
Dim objSrvHTTP, objXMLDocIn, sessionID, sessions
Set objXMLDocIn = Server.CreateObject("MSXML2.DOMDocument")
objXMLDocIn.preserveWhiteSpace = True
objXMLDocIn.async = False
Set objSrvHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
objSrvHTTP.open "POST", wcUrl & "?View=StatusCheck&GetSession=Yes&User=" & userName & "&password=" & password , False
objSrvHTTP.send ()
objXMLDocIn.loadxml(objSrvHTTP.responseText)
Set objSrvHTTP = Nothing
Set sessions = objXMLDocIn.selectSingleNode(".//session")
If sessions Is Nothing Then
sessionID = "UNABLE TO LOGIN"
Else
sessionID = sessions.text
End If
GetSessionID = sessionID
End Function
Dim sessionID
sessionID = "dude."
sessionID = GetSessionID(request("name"),request("pass"))
response.write "sessionID = " & sessionID
response.write "<br><a href=""http://www.generationv.se/worldclient/WorldClient.dll?View=StatusCheck&GetSession=Yes&User=" & request("user") & "&password=" & request("pass") & """>[url]http://www.generationv.se/worldclient/WorldClient.dll?View=StatusCheck&GetSession=Yes&User=[/url]" & request("user") & "&password=" & request("pass") & "</a>"
Response.write "<br><br><a href=""" & wcUrl & "?Session=" & sessionID & "&View=List"">" & wcUrl & "?Session=" & sessionID & "&View=List</a>"
%>