Condition loop
$30-5000 USD
Paid on delivery
The code below is a section of an ASP page. The page when loaded should along with other functions send an ASPMail email when the var "NewInv" is less then var "Threshold". The page works, except it sends an email everytime(condition true or not). The values are correct as they are sent with the email and I have checked them. Here is the code that performs the loop. <% [url removed, login to view] CurrentRecord = 0 Do While NOT [url removed, login to view] Threshold = RSOrder("THRESHOLD") Inv = CInt(RSOrder("Inv")) Qnty = CInt(RSOrder("Quantity")) NewInv = ((Inv)-(Qnty)) Set Mailer = [url removed, login to view]("[url removed, login to view]") [url removed, login to view] = "ROS PrintShop" [url removed, login to view] = "email" [url removed, login to view] = "server" [url removed, login to view] "ROS Inc", "email" [url removed, login to view] = "ROS CP Printshop Order" [url removed, login to view] = "A new order has been made. Order details are listed below" & vbcrlf [url removed, login to view] = "---------------------------------------------------------" & vbcrlf [url removed, login to view] = "SKU: " &RSOrder("PRODUCT_ID") [url removed, login to view] = "Current Inventory: " &NewInv [url removed, login to view] = "Threshold Value: " &Threshold [url removed, login to view] = "-------------------------------------------------------------------------" & vbcrlf [url removed, login to view] = "Login to manage this order. [url removed, login to view]" If NewInv < Threshold Then [url removed, login to view] Set Mailer = Nothing End If AttA = RSOrder("AttributeA") AttB = RSOrder("AttributeB") AttC = RSOrder("AttributeC") If AttA <> "" Then ATTResponse = AttA End If If AttB <> "" Then ATTResponse = AttResponse&", "&AttB End If If AttC <> "" Then ATTResponse = AttResponse&", "&AttC End If ATTResponse = ATTResponse&" " %>
| **<%= RSOrder("PRODUCT_ID") %>** | |
Project ID: #2896819