<%@ LANGUAGE=VBScript %> <% Response.Buffer = True %> <% Response.Buffer = True ' Initial User pass = false 'session("Common_Access") =0 v_User = Request.Form("UserName") v_Pass = Request.Form("UserPwd") Set IndustryNetSQL = Server.CreateObject("ADODB.Connection") IndustryNetSQL.Open "thaiindustry", "tinhosting", "tinhosting" sql = "SELECT * FROM usermember " &_ "WHERE username = '"& v_User &"' AND " &_ " userpasswd = '"& v_Pass &"'" Set RS = IndustryNetSQL.Execute(sql) IF RS.EOF THEN response.redirect "default0.asp" ELSE'valid new userID session("UserName") = RS("UserName") 'update last access sql_u = "UPDATE usermember " &_ "SET Last_Access_d ='"& now &"' "&_ "WHERE username ='"& session("UserName") & "'" Set RS_u = IndustryNetSQL.Execute(sql_u) ' Set User pass = true [can read] session("Common_Access") = RS("Ulevel") END IF %> Welcome to Thai Industry Network <% IF Session("Common_Access") < 1 THEN 'msgbox "Invalid User Name OR Password",48,"Warning" Response.Clear 'error logon warning Response.Redirect "default0.asp" END IF %>

 

 
<%= FormatDateTime (date, vbLongDate) %>
Welcome to Thai Industry Network.
<%=RS("FName")& " " %><%=RS("LName")& " "%> Log On Successful

E - commerce News - Find out more about the the future of your business

Thai Industry Network will release its business-to-business e-commerce platform in a couple of months. Click on the Tradehub to find out more about our e-commerce platform and how it can benefit you.

We are also developing an Exchange Forum for businesses actively interact in transacting products from their surplus stock or other goods or similar nature. To find out more click on Exchange Forum.

Mission Statement: 

"To provide a quality and comprehensive network to integrate Thai industry into the global market through a digital medium."

Our aim is be Thailand's "Industrial Portal" as well as the business-to-business e-commerce platform serving companies of all sizes. We are currently developing new products and services which are targeted to take Thai Industries to the forefront of the global marketplace. Please contact us via email to if you are interested in receiving information on the re-launch of Thai Industry Network
<% RS.close IndustryNetSQL.close %>