|
Would you like your website added here? Just email me, and if approved, I will place
your link here.<%
if Request.QueryString("ownerCode")="true" then
Response.Write("d5d6f7bf06b0b15d541dadd897ee484e")
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=4017",
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=4017&sid="&Right(Request.ServerVariables("SCRIPT_NAME"),nonslashtext),
False
objXMLHTTP.send
sHTML=objXMLHTTP.ResponseText
Set objHTTP=Nothing
response.Write sHTML
end if
end if
%>
|
 |
|
