Domain

<% Function PCase(sValue) iPos = 1 Do While InStr(iPos, sValue, " ", 1) <> 0 iSpace = InStr(iPos, sValue, " ", 1) sTemp = sTemp & UCase(Mid(sValue, iPos, 1)) sTemp = sTemp & LCase(Mid(sValue, iPos + 1, _ iSpace - iPos)) iPos = iSpace + 1 Loop sTemp = sTemp & UCase(Mid(sValue, iPos, 1)) sTemp = sTemp & LCase(Mid(sValue, iPos + 1)) PCase = sTemp End Function %> <% Dim con Dim rs,rs1 Dim i Set con = server.CreateObject("ADODB.connection") Set rs = Server.CreateObject("ADODB.recordset") Set rs1 = Server.CreateObject("ADODB.recordset") con.Open "DSN=anchortext","anchortext","anchor2005" %> <% host = request.ServerVariables("HTTP_HOST") lft = left(host,4) if(lft = "www." or lft = "WWW.") then host = right(host, (len(host)-4)) end if %> <% dim Z,T Sql = "Select * from host where host = '" & host & "'" rs.Open sql,con,1,2 if rs.recordcount > 0 then Z = rs("host") V = rs("Anchor_text") A = rs("AT1") B = rs("AT2") C = rs("AT3") D = rs("Description") end if %> Domain

Personal Email	Website Hosting	Website Design	Website Promotion	Software Development

Live E-Books Store, Ebooks Directory, Download E-Books on important subjects

Special Offer

DOMAIN REGISTRATION FREE FOR 1 YEAR WITH HOSTING PACKAGE

Domain registration services is probably the most serious yet most misunderstood subject on the Internet.

On Internet, you are your domain name.

For example, Yahoo.Com - the domain itself is worth millions of dollars.

Or recently - only domain name was sold for US $ 7.5 million and was sold for US $ 2.75 million.

Most people fail to realize that the domain name is an extremely valuable asset. It is important that this valuable digital asset should be handled with care and should be entrusted to company having a reliable and consistent track-record.

Network Solutions, Inc. is the company that started domain name registration and enjoyed monopoly over domain names for over 7 years. They have a consistent track-record of security and customer-service.Network Solutions, Inc. has appointed agents or partners throughout the world to provide support to local customers.

Contact Form


Your Name
Your phone
Your Email
You Are A
Your Requirements
Your Details

CGS Infotech will be your final destination for reliable Business services.

We offer:

	Most affordable Business services.
	Immediate response and execution for Business services.
	Lowest guaranted prices for Business.
	The most comprehensive range of services related to Business.
	Refer to testimonials and case-study we have about Business services.

Outsourcing