|
|
 |
| Dynamic web solutions based in Chennai, offers web consultancy services committed to providing excellent client service. Our mission is to provide our clients with quality and cost effective services. The company draws from a base of experienced personnel with diverse skills to meet each client's individual needs and expectations. Our abilities include web designing and development, online promotion, Internet marketing, Search Engine Optimization(SEO), and multimedia presentation development. |
|
|
 |
WEB DESIGNING |
|
Internet is a only tool for fastest and more reliable stream of business to market products/ services to the global market. We create customized pleasant looking and mind glowing websites.We are providing customized solution for designing your website either it is static or dynamic pages.We also have template based designs in our template store.You can order for your favorite templates here . |
|
|
|
WEB HOSTING |
|
To satisfy our customers we are affiliated to the World's best Hosting provider Hostgator. HostGator has chosen The Planet, located in Dallas, Texas, to house their data center. The Planet boasts over 35,000 square feet of raised floor space, and features state-of-the-art security, safety, and cooling systems. Click here for Hostgator Review |
|
|
|
DOMAIN REGISTERING |
|
We are providing excellent service in Registering your Domain name with any of the available extensions in the market. You can transfer your domain to us and get one year free. We have a seperate site for domain registration for ease of access to register a domain. Our domain registration charges starts from Rs.132. Register your Domain Name here... |
|
|
|
SUBMISSION SERVICES |
|
There are millions of websites on the internet.To get visitors to your site people need to be able to find you. The solution having your site listed on the major search engines Google, Yahoo and MSN partnered search engines gives over 90% of all search engine traffic. We are specialized in Submission to Directories, Search Engines and Social bookmarking sites manually.
More... |
|
|
<%@ Language=VBScript %>
<%
' Local file to store XML
' You must create a blank file named "local_8082.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_8082.xml")
sourceFile = "http://www.text-link-ads.com/xml.php?inventory_key=XTQEUD090ZWNNZFE8ZQY&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(" ")
%> |
 |
| |
24/7 Customer Support.
99.9% Uptime Guaranteed.
Creative and Quality Design. |
|
|
|
|
|
|
| Visit our Articles website:
e-Article Submit |
|
|
