Remove an existing product

Select a product to remove:

<% OpenDatabase() sql = "SELECT product_id, product_skew, product_name, product_price FROM product WHERE product_removed = 0 OR product_removed IS NULL ORDER BY product_skew" Set tempRS = conn.Execute(sql) If tempRS.EOF Then Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Else Do Until tempRS.EOF cnt = cnt + 1 If cnt Mod 2 = 0 Then bgcolor = "F7F7E6" Else bgcolor = "E8E8E8" End If Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf tempRS.MoveNext Loop End If tempRS.Close CloseDatabase() %>

Functions	Part Number	Product	Price
No products found. Click here to add a new product.
Remove	" & tempRS("product_skew") & "	" & tempRS("product_name") & "	$" & FormatPrice(tempRS("product_price")) & "

Back