<% 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 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 %>