<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open dsn SQL = "DELETE FROM Contacts WHERE ID LIKE ('%" & request("ID") & "%')" Set RS = Conn.Execute(SQL) %>

	Ocean12 ASP Contact Manager
	Add Contact  Card View  List View  Settings  Support  Documentation  Log Out		Remove Contact The contact has been removed. << Return
	Maintained with the Ocean12 ASP Contact Manager v1.01 ©2002 Ocean12 Technologies, all rights reserved.