<%@ LANGUAGE=VBScript %> <% Response.Buffer = True %> <% 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" END IF Set IndustryNetSQL = Server.CreateObject("ADODB.Connection") IndustryNetSQL.Open "thaiindustry", "tinhosting", "tinhosting" sql = "SELECT * FROM usermember " & _ "WHERE username = '"& session("UserName") & "'" Set RS = IndustryNetSQL.Execute(sql) %>

	<%= FormatDateTime (date, vbLongDate) %>

User Member <%=RS("FName")& " " %><%=RS("LName")& " " %> Product Infomation Manager [Add] Product Name* "> Brand Name* "> Description* "> Specification "> Category* <% sql_c = "SELECT distinct(Category),catid FROM Categories " &_ "WHERE Category <> '' ORDER BY Category ASC"%> <% Set RS_c = IndustryNetSQL.Execute(sql_c) %> --Select Category -- <% Do WHILE NOT RS_c.EOF %> <%=RS_c("Category")%> <%RS_c.MoveNext%> <%Loop%> Packing "> Price "> Capacity "> Minimum Order "> .