<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Record Added <% const connectionStr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\inetpub\database\northwind.mdb" set conn = Server.CreateObject("ADODB.Connection") conn.Open connectionStr sql = "INSERT INTO customers ( customerID, companyName, ContactName, Address, City, Postal Code, Country )" sql = sql & " VALUES ('" & custid & "', " sql = sql & "'" & compname & "', " sql = sql & "'" & contname & "', " sql = sql & "'" & address & "', " sql = sql & "'" & city & "', " sql = sql & "'" & postcode & "', " sql = sql & "'" & country & "')" on error resume next conn.Execute sql, recaffected if err<>0 then Response.Write("No update permission") else Response.Write("

" & recaffected & " record added

") end if conn.close %>