<% set objIO = Server.CreateObject("RDCMSASP.RdPageData") objIO.XmlServerClassName = "RDCMSServer.XmlServer" SessionKey = "" If SessionKey <> "" Then LoginGUID = "" Else ProjectGUID = "03EBE024BF444486914298A500667567" RQLUser = "RQLAdmin" RQLPassword = "mk154sd6" xmlData = "" xmlData = objIO.ServerExecuteXml (xmlData, sError) LoginGUID = objIO.GetAttribute("LOGIN","guid",xmlData) xmlData = "" xmlData = objIO.ServerExecuteXml (xmlData, sError) SessionKey = objIO.getAttribute("SERVER", "key", xmlData) End If %>