<% Dim objXMLHTTP, objXML Dim strXML, strURL 'Set objXMLHTTP = Server.CreateObject("Msxml2.SERVERXMLHTTP.6.0") Set objXMLHTTP = Server.CreateObject("Msxml2.SERVERXMLHTTP.4.0") strURL = base & "/t_server/vessel_list.asp?" & Request.QueryString If Len(Request.QueryString) > 0 Then If (InStr(strURL,"r_addr") = 0) Then strURL = strURL & "&r_addr=" & CStr(Request.SERVERVARIABLES("REMOTE_ADDR")) & "&server=" & CStr(Request.SERVERVARIABLES("SERVER_NAME")) & Replace(CStr(Request.SERVERVARIABLES("URL")),"global_search.asp","") End If strURL = Replace(strURL,"&no_menu=1","") strURL = strURL & "unique=" & Server.URLEncode(CStr(Now)) & "&no_menu=1&scid=70&slid=586" strURL = strURL & "&source_xml" Else If (InStr(strURL,"r_addr") = 0) Then strURL = strURL & "r_addr=" & CStr(Request.SERVERVARIABLES("REMOTE_ADDR")) & "&server=" & CStr(Request.SERVERVARIABLES("SERVER_NAME")) & Replace(CStr(Request.SERVERVARIABLES("URL")),"global_search.asp","") & "&" End If strURL = Replace(strURL,"&no_menu=1","") strURL = strURL & "unique=" & Server.URLEncode(CStr(Now)) & "&no_menu=1&scid=70&slid=586" strURL = strURL & "&source_xml" End If objXMLHTTP.Open "GET", strURL, False Call objXMLHTTP.Send("") Set objXML = objXMLHTTP.ResponseXML 'Response.Write("View XML
") Call XMLToHTMLOutput(objXML, "xsl/vessel_list.xsl") Set objXMLHTTP = Nothing Set objXML = Nothing %>