UNKNOWN '************************************** ' Name: Shopping Cart ' Description:This is an Internet Shoppi ' ng Cart which is an Accounting and E-Com ' merce Application ' By: martin castaņeda ' ' ' Inputs:None ' ' Returns:None ' 'Assumes:None ' 'Side Effects:None 'This code is copyrighted and has limite ' d warranties. 'Please see http://www.Planet-Source-Cod ' e.com/xq/ASP/txtCodeId.6136/lngWId.4/qx/ ' vb/scripts/ShowCode.htm 'for details. '************************************** <html> <center> <font size="5"> Martin's Shopping Cart Sample </font> </center> <br><br> <form name="SHOPPINGCARTFORM" method="POST" action="http://www6.ewebcity.com/martincastaneda/grocery.asp"> <pre> Name : <input name="NAME" size="30"> Email : <input name="EMAIL" size="30"> Telephone : <input name="TELEPHONE" size="30"> Address: <input name="ADDRESS" size="50"> Item : <select name="ITEMX"> <option value="Empty">Empty <option value="Bread">Bread <option value="Pampers">Pampers <option value="Milk">Milk <option value="Ice_Cream">Ice_Cream </select> Price : <input name="PRICE" value="0.00"> Quantity : <input name="QUANTITY" value="1"> Amount: <input name="AMOUNT" value="0.00"> <input type="BUTTON" name="ADD" value="Add to Cart"> Transaction <textarea name="TRANSACTION" cols="50" rows="20"></textarea> Total : <input name="TOTAL" value="0.00"> <input type="RESET" value="Reset"><input type="SUBMIT" value="Submit"> </pre> </form> <script language="VBSCRIPT"> <!-- SET ENTRYFORM = DOCUMENT.SHOPPINGCARTFORM SUB ADD_OnClick ENTRYFORM.TRANSACTION.VALUE = ENTRYFORM.TRANSACTION.VALUE + "Item: " + ENTRYFORM.ITEMX.VALUE + VBCRLF ENTRYFORM.TRANSACTION.VALUE = ENTRYFORM.TRANSACTION.VALUE + "Price: " + ENTRYFORM.PRICE.VALUE + VBCRLF ENTRYFORM.TRANSACTION.VALUE = ENTRYFORM.TRANSACTION.VALUE + "Quantity: " + ENTRYFORM.QUANTITY.VALUE + VBCRLF ENTRYFORM.TRANSACTION.VALUE = ENTRYFORM.TRANSACTION.VALUE + "Amount : " + ENTRYFORM.AMOUNT.VALUE + VBCRLF + VBCRLF ENTRYFORM.TOTAL.VALUE = FORMATNUMBER(CINT(ENTRYFORM.TOTAL.VALUE) + CINT(ENTRYFORM.AMOUNT.VALUE), 2) END SUB SUB QUANTITY_OnChange CALL COMPUTE END SUB SUB COMPUTE ENTRYFORM.AMOUNT.VALUE = FORMATNUMBER(CINT(ENTRYFORM.PRICE.VALUE) * CINT(ENTRYFORM.QUANTITY.VALUE), 2) TOTALAMOUNT = CINT(ENTRYFORM.TOTAL.VALUE) + CINT(ENTRYFORM.QUANTITY.VALUE) END SUB SUB ITEMX_OnChange IF ENTRYFORM.ITEMX.SELECTEDINDEX = 0 THEN ENTRYFORM.PRICE.VALUE = "0.00" IF ENTRYFORM.ITEMX.SELECTEDINDEX = 1 THEN ENTRYFORM.PRICE.VALUE = "10.00" IF ENTRYFORM.ITEMX.SELECTEDINDEX = 2 THEN ENTRYFORM.PRICE.VALUE = "20.00" IF ENTRYFORM.ITEMX.SELECTEDINDEX = 3 THEN ENTRYFORM.PRICE.VALUE = "30.00" IF ENTRYFORM.ITEMX.SELECTEDINDEX = 4 THEN ENTRYFORM.PRICE.VALUE = "40.00" ENTRYFORM.QUANTITY.VALUE = "1" ENTRYFORM.QUANTITY.VALUE = INPUTBOX("Input Quantity of " + ENTRYFORM.ITEMX.VALUE, "Quantity", ENTRYFORM.QUANTITY.VALUE) CALL COMPUTE END SUB --> </script> </html>