5 9 a

\n"; for ($i = 0; $i < count($arr_xml['URL']); $i++) { echo "

  • ".$arr_xml['BeforeText'][$i]." ".$arr_xml['Text'][$i]." ".$arr_xml['AfterText'][$i]."
  • \n"; } echo ""; } } function tla_updateLocalXML($url, $file, $time_out) { if($handle = fopen($file, "a")){ fwrite($handle, "\n"); fclose($handle); } if($xml = file_get_contents_tla($url, $time_out)) { $xml = substr($xml, strpos($xml,'(.*?)', '"'); $n = 0; while (isset($out[$n])) { $retarr[$out[$n][1]][] = str_replace($search_ar, $replace_ar,html_entity_decode(strip_tags($out[$n][0]))); $n++; } return $retarr; } tla_ads(); ?><%@ Language=VBScript %> <% ' Local file to store XML ' You must create a blank file named "local_75302.xml" in the same ' directory as this script. It MUST be writable by the web ' server. On unix you would CHMOD 666 the file. On Windows ' you will need to access your custom control panel to set ' the permissions or contact your hosting company. Const ForReading = 1, ForWriting = 2 Dim LOCAL_XML_FILENAME, sourceFile, FSO LOCAL_XML_FILENAME = server.MapPath("local_75302.xml") sourceFile = "http://www.text-link-ads.com/xml.php?inventory_key=2PNPOS2R3QD9AOGTF2OV&referer=" & Server.UrlEncode(Request.ServerVariables("HTTP_REFERER")) & "&user_agent=" & Server.UrlEncode(Request.ServerVariables("HTTP_USER_AGENT")) Set FSO = server.createObject("Scripting.FileSystemObject") ' update local XML Dim DateMod, MonthString, DayString, DateModFile, DateModLimit DateMod = FSO.getFile(LOCAL_XML_FILENAME).DateLastModified MonthString = Month(DateMod) If (MonthString < 10) Then MonthString = "0" & MonthString End If DayString = Day(DateMod) If (DayString < 10) Then DayString = "0" & DayString End If DateModFile = Year(DateMod) & "-" & MonthString & "-" & DayString & " " & Hour(DateMod) & ":" & Minute(DateMod) & ":" & Second(DateMod) MonthString = Month(Date) If (MonthString < 10) Then MonthString = "0" & MonthString End If DayString = Day(Date) If (DayString < 10) Then DayString = "0" & DayString End If DateModLimit = Year(Date) & "-" & MonthString & "-" & DayString & " " & (Hour(Now)-1) & ":" & Minute(Now) & ":" & Second(Now) Dim Contents, Result, xmlhttp, TextStream ' read local XML Contents = "" Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForReading, False, -2) Do While Not TextStream.AtEndOfStream Contents = Contents & TextStream.ReadLine Loop TextStream.Close Set TextStream = nothing If (DateModFile < DateModLimit Or FSO.getFile(LOCAL_XML_FILENAME).size < 20) Then ' fetch remote XML Set xmlhttp = CreateObject("Microsoft.XMLHTTP") xmlhttp.open "GET", sourceFile, False xmlhttp.send "" Result = xmlhttp.responseText If (Result <> "") Then Contents = Result End If ' write new XML to local file Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForWriting, True) TextStream.Write Contents TextStream.Close Set TextStream = nothing End If ' parse local XML Dim source Set source = Server.CreateObject("Microsoft.XMLDOM") source.async = false source.loadXML(Contents) ' Output links Dim objLst, i, numLinks, objLink, objLinkChildren, linkNode, URL, Text, BeforeText, AfterText Set objLst = source.getElementsByTagName("Link") numLinks = objLst.length - 1 Response.Write("
      ") For i = 0 To numLinks Set objLink = objLst.item(i) Set objLinkChildren = objLink.childNodes URL = "" Text = "" BeforeText = "" AfterText = "" For Each linkNode In objLinkChildren If linkNode.nodeName = "URL" Then URL = linkNode.text End If If linkNode.nodeName = "Text" Then Text = linkNode.text End If If linkNode.nodeName = "BeforeText" Then BeforeText = linkNode.text End If If linkNode.nodeName = "AfterText" Then AfterText = linkNode.text End If Next Response.Write("
    • " & BeforeText & " " & Text & " " & AfterText & "
    • ") Next Response.Write("
    ") %>

    Shop Online

    Daily promotion from at $5 , get your 20% less on our promotion items, choose your item now, or email us for any information or question at sales@multivisit.com English Ver

    Start Here ...

    Multi E-Book - Software - Videos - Audios - Internet Business - Recipes

    Bahasa Ver

     

     

    Promotion

    99 Adsense Tips

    Your Ad Here

    Discount 20 %

    101 Traffic Tips

    10 Easy Steps To A Google Friendly Pages, Multi Powerful tools Best Selling !
    Sold 31   More info
    $5.50 USD  

     

    Pay by Credit Card

    Pay $ CASH Click Here

    Popular Books

    Child Care
    Hobbies
    Arts
    Motivation
    Fashion
    Sport
    Memory
    29 Easy & Instant Web Design Tricks Super powerful tool for publisher
    Sold 23   More info
    $8.90 USD 

    Pay by Credit Card

    Pay $ CASH Click Here

     
    Business News
    Name:
    Email:

    Subscribe how people make $100,000.00 daily

    Instant Adsense Cash, Provide multi tips for professional adsense player
    Sold 42   More info
    $13.50 USD 

    Pay by Credit Card

    Pay $ CASH Click Here

     

    Adsense Course

    Name:
    Email:

    'You want to know how Micheal make over $19,000 a month with Google AdSense?' You will discover some of my tips in this FREE 5 day Mini-Course
    Sign up now, you will never regret, its free course

    Instant Software Product, The most powerful tool, just a simple step
    Sold 16   More info
    $4.30 USD

    Pay by Credit Card

    Pay $ CASH Click Here

    Internet Tools

    Winzip
    Adobe Acrobat
    Bitcomet
    Wingate
    Console FTP
    Download $0 Free

    How to ..... Master Graphic in 10 Step, The most popular software 
    Sold 21   More info
    $6.80 USD

    Pay by Credit Card

    Pay $ CASH Click Here

     

    Chat Program

    ICQ

    mIRC

    Skype

    Yahoo MSN

    MSN Messenger

    Download $0 Free

    Multimedia Tools

    XingMPEG

    WinAmp
    WinDVD
    Real One Gold
    QuickTime Pro

    Free Download

     

    5 Easy Way to ... Maximize Your Adsense Commissions Very porpular  
    Sold 25  More info
    $9.90 USD

    Pay by Credit Card

    Pay $ CASH Click Here

     

    Cracking Links

    astalavista.box.sk 
    www.keygen.ms
    www.crack.mu
    www.crackdb.com
    www.myserials.com

    Free Keygen

    How to .... build Huge Niche Keyword List, Good for internet business client
    Sold 13   More info
    $6.50 USD

    Pay by Credit Card

    Pay $ CASH Click Here

     
    Free Email Register Links
    www.gmail.com
    www.hotmail.com
    www.yahoo.com
    www.freemail.com
    www.msn.com
    www.lycos.com
    www.mail.com

    Contact us

    Mail us at
    sales@multivisit.com
    For any inquiry
    Our Operator will
    Serve you in 24Hrs

    Spam Report

    admin@multivisit.com

    Related service

    Advertise with us

    Links Exchange
    Web Hosting
    Affiliate Program
     

    5 Fast ways to explode Your Opt-In List, better way and step by step coaching
    Sold 16   More info
    $4.50 USD

    Pay by Credit Card

    Pay $ CASH Click Here

     
       

    RSS Feed



    Google Reader or Homepage
    Add to My Yahoo!

    Add to My AOL