topical media & game development
[] readme course(s) preface I 1 2 II 3 4 III 5 6 7 IV 8 9 10 V 11 12 afterthought(s) appendix reference(s) example(s) resource(s) _

talk show tell print

basic-xml-15-listing1.txt / txt



  Response.ContentType = "text/xml"
  
  Dim quantity, unitPrice
  Dim discount, extPrice
  
  On Error Resume Next
  
  quantity = Request.QueryString.Item("quantity")
  unitPrice = Request.QueryString.Item("unitPrice")
  
  discount = QuantityDiscount(quantity)
  extPrice = (CDbl(quantity) * CDbl(unitPrice))*(1 - (discount/100))
  
  If Err.number <> 0 Then
     Response.Write (ErrorXML())
  Else
     Response.Write (SuccessXML(discount, extPrice))
  End If
[] readme course(s) preface I 1 2 II 3 4 III 5 6 7 IV 8 9 10 V 11 12 afterthought(s) appendix reference(s) example(s) resource(s) _

(C) Æliens 20/2/2008

You may not copy or print any of this material without explicit permission of the author or the publisher. In case of other copyright issues, contact the author.