delete single record from database

[billy124]

is it possible to have a action button with a query string init..

i have a basket page..which is linked to a database..
to add stuff i have a """""<a href="basket.asp?ID=01001&Model=Sony KDL42V3000&price=999.99&quntaity=1"><img src="images/buy.gif" border=0 style="float: right" /></a> </a>""""" in my database and that passes a query string to the basket page which adds the new product in the basket..

i want to make a delete button which will appear in the basket next to every item added and when thy click that button the product will be deleted..

whats the best ways to do that..

[kooshal]

Use this code:

<%
	'Declare variables first!
	Dim Conn, rs, SQl, msg
	'Create Connection and RecordSet Objects
	Set Conn = Server.CreateObject("ADODB.Connection")
	Set rs = Server.CreateObject("ADODB.RecordSet")
	'Open Connection And RecordSet Objects...
	Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("## DATABASE PATH HERE!!! ##")
	If (Request.Form("strAction") <> "" AND Request.Form("strID") <> "") Then
		Conn.Execute("DELETE FROM Basket WHERE ID=" & Replace(Request.Form("strID"),"'","''"))
		msg = "<div style=""font-family:verdana;color:red;clear:both;font-size:11px;"">Item deleted!</div>"
	End If
	SQl = "SELECT * FROM Basket"
	rs.Open SQl, Conn, 1
%>
<script language="javascript" type="text/javascript">
<!--
function deleteItem(itemId)
{
	var theForm;
	theForm = document.forms["fm"];
	if (!theForm) {
		theForm = document.fm;
	}
	if (confirm("Are you sure you want to delete this item?")) {
		theForm.strAction.value = "delete";
		theForm.strID.value = itemId;
		theForm.submit();
	}
}
//-->
</script>
<form name="fm" action='<%= Request.ServerVariables("Script_Name") & "?" & Request.QueryString %>' method="post" style="font-family:verdana;font-size:11px;">
<input type="hidden" name="strAction" value="" />
<input type="hidden" name="strID" value="" />
	<table width="100%" border="1" style="font-family:verdana;font-size:11px;">
		<tr>
			<td width="55">ID</td>
			<td width="650">Brand and Model</td>
			<td width="20">Price</td>
			<td width="60">Options</td>
		</tr>
		<%
			Dim strId
			While Not rs.EOF
				strId = rs("ID")
		%>
		<tr>
			<td width="55"><%= rs("ID") %></td>
			<td width="193"><%= rs("Brand") %></td>
			<td><%= rs("Price") %></td>
			<td width="60"><input type="button" style="font-family:verdana;font-size:11px;" value="Delete" onclick="deleteItem('<%= strId %>')" /></td>
		</tr>
		<%
				rs.MoveNext
			WEnd
		%>
	</table>
	<%= msg %>
</form>
<%
	rs.Close
	Conn.Close
	Set rs = Nothing
	Set Conn = Nothing
%>