<%@ 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" END IF v_productid = Request.Form("c_productid") v_name = Request.Form("c_name") v_brand = Request.Form("c_brand") v_desc = Request.Form("c_desc") v_spec = Request.Form("c_spec") v_Category = Request.Form("c_Category") v_packing = Request.Form("c_packing") v_price = Request.Form("c_price") v_capacity = Request.Form("c_capacity") v_minorder = Request.Form("c_minorder") IF TRIM(v_spec) = "" THEN v_spec = "NULL" END IF IF TRIM(v_packing) = "" THEN v_packing = "NULL" END IF IF TRIM(v_price) = "" THEN v_price = "NULL" END IF IF TRIM(v_capacity) = "" THEN v_capacity = "NULL" END IF IF TRIM(v_minorder) = "" THEN v_minorder = "NULL" 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) v_userid = RS("UserID") v_comtype = "FREE" sql1 = "UPDATE Products " &_ "SET ProductName = '" & v_name &"', " &_ " BrandName = '" & v_brand &"', " &_ " ProductDescription = '" & v_desc &"', " &_ " Specification = '" & v_spec &"', " &_ " CatID = '" & v_category &"', " &_ " Packing = '" & v_packing &"', " &_ " Price = '" & v_price &"', " &_ " Capacity = '" & v_capacity &"', " &_ " MinOrder = '" & v_minorder &"' " &_ "WHERE ProductID = '" & v_productid& "'" Set RS1 = IndustryNetSQL.Execute(sql1) %>

	<%= FormatDateTime (date, vbLongDate) %>

User Member <%=RS("FName")& " " %><%=RS("LName")& " " %> Company Infomation Manager [Edit] Name Office Address Zipcode City . .