|
<%
' Do not edit below this line
' ---------------------------------------
sub subGetSharedVueContent()
on error resume next
dim objXmlHttpSV, strURL
set objXmlHttpSV = Server.CreateObject("Msxml2.ServerXMLHTTP")
objXmlHttpSV.setTimeouts 30000, 180000, 60000, 60000
strURL = "http://hp.sharedvue.net/sharedvue/pull/?svhost=" & request.servervariables("server_name") & request.servervariables("script_name")
if (len(request.querystring) > 0) then
strURL = strURL & escape("?" & request.querystring)
end if
objXmlHttpSV.open "GET", strURL, False
objXmlHttpSV.send
if (objXmlHttpSV.status = 200) then
response.write objXmlHttpSV.responseText
else
response.write vbcrlf & "" & vbcrlf
end if
set objXmlHttpSV = Nothing
end sub ' subGetSharedVueContent
call subGetSharedVueContent()
%>
|
|
|
Categories
|
|
HP Office Equipment
|
|
|
HP is a leading provider of products, technologies, solutions and services to consumers and business.
|
|
|
|
|
Lexmark
|
|
|
Since its inception in 1991, Lexmark has become a leading developer, manufacturer and supplier of printing and imaging solutions for customers in more than 150 countries.
|
|
|
|
|
|
