<% option explicit Response.Buffer = true if session("company_id") <> "" then dim conn dim rs dim ssql dim sCategory_Id dim sCategory_Name dim sCategory_Description dim return_page %> <% sCategory_Id = trim(Request.Form("category_id")) sCategory_Name = trim(Request.Form("category_name")) sCategory_Description = trim(Request.Form("category_description")) 'replace vbCrLf to
if len(sCategory_Description) > 0 then sCategory_Description = replace(sCategory_Description, vbcrlf, "
", 1, -1, 1) end if 'update data ssql = "select * from tbl_category where category_id = '" & sCategory_Id & "'" set rs = server.CreateObject("adodb.recordset") rs.Open ssql,conn,3,3 rs.Fields("category_name") = sCategory_Name rs.Fields("category_description") = sCategory_Description rs.Update rs.Close conn.Close set rs = nothing set conn = nothing return_page = "" Response.Write return_page else Response.Redirect "../../index.asp" end if %>