<%@ 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_name = Request.Form("c_name") v_add = Request.Form("c_add") v_zip = Request.Form("c_zip") v_city = Request.Form("c_city") v_Country = Request.Form("c_Country") v_tel = Request.Form("c_tel") v_fax = Request.Form("c_fax") v_email = Request.Form("c_email") v_contact = Request.Form("c_contact") v_url = Request.Form("c_url") v_profile = Request.Form("c_profile") v_distributors = Request.Form("c_distributors") v_clients = Request.Form("c_clients") IF TRIM(v_fax) = "" THEN v_packing = "NULL" END IF IF TRIM(v_url) = "" THEN v_url = "NULL" END IF IF TRIM(v_profile) = "" THEN v_profile = "NULL" END IF IF TRIM(v_distributors) = "" THEN v_distributors = "NULL" END IF IF TRIM(v_clientsTRIM = "" THEN v_clients = "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 Company " &_ "SET OffAddress = '" & v_add &"', " &_ " OffZipcode = '" & v_zip &"', " &_ " OffCity = '" & v_city &"', " &_ " OffTel = '" & v_tel &"', " &_ " Offfax = '" & v_fax &"', " &_ " OffEmail = '" & v_email &"', " &_ " OffContactName = '" & v_contact &"', " &_ " OffURL = '" & v_url &"', " &_ " Profile = '" & v_profile &"', " &_ " Distributors = '" & v_distributors &"', " &_ " Clients = '" & v_clients &"', " &_ " Com_type = 'FREE' , " &_ " Com_update_d = '" & now & "' " &_ "WHERE userid = '" & v_userid & "'" Set RS1 = IndustryNetSQL.Execute(sql1) %>

	<%=FormatDateTime(date, vbLongDate)%>