<%
username= Request.Cookies("user-name")
DIM ID, IDNumber
IDNumber = Request.Querystring("ID")
ID=Clng(IDNumber)
set RecordSet = Server.CreateObject("ADODB.RecordSet")
Recordset.ActiveConnection = dbpath
RecordSet.LockType = 2
RecordSet.CursorType = 2
sqlstatement ="DELETE FROM karaokelistings WHERE ID="&ID&" AND username = '"&username&"'"
connDB.execute(sqlstatement)
%>
<%Response.Redirect"kjarea.asp"%>