<% stop ' Create an object of ActiveX set objUserSettings = Server.CreateObject("KIDDB.KidDBControlCtrl.1") if objUserSettings is nothing then Response.Clear Response.end end if stop strKidID = "amar_kid2" retValue = objUserSettings.DeleteKid(strKidID) ' if return value is false then exit if (retValue <> true) then set objUserSettings = nothing Response.Clear Response.End else Response.Write("
DeleteKid(...) successful") end if %>