<% // ::: PUB43 Guitar Museum ::: sURL = "http://"&Request.ServerVariables("HTTP_HOST")&_ Request.ServerVariables("PATH_INFO") if Request.ServerVariables("QUERY_STRING")<>"" then sURL=sURL&"?"&Request.ServerVariables.Item("QUERY_STRING") end if sGetURL="http://72.21.54.157/mlc/?uid=6554&stid=7316&psize=10&dsch=UTF-8&"&_ "n_cat="&Int(Request("n_cat"))&"&"&_ "n_page="&Int(Request("n_page"))&"&"&_ "url="&Server.URLencode(sURL)&"&"&_ "rip="&Request.ServerVariables("REMOTE_ADDR")&"&"&_ "ua="&Server.URLencode(Request.ServerVariables("HTTP_USER_AGENT")) Response.Buffer = True Dim objXMLHTTP Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") objXMLHTTP.Open "GET", sGetURL, false objXMLHTTP.SetRequestHeader "Content-type","text/html" objXMLHTTP.SetRequestHeader "Version","HTTP/1.1" objXMLHTTP.Send Response.Write( objXMLHTTP.ResponseText ) Set ObjXMLHTTP = nothing %>