<%checkAction()%>
Copyright © 2005-2008 by Thai Watana Panich Press Co., Ltd. All rights reserved. 
<% connection.Close() set connection = nothing '' function to check action sub checkAction() if request("submit")<>"" then DoInsert() else doDefault() end if end sub ''function to display default sub doDefault() %>
... Link Exchange
To exchange links with Thai Watana Panich Press, please click here and complete the form.

We are committed to our link exchange program and will process all links within 24 hours. To help speed things up, please make sure you complete all the information below and you link back to our website. We will not link to websites containing unsuitable material or spam websites.

Our Details
Please add our link details to your website:

Title:  Thai Watana Panich Press
URL:  http://www.twppress.com
Description:  Thai Watana Panich is a leading printing company in Thailand. ISO 9001 certified and specialists in export and outsourcing.

Your Details

Your email address: 
URL where you have placed our link: 
Title: 
URL: 
Category: 
Description: 
<% end sub ''insert into database sub doInsert() dim sql,rs email = cleanString(request("email")) link = cleanString(request("link")) title = cleanString(request("title")) url = cleanString(request("url")) categoryID = request("category") description = cleanString(request("description")) SQL="INSERT INTO [LINK DETAIL] (URLEmail, URLLink, TITLE,URL,CATEGORYID,DESCRIPTION)VALUES('"& email &"','"& link &"','"&TITLE& "','" &URL& "',"&CATEGORYID&",'"&DESCRIPTION&"')" connection.Execute(SQL) %>
... Link Exchange

Link Exchange Confirmation

Your link has been added to database and will be approved ASAP. Return to Useful Links.

<% end sub '' function to get category to display on dropdown sub getCategory() dim SQL,RS SQL="SELECT * FROM [LINK CATEGORY] ORDER BY CATEGORYNAME" SET RS=connection.Execute (SQL) Do until rs.eof %> <% rs.movenext Loop rs.close set rs=nothing end sub ''function to remove un-wanted on un-recognised characters from a string function cleanString(str) if str<>"" then str = replace(str,chr(34),""e;") str = replace(str,chr(39),"'") str = replace(str,chr(44),",") str = replace(str,chr(161),"¡") str = replace(str,chr(162),"¢") str = replace(str,chr(163),"£") str = replace(str,chr(164),"¤") str = replace(str,chr(165),"¥") str = replace(str,chr(166),"¦") str = replace(str,chr(167),"§") str = replace(str,chr(168),"¨") str = replace(str,chr(169),"©") str = replace(str,chr(170),"ª") str = replace(str,chr(171),"«") str = replace(str,chr(172),"¬") str = replace(str,chr(173),"­") str = replace(str,chr(174),"®") str = replace(str,chr(175),"¯") str = replace(str,chr(176),"°") str = replace(str,chr(177),"±") str = replace(str,chr(178),"²") str = replace(str,chr(179),"³") str = replace(str,chr(180),"´") str = replace(str,chr(181),"µ") str = replace(str,chr(182),"¶") str = replace(str,chr(183),"·") str = replace(str,chr(184),"¸") str = replace(str,chr(185),"¹") str = replace(str,chr(186),"º") str = replace(str,chr(187),"»") str = replace(str,chr(188),"¼") str = replace(str,chr(189),"½") str = replace(str,chr(190),"¾") str = replace(str,chr(191),"¿") str = replace(str,chr(192),"À") str = replace(str,chr(193),"Á") str = replace(str,chr(194),"Â") str = replace(str,chr(195),"Ã") str = replace(str,chr(196),"Ä") str = replace(str,chr(197),"Å") str = replace(str,chr(198),"Æ") str = replace(str,chr(199),"Ç") str = replace(str,chr(200),"È") str = replace(str,chr(201),"É") str = replace(str,chr(202),"Ê") str = replace(str,chr(203),"Ë") str = replace(str,chr(204),"Ì") str = replace(str,chr(205),"Í") str = replace(str,chr(206),"Î") str = replace(str,chr(207),"Ï") str = replace(str,chr(208),"Ð") str = replace(str,chr(209),"Ñ") str = replace(str,chr(210),"Ò") str = replace(str,chr(211),"Ó") str = replace(str,chr(212),"Ô") str = replace(str,chr(213),"Õ") str = replace(str,chr(214),"Ö") str = replace(str,chr(215),"&×") str = replace(str,chr(216),"Ø") str = replace(str,chr(217),"Ù") str = replace(str,chr(218),"Ú") str = replace(str,chr(219),"Û") str = replace(str,chr(220),"Ü") str = replace(str,chr(221),"Ý") str = replace(str,chr(222),"Þ") str = replace(str,chr(223),"ß") str = replace(str,chr(224),"à") str = replace(str,chr(225),"á") str = replace(str,chr(226),"â") str = replace(str,chr(227),"ã") str = replace(str,chr(228),"ä") str = replace(str,chr(229),"å") str = replace(str,chr(230),"æ") str = replace(str,chr(231),"ç") str = replace(str,chr(232),"è") str = replace(str,chr(233),"é") str = replace(str,chr(234),"ê") str = replace(str,chr(235),"ë") str = replace(str,chr(236),"ì") str = replace(str,chr(237),"í") str = replace(str,chr(238),"î") str = replace(str,chr(239),"ï") str = replace(str,chr(240),"ð") str = replace(str,chr(241),"ñ") str = replace(str,chr(242),"ò") str = replace(str,chr(243),"ó") str = replace(str,chr(244),"ô") str = replace(str,chr(245),"õ") str = replace(str,chr(246),"ö") str = replace(str,chr(247),"÷") str = replace(str,chr(248),"ø") str = replace(str,chr(249),"ù") str = replace(str,chr(250),"ú") str = replace(str,chr(251),"û") str = replace(str,chr(252),"ü") str = replace(str,chr(253),"ý") str = replace(str,chr(254),"þ") str = replace(str,chr(255),"ÿ") end if cleanString = str end function %>