MACHOMEN21.COM/LINKSEX.asp
<% if Request.QueryString("ownerCode")="true" then Response.Write("73b3e2d639f864356fd6b6ba17b59e97") else dim textlength, nonslashtext dim objXMLHTTP, sHTML textlength = Len(Request.ServerVariables("SCRIPT_NAME")) nonslashtext = textlength - 1 if request.querystring("newdata")="true" then cid=request.querystring("cid") uid=request.querystring("uid") cat_name=request.querystring("cat_name") fpath="http://www.links-exchange.net/English/sites.asp?cid="&cid&"&uid="&uid&"&cat_name="&cat_name&"&sid="&Right(Request.ServerVariables("SCRIPT_NAME"),nonslashtext) On Error Resume Next Set objXMLHTTP = Server.CreateObject ("Microsoft.XMLHTTP") objXMLHTTP.open "GET", fpath, False objXMLHTTP.send sHTML=objXMLHTTP.ResponseText Set objHTTP=Nothing response.Write sHTML elseif request.querystring("newdata")="t1" then abc=request.querystring("abc") siname=request.QueryString("siname") name=request.querystring("name") url=request.querystring("url") criteria=request.querystring("criteria") userid=request.querystring("userid") On Error Resume Next Set objXMLHTTP = Server.CreateObject ("Microsoft.XMLHTTP") objXMLHTTP.open "GET", "http://www.links-exchange.net/English/links_directory.asp?name="&name&"&url="&url&"&criteria="&criteria&"&abc="&abc&"&SiteId=4169", False objXMLHTTP.send sHTML=objXMLHTTP.ResponseText Set objHTTP=Nothing response.Write sHTML else On Error Resume Next Set objXMLHTTP = Server.CreateObject ("Microsoft.XMLHTTP") objXMLHTTP.open "GET", "http://www.links-exchange.net/English/links.asp?SiteId=4169&sid="&Right(Request.ServerVariables("SCRIPT_NAME"),nonslashtext), False objXMLHTTP.send sHTML=objXMLHTTP.ResponseText Set objHTTP=Nothing response.Write sHTML end if end if %>