CC.Driver

subroutine cc.driver

*****************************

* CC.Driver

*****************************

* Driver program.  This is the entry point for the MTDemo program

*****************************

include wbp w3include

call w3getval(submit,"submit")

CRT "CC.Driver"

begin case

   case submit="Accept"

      call MTAccept

   case submit="Decline"

      call MTDecline

   case submit="Go to next page"

      call w3getval(ChargeType,"chargetype")

      call w3getval(PayMethod,"paymethod")

      call w3getval(EmailTo,"Email")

      Call MTPayment(ChargeType,PayMethod,EmailTo)

   case 1

      call MTSelectPayment

end case

return