How to show MQL Data using classic ASP

Follow These 3 Steps to Retrieving MQL Data Using Classic ASP and MATRIXONE Tool

Step 1: Create object of ServerXMLHTTP 6.0x

          dim xmlhttp,urlLogin,PartNO,revision,holdcontent,InitialPoint,FinalPoint,Line

          dim arrFinaldata(0)

          set xmlhttp = CreateObject("Msxml2.ServerXMLHTTP.6.0") 

          xmlhttp.setTimeouts 30000, 60000, 60000, 18000

Step 2: Login into MQL System

          urlLogin = "http://Mwebcorp123.am.mot-mobility.com:5411/ematrix/servlet/login?                                                 login_name=princy&login_password=princy05"

          xmlhttp.Open "POST", urlLogin, False

          xmlhttp.send ""

Step 3: Write MQL query and get responseText of XMLHTTP

             urlECR = "http://Mwebcorp123.am.mot-mobility.com/ematrix/common/emxRunMQL.jsp?mqlCommand=expand bus 'part' """& PartNO &""" """& revision &""" from rel 'Manufacturer Equivalent' select bus to[Manufacturer Equivalent].to.attribute[W18 Part Status].value dump |;"

           xmlhttp.Open "POST", urlECR, False                                                                              

           xmlhttp.send ""

   holdcontent = xmlhttp.responseText

         If InStr(1, holdcontent, "results") > 0 Then

            InitialPoint = InStr(1, holdcontent, "results") + 9

            FinalPoint = InStr(1, holdcontent, "</textarea>")

            Line = Mid(holdcontent, InitialPoint, FinalPoint - InitialPoint)

               if len(line)>0 then

                 'put logic here like split data into array

                      

                      arrFinaldata = split(Line," ")

              end if

       end if