thank you for such a speedy response!
I used the "IN" method and it creates a much nicer SQL statement. However, I'm getting another error:
Could not delete from specified tables.
I think the error originates from how I have the database set up. The DB has 2 columns. 1 column is called "listnum", is a unique number value and is the KEY. The other column is called "product" and is a list of each product my company sells, is text.
I want to delete these products from the database when the manager checks a check box and hits send. I'm trying to delete the entire row, based on the unique "listnumber".
Is this a legitimate thing to try?
Here is the code from the form page with the checkbox:
<%@ Language=VBscript %>
<% Option Explicit%>
<% Response.Buffer = true %>
<%
dim rs
dim prod(100)
dim listnum(100)
dim strSQL
dim c
c=1
set rs = server.CreateObject("ADODB.Recordset")
strSql = "SELECT * FROM prod"
rs.Open strSql, objConn
while not rs.eof
prod(c) = rs("product")
listnum(c) = rs("listnum")
rs.movenext
c = c+1
wend
%>
<html>
<head>
<title>Mil International - Administrator Only</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<table cellpadding="3" cellspacing="3" border="1" align="center">
<tr>
<td colspan="3">Mil International Products List</td>
</tr>
<tr>
<td></td><td>List #</td><td>Product Name</td>
</tr>
<% dim i
c = c-1
%>
<form action="delete-handler.asp" method="post">
<%for i = 1 to c %>
<tr>
<td><INPUT TYPE=CHECKBOX NAME="listnum" value="<%=listnum(i)%>"></td><td></td><td><% response.write(prod(i)) %> </td>
</tr>
<% Next %>
<input type="submit" name="submit" value="Send">
</form>
</table>
</body>
</html>
Here is the SQL again:
<%
dim counter
counter=1
dim del(100)
dim x
dim strSQL
dim del_list
dim add
strSQL = "DELETE FROM prod WHERE listnum IN ("
del_list = ""
dim upper
upper=request.Form("listnum").count
dim rs
if upper >+ 1 then
For counter = 1 To Request.Form("listnum").Count-1
del_list = del_list & Request.Form("listnum")(counter) & "," &""
Next
del_list=del_list+Request.Form("listnum")(counter)
end if
strSQL = strSQL&del_list&")"
set rs = server.CreateObject("ADODB.Recordset")
rs.Open strSQL, objConn
%>
Thank you VERY VERY much, I would be spending hours trying to debug this myself. I greatly appreciate your help.
-Brian
