SUBROUTINE MTDecline
***********************************
* MTDecline
***********************************
* This program is called by the merchant if the transaction is declined.
* It displays the declined reason sent by the merchant
* The program is specified by the DeclineURL from the MTPayment program
***********************************
* [00] 03/15/2000 pt initial creation
$options ext
include wbp w3include
CRT "MTDecline"
call w3HtmlInit("MTDemo","")
call w3HTMLHeader("", "")
Call w3HtmlFormBeg(w3_NP,"")
call w3getval(Reason,"reason")
call w3HtmlInsertSection("MT.Decline", "" , "HEAD")
subs="#Reason#":@vm:Reason
call w3HtmlInsertSection("MT.Decline",subs, "Reason")
call w3HtmlInsertSection("MT.Decline", "" , "TAIL")
Call w3HtmlFormEnd
call w3HTMLFooter("","")
RETURN