<%
on error resume next
RID = 1003750
for each item in Request.QueryString
if uCase(item) <> "RID" then
qString = qString & "&" & item & "=" & Request.QueryString(item)
end if
next
sn = Request.ServerVariables("SCRIPT_NAME")
if sn <> "" then
sn = Server.URLEncode(sn)
rURL = "&rURL=" & sn
end if
url = "http://ABTrainingCenter.com/resources/ExpertAdvice.asp?RID=" & RID & qString & rURL
set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "GET", url, false
xmlhttp.send ""
ttw = xmlhttp.responseText
set xmlhttp = nothing
if err <> 0 then
response.write "
We are unable to locate the resource you requested.
"
else
response.write ttw
end if
%>
Benefits Business Solutions, 292 South Main Street, Suite
400, Alpharetta, Georgia 30004 • (770) 475-9770 Contact Us • Feedback • Advertise
