<% 'Self note: Check default and null on target - How to set null off ? cSQLSelect = "select * from employee" cSQLInsert = "insert into employee (emp_id,First_name,last_name,hire_date) values ('CBASOZ','Cetin','Basoz',date())" cSQLUpdate = "update testdata!employee " &_ "set " &_ "Birth_date = {^1961/01/19}, " & _ "Title = 'FoxyClasses Developer' " & _ "where emp_id = 'CBASOZ'" dbpath = Server.MapPath("data") set oConnection = Server.CreateObject( "adodb.connection" ) with oConnection .ConnectionString = "Provider=VFPOLEDB.1;data source=" & _ dbpath & "\testdata.dbc" .Open .Errors.Clear .Execute( cSQLInsert ) .Execute( cSQLUpdate ) Set rs = .Execute( cSQLSelect ) end with ' Check results Response.Write("<TABLE border='1'><TR><TD>Emp Id</TD>" & _ "<TD>First Name</TD>" &_ "<TD>Last Name</TD><TD>Title</TD><TD>Born</TD><TD>Hired</TD></TR>" ) while not rs.eof Response.Write("<TR>") Response.Write("<TD>" & rs.Fields("emp_id").value & "</TD>") Response.Write("<TD>" & rs.Fields("first_name").value & "</TD>") Response.Write("<TD>" & rs.Fields("last_name").value & "</TD>") Response.Write("<TD>" & rs.Fields("title").value & "</TD>") Response.Write("<TD>" & rs.Fields("birth_date").value & "</TD>") Response.Write("<TD>" & rs.Fields("hire_date").value & "</TD>") Response.Write("</TR>") rs.MoveNext wend Response.Write("</TABLE><BR/>") oConnection.Close set oConnection = nothing %>PS: Recordset also works. Only hanging problem is 'SET NULL'. Currently I worked around by providing empty defaults.