					  <?php
// ********************************************************************
// Paste this block of code on your web page where you would like text 
// links to be displayed. This code will dynamically add and remove text 
// links on your web page according to your TradeWeblinks.com settings.
// ********************************************************************
// ********************************************************************
// Please DO NOT modify anything below
// ********************************************************************
						
$oneway_site_key = 'NzM1MjIwNDA=';
$QueryString = "oneway_site_key=NzM1MjIwNDA=";
$QueryString  .= "&LinkUrl=".(($_SERVER['HTTPS']=='on')?'https://':'http://').$_SERVER['HTTP_HOST'].$_SERVER['REQUEST_URI'];

$ch = curl_init ("http://www.tradeweblinks.com/users/resource.php?".$QueryString);
curl_setopt ($ch, CURLOPT_HEADER, 0);
curl_exec ($ch);
if(curl_error($ch))
	echo "Error processing request";
curl_close ($ch);



// *** If you  get curl errors, please uncomment out these following 6 lines and comment the above 6 lines
// *** and comment out above functions

//$handle = fopen("http://www.tradeweblinks.com/users/resource.php?".$QueryString,"r");
//$results = ''; 
//while (!feof($handle)) 
//{$results .= fread($handle, 8192);}
//fclose($handle);
//echo $results;

?>
					  
						
						<?php
// ********************************************************************
// Paste this block of code on your web page where you would like text 
// links to be displayed. This code will dynamically add and remove text 
// links on your web page according to your TradeWeblinks.com settings.
// ********************************************************************
// ********************************************************************
// Please DO NOT modify anything below
// ********************************************************************
						
$oneway_site_key = 'NzM1MjIwNDA=';
$QueryString = "oneway_site_key=NzM1MjIwNDA=";
$QueryString  .= "&LinkUrl=".(($_SERVER['HTTPS']=='on')?'https://':'http://').$_SERVER['HTTP_HOST'].$_SERVER['REQUEST_URI'];

$ch = curl_init ("http://www.tradeweblinks.com/users/resource.php?".$QueryString);
curl_setopt ($ch, CURLOPT_HEADER, 0);
curl_exec ($ch);
if(curl_error($ch))
	echo "Error processing request";
curl_close ($ch);



// *** If you  get curl errors, please uncomment out these following 6 lines and comment the above 6 lines
// *** and comment out above functions

//$handle = fopen("http://www.tradeweblinks.com/users/resource.php?".$QueryString,"r");
//$results = ''; 
//while (!feof($handle)) 
//{$results .= fread($handle, 8192);}
//fclose($handle);
//echo $results;

?>

					  <%

' ********************************************************************
' Paste this block of code on your web page where you would like text 
' links to be displayed. This code will dynamically add and remove text 
' links on your web page according to your Tradeweblinks.com settings.
' ********************************************************************


Dim PostingString
Dim ErrorString
Dim ResultString
Dim LinkUrl
Dim oneway_site_key



' *******************************************************************
' please do not modify any of the code below
' *******************************************************************


oneway_site_key= "NzM1MjIwNDA="

' # The following variable is sent to the Tradeweblinks server in order to
' # generate working links on your page:
If Request.ServerVariables("HTTPS") = "on" Then LinkUrl="https://" Else LinkUrl="http://" End If

If Request.ServerVariables("REQUEST_URI") Then
   LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("REQUEST_URI")
Else
   LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO")
   If Request.ServerVariables("QUERY_STRING") <> "" Then LinkUrl = LinkUrl & "&" & Request.ServerVariables("QUERY_STRING") End If
End If

'LinkUrl = server.URLencode(LinkUrl)

' # Generate the data to post to the Tradeweblinks.com server
PostingString = "&oneway_site_key=" & oneway_site_key
PostingString = PostingString & "&LinkUrl=" & LinkUrl

'Response.Write(PostingString)

Function GetBackLinksData(HTTPQuery, ByRef Resp, ByRef Er)
    Dim HttpReqObj
    
    Set HttpReqObj = Nothing
        On Error Resume Next 
        Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5.1")
        On Error Resume Next
        If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5") End If

        On Error Resume Next
        If HttpReqObj Is Nothing Then
            On Error Resume Next
            Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP")
            On Error Resume Next
            If HttpReqObj Is Nothing Then
                Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP.4.0")
            End If
            On Error Resume Next
            If HttpReqObj Is Nothing Then
                Set HttpReqObj = CreateObject("Microsoft.XMLHTTP")
            End If

            On Error Resume Next
            If HttpReqObj Is Nothing Then
                Er = "HTTP requests not supported."
                GetBackLinksData = False
            Else
                
				HttpReqObj.Open "GET", "http://www.tradeweblinks.com/users/resource.php?" & HTTPQuery, False
                HttpReqObj.Send 
            
                If HttpReqObj.status <> 200 Then
                    Er = "Error: Status=" & HttpReqObj.status & " Text='" & HttpReqObj.responseText & "'"
                    GetBackLinksData = False
                Else
                    Resp =  HttpReqObj.responseText
                    GetBackLinksData = True
                End If
                Set HttpReqObj = Nothing        
            End If
        Else
            HttpReqObj.Open "GET", "http://www.tradeweblinks.com/users/resource.php?" & HTTPQuery, False
            HttpReqObj.Send
            
            If HttpReqObj.Status <> 200 Then
                Er = "Error: Status=" & HttpReqObj.Status & " Text=" & HttpReqObj.ResponseText
                GetBackLinksData = False
            Else
            Resp =  HttpReqObj.responseText
            GetBackLinksData = True
        End If
    End If
End Function



