%@ 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 |
|
|