<% Dim objXML ems = "error! Connection to remote host failed!" myDest = "http://www.bitwits.com/cm/remoteNavServer.asp?" myVals = "rl=32" rawReturns = SendSecurePost(myDest, myVals) if rawReturns <> "nodata" then rawReturn = split(rawReturns, "#@#") errorStr = split(trim(rawReturn(0)), "@@") wAll = trim(errorStr(0)) wS = trim(errorstr(1)) remoteStyle = trim(rawReturn(1)) remoteNavStream = trim(rawReturn(2)) response.write VbNewLine & remoteStyle & VbNewLine if Instr(remoteNavStream, "$$") then navDualStreams = split(remoteNavStream, "$$") Top_Nav = navDualStreams(0) Sub_Nav = navDualStreams(1) All_Nav = wAll else All_Nav = remoteNavStream Top_Nav = wS Sub_Nav = wS end if else All_Nav = ems Top_Nav = ems Sub_Nav = ems end if Function SendSecurePost(destinationURL, optionalValues) on error resume next Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP") objXML.open "POST", destinationURL, false objXML.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXML.send(optionalValues) outVals = objXML.responseText set objXML = nothing if err then outVals = "nodata" err.clear end if on error goto 0 SendSecurePost = outVals outVals = "" End Function %>

Home Services Products Pricing Mission Columns Support Contact

Search This Site

Enter one or more keywords to search for using the Zoom Search Engine.
Note that '*' and '?' wildcards are supported.