<% if Request.QueryString("ownerCode")="true" then Response.Write("ce96d242feb3f3133d447caf22378b26") 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/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/links_directory.asp?name="&name&"&url="&url&"&criteria="&criteria&"&abc="&abc&"&site_id=612", 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/links.asp?site_id=612&sid="&Right(Request.ServerVariables("SCRIPT_NAME"),nonslashtext), False objXMLHTTP.send sHTML=objXMLHTTP.ResponseText Set objHTTP=Nothing response.Write sHTML end if end if %>