<% option explicit Response.Buffer = true if session("company_id") <> "" then dim conn dim rs dim ssql dim sShipping_Id dim sShipping_Name dim sShipping_Charges dim return_page %> <% sShipping_Id = day(now) & month(now) & year(now) & hour(now) & minute(now) & second(now) sShipping_Name = trim(Request.Form("shipping_name")) sShipping_Charges = trim(Request.Form("shipping_charges")) set rs = server.CreateObject("adodb.recordset") rs.Open "tbl_shipping",conn,3,3 'add new data rs.AddNew rs.Fields("shipping_id") = sShipping_Id rs.Fields("shipping_name") = sShipping_Name rs.Fields("shipping_charges") = sShipping_Charges 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 %>