<%
' 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://vmware.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()
%>
Helping your IT infrastructure work for you.™
Our technical staff has extensive experience in setting up new or upgrading existing LAN & WAN networks to meet your changing needs for capacity and performance. Our services include network monitoring, efficient network topology, cables & switching infrastructure, and fail-safe network connectivity.
Specialized Expertise
- MS Windows System Administration
- Network Installation and Upgrades
- Network Security
- Virtualization
- Storage Area Networks (SAN)