Remove an existing association

Select an association to remove:

<% OpenDatabase() sql = "SELECT * FROM association" 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 sql = "SELECT product_skew, product_name FROM product WHERE product_id = " & tempRS("association_product") Set tempRS2 = conn.Execute(sql) If Not tempRS2.EOF Then tmpProduct = tempRS2("product_skew") & " " & tempRS2("product_name") End If sql = "SELECT product_skew, product_name FROM product WHERE product_id = " & tempRS("association_accessory") Set tempRS2 = conn.Execute(sql) If Not tempRS2.EOF Then tmpAccessory = tempRS2("product_skew") & " " & tempRS2("product_name") End If Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf tempRS.MoveNext Loop End If tempRS2.Close tempRS.Close CloseDatabase() %>

Functions	Product	Product's Accessory
No associations found. Click here to add a new association.
Remove	" & tmpProduct & "	" & tmpAccessory & "

Back