<% Dim objXMLHTTP, objXML Dim strXML, strURL Set objXMLHTTP = Server.CreateObject("Msxml2.SERVERXMLHTTP") 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=292&slid=1442" strURL = strURL & "&p_site=1&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=292&slid=1442" strURL = strURL & "&p_site=1&source_xml" End If 'Response.Write("View XML
") objXMLHTTP.Open "GET", strURL, False Call objXMLHTTP.Send("") Set objXML = objXMLHTTP.ResponseXML Call XMLToHTMLOutput(objXML, "xsl/vessel_list.xsl") Set objXMLHTTP = Nothing Set objXML = Nothing %>