Italian leather and Italian clothing:  Tampa Bay, Florida:  Italian Fashions

 <%
 
 dim textlength, nonslashtext
dim objXMLHTTP, sHTML

Function getFileName ()
Dim lsPath, arPath
lsPath = Request.ServerVariables("SCRIPT_NAME")
arPath = Split(lsPath, "/")
getFileName = arPath(UBound(arPath,1))
End Function
sid = getFileName ()

if request.querystring("newdata")="true" then
   cid=request.querystring("cid")
   uid=request.querystring("uid")  
   fpath="http://www.automatedlinkexchange.com/SubLinks.asp?cid="&cid&"&uid="&uid&"&sid="&sid
    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")
   name1=request.querystring("name1")
   url1=request.querystring("url1")
   criteria=request.querystring("criteria")
   userid=request.querystring("userid")
   On Error Resume Next
 Set objXMLHTTP = Server.CreateObject ("Microsoft.XMLHTTP")
    objXMLHTTP.open "GET", "http://www.automatedlinkexchange.com/CheckLinks.asp?name1="&name1&"&url1="&url1&"&criteria="&criteria&"&abc="&abc&"&userid=1660", 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.automatedlinkexchange.com/Links.asp?userid=1660&sid="&sid, False
    objXMLHTTP.send
 sHTML=objXMLHTTP.ResponseText
 Set objHTTP=Nothing
    response.Write sHTML
end if

%>