<% Dim objXMLHTTP, objXML Dim strXML, strURL Dim mode, qs mode = getValueDef( "mode", "catamaranList" ) qs = Request.QueryString qs = replace( qs, "mode=", "mode1=" ) Set objXMLHTTP = Server.CreateObject("Msxml2.SERVERXMLHTTP.6.0") strURL = baseNet & "/t-vessel-list.aspx?tlId=" & strLoginsId & "&Company=" & strCompaniesId & "&mode=" & mode _ & "&w=350&h=350&Currency=7&measure=US" _ & "&" & qs ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim VesselListNo VesselListNo = request.QueryString("VesselList") if (VesselListNo = "") then VesselListNo = 0 End if 'response.Write("QueryString:" & VesselListNo) 'strURL = "http://localhost/Sales/xml_dump/VesselList/" & VesselListNo & ".xml" strURL = "http://www.catamarans.com/sales/xml_dump/VesselList/" & VesselListNo & ".xml" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' objXMLHTTP.Open "GET", strURL, False Call objXMLHTTP.Send("") Set objXML = objXMLHTTP.ResponseXML Call XMLToHTMLOutput(objXML, "xsl/vessel_list.xsl") Response.Write("
View XML
") Set objXMLHTTP = Nothing Set objXML = Nothing %>