/* signupCGI.cc This is a subclass of CGISession.cc, the dBASE Web Class. It adds custom formatting to the "Sorry" page to match the Visual dBASE 7.5 Conference Signup sample application Usage oCGI = new sampleCGISession() Author: A. A. Katz 01/17/2000 dBASE Inc. */ Class SignupCGISession of CGISession from "Webclass.cc" ////// Method: SorryPage ////////////////////////////////////////////// ////// Purpose: Returns Sorry page in response to user /////////////// ////// Param: cMsg = Error Message //////////////////////////////// ////// Accepts a char string or array of messages /// ////// cSubTtl Subtitle, such as 'An error has ocurred" or / ////// "data missing" //////////////////////////////// ////// cRecover = Suggestion for recovery /////////////////// ////// such as "Press the browser's back button" //// ////// or contact Web master.. Function SorryPage(cMsg,cSubTtl,cRcvr) cMess = iif(empty(cMsg),'',cMsg) if type('cMess') = 'C' // if message is not array, cMess = new array() // convert to a one-element array cMess.add(cMsg) endif // Make private versions for type() cRecover = iif(empty(cRcvr),'',cRcvr) cSubtitle = iif(empty(cSubTtl),'',cSubTtl) /////// Stream out header this.StreamHeader('Sorry!') with (this.fOut) ////// Body tag (starts body of page) puts('') ////// Table is used to format color and text ////// First row of table with 'Sorry" display. puts('

') puts('') puts(' ') puts(' ') puts(' ') puts(' ') puts(' ') puts(' ') puts('') ////// Narrow gray horizontal stripe puts('') puts(' ') puts(' ') puts(' ') puts(' ') puts(' ') puts('') ////// If there is a "Subtitle" , such as "An error has ocurred on the ////// Server! if len(cSubtitle) > 0 ///// Page subtitle puts('') puts(' ') puts(' ') puts(' ') puts(' ') puts(' ') puts('') endif ////// Empty row for spacing puts('') puts(' ') puts(' ') puts(' ') puts(' ') puts(' ') puts('') for n = 1 to cMess.size puts('') puts(' ') puts(' ') puts(' ') puts(' ') puts(' ') puts('') next ////// Empty row for spacing puts('') puts(' ') puts(' ') puts(' ') puts(' ') puts(' ') puts('') ////// Stream out recovery instructions cRecover = iif(empty(cRecover),"Press Browser's Back Button and try again.",; cRecover) puts('') puts(' ') puts(' ') puts(' ') puts(' ') puts(' ') puts('') ////// Close table puts('
    ') puts('

Sorry!') puts('

     
    '+cSubtitle+'
     
    '+cMess[n]+'
     
    '+; cRecover+'
') endwith ////// Close out HTML structure this.StreamFooter() quit endClass