How to Get... Updated Wed 28 Aug
(For Newbies wanting to find out the following). Information on what you find in BJ's How to Get... (BJ's How to Get... Readme.txt can be found in BJ's How to Get Directory) The Directory you can find them in 00: How to Get All - (BJ's How to Get)* 01: How to make a Basic Calendar. - (BJ's Basic Calendar)* 02: How to get colours. - (BJ's Colours) 03: How to Copy Files. - (BJ's Copy File) 04: How to Delete Files. - (BJ's Delete Files) 05: How to Disable the [X] on the top form. - (BJ's Disable Close Button) 06: How to add info to E-Mail. - (BJ's E-Mail) 07: How to make an Image Combo. - (BJ's Image Combo) 08: How to make an .ini file. - (BJ's Make INI) 09: How to Use a Multi Undo. - (BJ's Multi Undo) 10: How to make a Popup Menu. - (BJ's Popup Menu) 11: How to access the Registry. - (BJ's Reg Example) 12: How to Rename Files. - (BJ's Rename Files) 13: How to access the Systems About Box. - (BJ's System About Box) 14: How to get an elapsed time. - (BJ's Time Elapse) 15: How to add an Icon to the Icon Tray. - (BJ's Tray Icon) 16: How to make you own Trial Application. - (BJ's Trial Version)* 17: How to get the Windows Directory. - (BJ's Windows Directory) If you have anything in mind to add to this just E-Mail me. Click on E-Mail on any of my apps.
Résumé par IA: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Upload
<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>