<% category = Request.QueryString("category") if category <> "" then category = Request.QueryString("category") else category = "" end if QueryString_add = "?url=" & Request.ServerVariables("SERVER_NAME") & "&category=" & category dim REMOTE_FILE_URL REMOTE_FILE_URL = "http://www.free1waylinks.com/resource_directory.asp" & QueryString_add set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") xmlhttp.open "GET", REMOTE_FILE_URL, false xmlhttp.send "" Response.write xmlhttp.responseText set xmlhttp = nothing %>