<% option explicit Response.Buffer = true if session("company_id") <> "" then dim conn dim rs dim ssql dim sOutlet_Id dim sOutlet_Name dim sOutlet_Address dim sOutlet_Phone dim sOutlet_Fax dim sOutlet_Email dim return_page %> <% sOutlet_Id = day(now) & month(now) & year(now) & hour(now) & minute(now) & second(now) sOutlet_Name = trim(Request.Form("outlet_name")) sOutlet_Address = trim(Request.Form("outlet_address")) sOutlet_Phone = trim(Request.Form("outlet_phone")) sOutlet_Fax = trim(Request.Form("outlet_fax")) sOutlet_Email = trim(Request.Form("outlet_email")) 'replace vbCrLf to
if len(sOutlet_Address) > 0 then sOutlet_Address = replace(sOutlet_Address, vbcrlf, "
", 1, -1, 1) end if set rs = server.CreateObject("adodb.recordset") rs.Open "tbl_outlet",conn,3,3 'add new data rs.AddNew rs.Fields("outlet_id") = sOutlet_Id rs.Fields("outlet_name") = sOutlet_Name rs.Fields("outlet_address") = sOutlet_Address rs.Fields("outlet_phone") = sOutlet_Phone rs.Fields("outlet_fax") = sOutlet_Fax rs.Fields("outlet_email") = sOutlet_Email 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 %>