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 :
[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%>
[/HTML]
I hope this will useful for you and others!
Regards,
Rahul Dev Katarey
Last edited by katarey : May 7th, 2007 at 8:48 pm.
