<%@ LANGUAGE=VBScript %><% Response.Buffer = True %> <% 'validate User Type 'if Utype = General (0) UPGRADE to ==> FREE_COMPANY (1) 'and UPGRADE to FREE_PRODUCT (2) and UPGRADE to HAVE_PRODUCT (3) 'and UPGRADE to ADMIN (9) **TOP LEVEL IF Session("Common_Access") < 1 THEN 'msgbox "Invalid User Name OR Password",48,"Warning" Response.Clear 'error logon warning Response.Redirect "Default.asp" ELSEIF Session("Common_Access") = 1 THEN Response.Redirect "UComInfoAdd.asp" ELSEIF Session("Common_Access") = 2 THEN Response.Redirect "UProdInfoAdd.asp" ELSE Response.Redirect "UProdInfoEdit.asp" END IF %> Welcome to Thai Industry Network

 

 

<%= FormatDateTime (date, vbLongDate) %>
User Member <%=RS("FName")& " " %><%=RS("LName")& " " %>
Product Infomation Manager
.