<% Dim linkRec Dim catsRec Dim sysRec Dim newcutoff Dim pagesize Dim SortOrder Dim defsort Dim homeurl Dim SortSQL Set linkRec = Server.CreateObject("ADODB.Recordset") Set catsRec = Server.CreateObject("ADODB.Recordset") Set sysRec = Server.CreateObject("ADODB.Recordset") Set objConn = Server.CreateObject ("ADODB.Connection") objConn.Open strConnect Set sysRec = objConn.Execute ("SELECT * FROM system ;") SortOrder = sysRec("defsort") homeurl = sysRec("homeurl") newcutoff = sysRec("newcutoff") pagesize = sysRec("linksperpage") defsort = sysRec("defsort") Set sysRec = Nothing SELECT Case defsort Case 0 SortSQL = "" Case 1 SortSQL = "ORDER BY title ASC" Case 2 SortSQL = "ORDER BY title DESC" Case 3 SortSQL = "ORDER BY datein DESC" Case 4 SortSQL = "ORDER BY datein ASC" End SELECT %> Add URL Web Design Company, Bangkok, Thailand, ThaiWebpro.com
Add URL Web Design Company, Bangkok, Thailand
Web Design Thailand

Add URL Web Design Company, Bangkok, Thailand

Add URL Web Design Company, Bangkok, Thailand, ThaiWebpro.com
Search at ThaiWebpro Support at ThaiWebpro Forum at ThaiWebpro
Flash Web Design Bangkok
Flash Design Thailand
 
  TODAY'S NEWS
Web Design Thailand Home
Domain Name News
Search Engine News
  WHAT'S NEW?
Web Marketing Thailand Special Promotions
Web Server Status
Add URL
  SEO SERVICES
Web Marketing Thailand SEO & Web Marketing
SEO Clients
Search Engine Secrets
  RECOMMENDED READING
Web Design Thailand Web Design Books
Web Hosting Books
Web Marketing Books
Domain Name Books
Visit The Thailand Search Engine
Thailand Web Designers Thai Web Designers
Web Designer Thailand Web Design Bangkok
CLIENT LOGIN
User Name:
 
Password:
 
WEB HOSTING
• Web Hosting Introduction
• Windows 2000 Hosting
• Unix Hosting
• Dedicated & Co-located
• Special Promotions
• Control Panel
• Our Network
Windows 2003 Hosting Plans
Plan1: Windows PERSONAL
Plan2: Windows BUSINESS
Plan3: Windows CORPORATE
Plan4: Windows ENTERPRISE
Web Hosting Thailand
Unix Hosting Plans
Plan1: Unix PERSONAL
Plan2: Unix BUSINESS
Plan3: Unix CORPORATE
Plan4: Unix ENTERPRISE
Web Hosting Bangkok
ADD URL

Reciprocal Link Section

Welcome to our new Add URL Reciprocal Link Section.

To add a link to your web site click here!

Please note that we now require a reciprocal back! Just send us a quick email saying where you have added the reciprocal Thai Webpro link, and we will get your link approved ASAP. Thank you.

Thai Webpro- web design, web hosting & web marketing

Just copy the following Thai Webpro Reciprocal Link Code:
<a href="http://www.thaiwebpro.com">Thai Webpro</a> - web design, web hosting &amp; web marketing.


<% Set catsRec = objConn.Execute ("SELECT * FROM cats ORDER BY name ASC;") While NOT catsRec.EOF Set linkRec = ObjConn.Execute ("SELECT * FROM links WHERE catid = " & catsRec("catid") & " AND active = True " & SortSQL & ";") %>
<%= catsRec("name")%>
<% If linkRec.BOF then Response.Write "
No links in this category
" end if While NOT linkRec.EOF %>
"><%= linkRec("title")%> <% if (date - linkRec("datein")) < newcutoff then Response.Write "" end if %>

(Hits: <%= linkRec("hits")%> ) [<%= linkRec("datein")%>]

<%= linkRec("description")%>
<% linkRec.MoveNext Wend catsRec.MoveNext Wend objConn.Close Set linkRec = Nothing Set catsRec = Nothing %>
Add URL Web Design Company, Bangkok, Thailand
SEO Thailand
Web Marketing Bangkok
HOME
|
WEB MARKETING
|
WEB DEVELOPMENT
|
WEB HOSTING
|
GRAPHIC DESIGN
|
PORTFOLIO
|
ADD URL
|
CONTACT

Copyright © 2002 - 2013 : THAIWEBPRO.COM : All Rights Reserved
Privacy : Terms of Service : Site Map

Web Design, Web Hosting, Web Marketing - ThaiWebpro.com
Site developed by : www.thaiwebpro.com