<%@ 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_clients) = "" 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") 'update USERMEMBER user_type to PRODUCT_FREE '-------- sql_user = "UPDATE Usermember "&_ "SET Ulevel =" & 2 & " " &_ "WHERE userid ='" & v_userid & "'" Set RS_user = IndustryNetSQL.Execute(sql_user) sql_use2 = "SELECT * FROM Usermember "&_ "WHERE userid ='" & v_userid & "'" Set RS_use2 = IndustryNetSQL.Execute(sql_use2) Session("Common_Access") = RS_use2("ulevel") '-------- v_comtype = "FREE" sql1 = "INSERT INTO Company " &_ "(Name,UserID,OffAddress,OffZipCode,OffCity,OffCountry, "&_ "OffTel,OffFax,OffEmail,OffURL,OffContactName,Profile, "&_ "Distributors,Clients,Com_type,Com_create_d,Com_update_d)" &_ "VALUES('"& v_name &"','"& v_userid &"','"& v_add &"','"&_ v_zip &"','"& v_city &"','"& v_country &"','"&_ v_tel &"','"& v_fax &"','"& v_email &"','"&_ v_url &"','"& v_contact &"','"& v_profile &"','"&_ v_distributors &"','"& v_clients &"','"& v_comtype &"','"&_ now &"','"& now &"')" Set RS1 = IndustryNetSQL.Execute(sql1) %>

	<%= FormatDateTime (date, vbLongDate) %>

User Member <%=RS("FName")& " " %><%=RS("LName")& " " %> Company Infomation Manager [Add] Name <%=v_name%> Office Address <%=v_add%> Zipcode <%=v_zip%> City <%=v_city%> Country <%=v_Country%> Tel. <%=v_tel%> Fax. <%=v_fax%> Email Address <%=v_email%> Contact Person <%=v_contact%> URL <%=v_url%> Profile <%=v_profile%> Distributors <%=v_distributors%> Clients <%=v_clients%> . .