Delete multipule values

[Fary4u]

Hi

i'm try to figer it out but i don't know why is not executing properly
i've got multipule values into the database & against that value different values

i've seleted the value to delete but it's just only remove 1 entry & finished to execute

here is my code

b = trim(request("prdkey")
	dim rs1,ocon1, b
	set ocon1 = server.createobject("ADODB.Connection")
	ocon1.open ConString
	set rs1 = server.createobject("ADODB.RecordSet")
	rs1.open "select * from PRODUCT_COLOURS where prod_id=" & b,ocon1,adOpenDynamic,adLockOptimistic
		if rs1.eof then
			response.write"Sorry"
		else
	Do While b = ""
		rs1.delete
		rs1.update					
			response.write "Record Deleting"
	Loop
		end if
	rs1.close
	set rs1=Nothing
	ocon1.close
	set ocon1=Nothing

if i write this code without Do While or Loop it's execuated but if i do this code then doesn't delete any record.

[shweta123]

Hi,

If you want to delete all the entries related to perticular prod_id from the table you have to write sql statement as follows:

Sql = "Delete from where PRODUCT_COLOURS prod_id=" & b
ocon1.execute(S ql)

Hi

i'm try to figer it out but i don't know why is not executing properly
i've got multipule values into the database & against that value different values

i've seleted the value to delete but it's just only remove 1 entry & finished to execute

here is my code

b = trim(request("prdkey")
	dim rs1,ocon1, b
	set ocon1 = server.createobject("ADODB.Connection")
	ocon1.open ConString
	set rs1 = server.createobject("ADODB.RecordSet")
	rs1.open "select * from PRODUCT_COLOURS where prod_id=" & b,ocon1,adOpenDynamic,adLockOptimistic
		if rs1.eof then
			response.write"Sorry"
		else
	Do While b = ""
		rs1.delete
		rs1.update					
			response.write "Record Deleting"
	Loop
		end if
	rs1.close
	set rs1=Nothing
	ocon1.close
	set ocon1=Nothing

if i write this code without Do While or Loop it's execuated but if i do this code then doesn't delete any record.