|
'********** Save old data record in another table ************
dim rsFields
set dal_table=dal.Table(strTableName)
set rsFields = dal_table.Query(where,"")
if not rsFields.eof then
set dal_table_another=dal.Table("AnotherTable")
dal_table_another.Field1=rsFields("Field1")
dal_table_another.Field2=rsFields("Field2")
dal_table_another.Add()
end if
rsFields.close: set rsFielgs=nothing
|