$databases = sysInfo("Databases") $Formdb = list("db","create",";") $formdb = list("db","replace",$databases) $del = Val(list("db","find","found")) if $del > 0 $formdb = list("db","delete","$del") endif $del = Val(list("db","find","default")) if $del > 0 $formdb = list("db","delete","$del") endif $formdb = list("db","get","") |