ASPRunner manual
Before deleting a record check if related records exist

Before deleting a record in Orders tabe check if related records exist in Order Details table (Sample Northwind database in MS Access) Function BeforeDelete(where)   ' Parameters:   ' where - string with WHERE clause pointing to record to be deleted.   set rstmp = dal.Order_Details.Query("OrderID=" & key,"")   if rstmp.eof then     BeforeDelete = True   else     BeforeDelete = False   response.write "Order " & key &_   " has related records in Order Details table and cannot be deleted"   end if   rstmp.Close : set rstmp = nothing End Function