how to get the values of checkboxes and delete them

[pavsuri]

i want to get the checked checkboxes values to get deleted from the database.can u please help me in this ........................urgent.

[katarey]

Hi there,
have you tried to make this work? ;)
well here the way do do this :
ASP :

<%
'declare variables
Dim connstring, cn, rs
'Connection String
connString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/conn/db1.mdb")
Sub OpenDataBase()
	Set cn = Server.CreateObject("ADODB.CONNECTION")
	cn.open connstring
End Sub
	'Open Database 
		OpenDataBase()
	'Create Recordset
		set rs = Server.CreateObject("ADODB.Recordset")
		sql = "Select * from users"
		rs.Open sql, cn
'If Form Submit this part will Execute		
if Request.Form("Delete") = "Delete" then	
	'Get All Checked checkbox
	checks = Request.Form("chkBox")
	'checkbox array 	
	check_a = split(checks, ",")		
	'SQL	
	str = ""
	str = "Delete from users where "
	'Adding checked checkbox values to Sql string
	for i = 0 to ubound(check_a)
		if i = 0 then
			str = str & "uid = "& check_a(i)
		else
			str = str & " AND uid = "& check_a(i)
		end if
	next
	'Open Database 
	 OpenDataBase()
		'Execute SQL String
		cn.execute(str)	
		Response.Write "Record Deleted!"
%>

HTML :

<%else%>
<!-- Form Not Submited Yet-->
<form action="CheckBox.asp" method="post" name="form1" id="form1">
  <table border="1" cellspacing="2" cellpadding="2">
    <tr>
      <td>Delete</td>
      <td>User Id</td>
      <td>User Name</td>
    </tr>
    <%	
		c=0 
			do while not rs.eof
		c=c+1 
	%>
    <tr>
      <td><input type="checkbox" name="chkBox" value="<%=rs("uid")%>"></td>
      <td><%=rs("uid")%></td>
      <td><%=rs("username")%></td>
    </tr>
    <%
		rs.movenext
		loop
	%>
    <tr>
      <td colspan="3"><input name="Delete" type="submit" value="Delete" /></td>
  </table>
</form>
<%end if%>

I hope this will useful for you and others! :)

Regards,
Rahul Dev Katarey

[katarey]

Hi Again,

if above code not works so just replace

This Part :

for i = 0 to ubound(check_a)
		if i = 0 then
			str = str & "uid = "& check_a(i)
		else
			str = str & " AND uid = "& check_a(i)
		end if
	next

With :

for i = 0 to ubound(check_a)
		if i = 0 then
			str = str & "uid = "& check_a(i)
		else
			str = str & " OR uid = "& check_a(i)
		end if
	next

Thanks
Rahul