<%@ LANGUAGE=VBScript %> <% Response.Buffer = True %> Industrial Catalogue <% IF Session("Common_Access") < 1 THEN 'msgbox "Invalid User Name OR Password",48,"Warning" Response.Clear 'error logon warning Response.Redirect "unlogon.asp" END IF %>

 

 
<%= FormatDateTime (date, vbLongDate) %>
Thai Industry Network has developed this section to provide the global marketplace with a search engine for products manufactured in Thailand. You can freely search for products & companies listed with us. All Thai manufacturers are invited to list their company profile as wells as their products and services FREE of charge. If you do not find what you are looking for please email us and our team will try to find to source the information for you.

<% Set IndustryNetSQL = Server.CreateObject("ADODB.Connection") IndustryNetSQL.ConnectionTimeout = Session("IndustryNetSQL_ConnectionTimeout") IndustryNetSQL.CommandTimeout = Session("IndustryNetSQL_CommandTimeout") 'IndustryNetSQL.Open Session("IndustryNetSQL_ConnectionString"), Session("IndustryNetSQL_RuntimeUserName"), Session("IndustryNetSQL_RuntimePassword") IndustryNetSQL.Open "thaiindustry", "tinhosting", "tinhosting"%>
Product
Company
Industrial Catalog
 <% sql="SELECT distinct(Category) FROM Categories WHERE Category <> '' ORDER BY Category ASC"%> <% Set RS = IndustryNetSQL.Execute(sql) %>
<%RS.close%><%IndustryNetSQL.close%>