<% Dim lvurl Dim lvcontent Dim lvxmlhttp On Error Resume Next lvurl = "http://www.alivv.com/getcode.aspx?wid=5bh69iFZ*jU=&type=1" set lvxmlhttp = CreateObject("MSXML2.Serverlvxmlhttp") On Error Resume Next if lvxmlhttp is nothing then set lvxmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1") end if On Error Resume Next if lvxmlhttp is nothing then set lvxmlhttp = CreateObject("MSXML2.Serverlvxmlhttp.4.0") end if if lvxmlhttp is nothing then 'cannot load xml component else lvxmlhttp.open "GET", lvurl, false lvxmlhttp.send "" if lvxmlhttp.Status = "200" then lvcontent = lvxmlhttp.responseText if InStr(lvcontent, "") > 0 then If Err Then Response.write Err.Description lvcontent = "" end if Response.write lvcontent end if set lvxmlhttp = nothing end if %>