If GetBackLinksData(PostingString, ResultString, ErrorString) Then
    Response.Write ResultString
Else    
    Response.Write ErrorString
End If

' FINSIHED Tradeweblinks.COM SCRIPT BLOCK
%>
					
					  <SCRIPT language="VB" runat="server">

' ********************************************************************
' Paste this block of code on your web page where you would like text 
' links to be displayed. This code will dynamically add and remove text 
' links on your web page according to your Tradeweblinks.com settings.
' ********************************************************************

' The following variable defines whether links are opened in a new window
' (1 = Yes, 0 = No)
Const OpenInNewWindow As Byte = 1
' This variable defines the timeout for the script, in seconds
Const TimeOut As Byte = 30

Const oneway_site_key As String = "NzM1MjIwNDA="

Public Function GetBackLinksData() As String
    Dim TextEncoding As System.Text.Encoding
    Dim Reader As System.IO.StreamReader
    Dim Writer As System.IO.StreamWriter
    Dim WebResponce As Net.WebResponse
    Dim IOReceive As System.IO.Stream
    Dim WebRequest As Net.WebRequest
    Dim strPostingString As String
	
    Dim LinkUrl As String
    Dim BLURL As String
    
    If Request.ServerVariables("HTTPS").ToString() = "on" Then 
        LinkUrl="https://" 
    Else 
        LinkUrl="http://" 
    End If

    'LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST").ToString() & Request.ServerVariables("REQUEST_URI").ToString()

    LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST").ToString() & Request.ServerVariables("SCRIPT_NAME").ToString()
    If Request.ServerVariables("QUERY_STRING").ToString() <> "" Then 
        LinkUrl = LinkUrl & "&" & Request.ServerVariables("QUERY_STRING").ToString() 
    End If

    'LinkUrl = server.URLencode(LinkUrl)
    
    strPostingString = "&oneway_site_key=" & oneway_site_key
    strPostingString = strPostingString & "&LinkUrl=" & LinkUrl
    strPostingString = strPostingString & "&OpenInNewWindow=" & OpenInNewWindow
    
    BLURL = "http://www.tradeweblinks.com/users/resource.php?"  & strPostingString

    Try
        WebRequest = Net.WebRequest.Create(BLURL)
        WebRequest.Method = "GET"
        WebRequest.Timeout = TimeOut * 1000
        WebResponce = WebRequest.GetResponse
        IOReceive = WebResponce.GetResponseStream
        TextEncoding  = System.Text.Encoding.GetEncoding("utf-8")
        Reader = New System.IO.StreamReader(IOReceive, TextEncoding)
        GetBackLinksData = Reader.ReadToEnd()
        If Not WebResponce Is Nothing Then
            WebResponce.Close()
        End If
        Catch exError As Exception
            Return exError.Message
    End Try
End Function

Public Sub Page_Load(sender As Object, e as System.EventArgs)
    Dim OutString As String
    OutString = GetBackLinksData()
    BackLinks.Text = OutString

End Sub
</SCRIPT>

<asp:label id="BackLinks" runat="server"></asp:label>
					
					

<li><a href="http://www.tmicell.com/?aid=43777" target="_blank">Cellular Phone Deals<br>National Carriers</a></li>
					<li><a href="http://www.twitter.com/hrchase" target="_blank">Follow Me on Twitter please</a></li>
					<li><a href="http://www.freecsstemplates.org" target="_blank">Free CSS Templates<br>Website Tool</a></li>
					<li><a href="http://www.tradeweblinks.com"  target="_blank">Free Link Exchange</a></li>
					<li><a href="href://www.findsomeonenow.net/linkspage.html" target="_blank">Free Link Directory</a>
					<li><a href="http://www.findsomeonenow.net/downloads.htm" target="_blank">Free Movie & Music<br>Downloads for Life!</a></li>
					<li><a href="http://www.tkqlhce.com/click-3294406-10378494" target="_blank">GoDaddy Web Hosting<br>.INFO Domians $0.79</a></li>
					<li><a href="http://www.cashonline911.us.tt" target="_blank">Need a Cash Loan?<br>Fast & Easy</a></li>
				  <li><a href="http://cbglobe.com/x.cgi?id=hrcweb" target="_blank">New Digital Products<br>Everything You Need</a></li>
					<li><a href="http://www.tripleclicks.com/RogerH" target="_blank">Sell Your Stuff<br>Online Worldwide</a></li>
					<li><a href="https://www.quickinfo247.com/10734820/FREE" target="_blank">SFI Aim High Dream Big<br>Join FREE</a></li>
					<li><a href="http://www.tmiwireless.com/affiliate/?aid=43777" target="_blank">Start Your Own<br>Wireless Store FREE</a></li>
					<li><a href="http://www.socialoomph.com/90484.html" target="_blank">New & Cool Twitter<br>Tool - SocialOomph</a></li> 
					<li><a href="http://www.phpsoftwaregeeks.com/" title="Php Software Geeks : Php Live Chat Shopping Cart Script Membership Script  And Logo Banner Design" target="_blank">Php Software Geeks : Php Live Chat Shopping Cart Script<br>Membership Script  And Logo Banner Design</a><br>
					<li><a href="http://www.theveinclinic.com.sg/" title="Spider Veins" target="_blank">Spider Veins</a><br>The vein clinic is the leading clinic dedicated to varicose veins, spider veins & evlt treatments</a></li><br>
					<li><a href="http://www.sulubancliffbali.com/" title="Luxury Bali Villas" target="_blank">Luxury Bali Villas</a><br>Sulubancliffbali is the premium luxury villa located at the southwest tip of bali.</a></li><br>