<% '******************************************************* ' Version 5.00 ' Project Subroutines ' Dummy Projects are part of the Option Package '******************************************************* Dim pid, pdescription, pcustomer dim pprice, pdualprice, pquantity dim customername, usprice dim strpemail, strpid dim projectfields(20), Projectcaptions(20), projectfieldcount dim pnameincart ' Sub ProjectLocate(strpid,strpemail) End Sub Sub ProjectNameInCart (Rsitem, nameincart) end sub sub UpdateProjectpayment (conn, orderid) end sub %>