| Cyberweb Promotions Is A Division Of | CGS Website Promotion & SEO Services for top ranking in |
|||||||||||||||||||||||||||||||||||||||
![]() |
||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||
Home
| About
Us | Services | Packages
| List
of Search Engines | Feedback
| Contact
Us Mortgage
Loan Company in Surrey BC | Agro Chemicals Manufacturer India | Orthopaedic
Implant
|
||||||||||||||||||||||||||||||||||||||||
<%
' Local file to store XML
' This file MUST be writable by web server
LOCAL_XML_FILENAME = server.MapPath("local_40452.xml")
Const ForReading = 1, ForWriting = 2
sourceFile = "http://www.text-link-ads.com/xml.php" & "?inventory_key=RVPP71JGO9P5UE6TU3O6&referer=" & Server.UrlEncode(Request.ServerVariables("HTTP_REFERER")) & "&user_agent=" & Server.UrlEncode(Request.ServerVariables("HTTP_USER_AGENT"))
Contents = ""
Set FSO = server.createObject("Scripting.FileSystemObject")
' update local XML
If (Int(Rnd() * 24) = 0) Or (FSO.getFile(LOCAL_XML_FILENAME).size < 10) Then
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.open "GET", sourceFile, False
xmlhttp.send ""
Contents = xmlhttp.responseText
Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForWriting, True)
TextStream.Write Contents
TextStream.Close
Set TextStream = nothing
Contents = ""
End If
' read local XML
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
' parse local XML
Set source = Server.CreateObject("Microsoft.XMLDOM")
source.async = false
source.loadXML(Contents)
' Output links
Set objLst = source.getElementsByTagName("Link")
numLinks = objLst.length - 1
Response.Write("
|
||||||||||||||||||||||||||||||||||||||||