<%
Dim lipage
Dim licurCat
IF Request("curPage") <> "undefined" Then lipage = "&curPage=" + Request("curPage") else lipage = "" END IF
IF Request("curCat") <> "undefined" Then licurCat = "&curCat=" + Request("curCat") else licurCat = "" END IF
liserv = Server.URLencode("http://" + Request.ServerVariables("HTTP_HOST") + Request.ServerVariables("PATH_INFO"))
liua = Server.URLencode(Request.ServerVariables("HTTP_USER_AGENT"))
out_print = "http://exlink.net/component/site/resource/get_links_php_list.php?sid=1918&serv=" + liserv + lipage + licurCat
Response.Buffer = True
Dim objXMLHTTP
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", out_print, false
objXMLHTTP.SetRequestHeader "Content-type","text/html"
objXMLHTTP.SetRequestHeader "Version","HTTP/1.1"
objXMLHTTP.Send
Response.Write( objXMLHTTP.ResponseText )
Set ObjXMLHTTP = nothing
