if selectbookid<>"" then
conn.execute "delete from products where bookid in ("&selectbookid&")"
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.GetFile(Server.mappath("/products/products_"&selectbookid&".html"))
thisfile.Delete True
response.Redirect "manageproduct.asp"
response.End
end if