<%@ language="vbscript" codepage="1256" %> <% Response.Buffer= True %> <% Fname = request.form("Fname") Sname = request.form("Sname") %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & server.MapPath("db1.mdb") Mysql="select * from Tadreb" conn.open set er=Server.CreateObject("ADODB.RecordSet") er.open Mysql,conn,1,2 er.AddNew tmpFld = Fname if Fname<>"" then er("Fname") = tmpFld End if tmpFld = Sname if Sname<>"" then er("Sname") = tmpFld End if er.update er.close %>