Update an existing product

Select a product to update:

<% OpenDatabase() sql = "SELECT * 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 product_image = tempRS("product_image1") If product_image = "" Or IsNull(product_image) Then product_image = tempRS("product_image2") If product_image = "" Or IsNull(product_image) Then product_image = tempRS("product_image3") If product_image = "" Or IsNull(product_image) Then product_image = tempRS("product_image4") If product_image = "" Or IsNull(product_image) Then product_image = tempRS("product_image5") If product_image = "" Or IsNull(product_image) Then product_image = "noimage.jpg" 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.
Update	" & tempRS("product_skew") & "	" & tempRS("product_name") & "	$" & FormatPrice(tempRS("product_price")) & "

Back