%{-----------------------------------------------------------------%}

%{ ErrorMsg_Table.ndm -- display error message table, showing      %}

%{ current values of Net.Data macro variables                      %}

%{                                                                 %}

%{ Usage:                                                          %}

%{                                                                 %}

%{  %include ErrorMsg_Table.ndm                                    %}

%{  %message {                                                     %}

%{       -default: { @ErrorMsg() % }  : Exit                       %}

%{                                                                 %}

%{-----------------------------------------------------------------%}



%{-----------------------------------------------------------------%}

%{ Make an error message table row                                 %}

%{-----------------------------------------------------------------%}

%macro_function MakeErrorMsgTR (rowCaption,

                                rowLabel,

                                rowValue) {



    <tr bgcolor=oldlace>

        <td>$(rowCaption)</td>

        <td>$(rowLabel)</td>

        <td>$(rowValue)</td>

    </tr>

%}



%{-----------------------------------------------------------------%}

%{ Output an HTML message page                                     %}

%{-----------------------------------------------------------------%}

%macro_function ErrorMsg () {



    <br>

    <br>



	

    <!--------------------------------------------------------------

        Begin table for message display

    --------------------------------------------------------------->	

    <table bgcolor=navy border=1>

	

        <tr bgcolor=silver>

            <td colspan=3>

                <font size=+1

                      color=red>

                    <i>Error when processing Net.Data macro</i> $(DTW_MACRO_FILENAME)

                </font>

            </td>

        </tr>

		

        <tr bgcolor=mintcream

            align=center>

            <td>Description</td>

            <td>Net.Data Variable</td>				

            <td>Value</td>

        </tr>

		



        <!-------------------------------------------------------------

            Display Net.Data built-in variables

         -------------------------------------------------------------->		

         @MakeErrorMsgTR("Return Code", 

                         "RETURN_CODE", 

                         $(RETURN_CODE))



         @MakeErrorMsgTR("SQL State", 

                         "SQL_STATE", 

                         $(SQL_STATE))

						

         @MakeErrorMsgTR("Default message",

                         "DTW_DEFAULT_MESSAGE",

                          $(DTW_DEFAULT_MESSAGE))



         @MakeErrorMsgTR("Current filename", 

                         "DTW_CURRENT_FILENAME", 

                         $(DTW_CURRENT_FILENAME))		



         @MakeErrorMsgTR("Current last modified", 

                         "DTW_CURRENT_LAST_MODIFIED",

                         $(DTW_CURRENT_LAST_MODIFIED))

	

         @MakeErrorMsgTR("Macro filename",

                         "DTW_MACRO_FILENAME",

                         $(DTW_MACRO_FILENAME))



         @MakeErrorMsgTR("Macro last modified",

                         "DTW_MACRO_LAST_MODIFIED",

                         $(DTW_MACRO_LAST_MODIFIED))



         @MakeErrorMsgTR("Macro processor path",

                         "DTW_MP_PATH",

                         $(DTW_MP_PATH))



         @MakeErrorMsgTR("Macro processor version",

                         "DTW_MP_VERSION",

                         $(DTW_MP_VERSION))						

		

        <!-------------------------------------------------------------

            Form/Submit button to return to macro

         -------------------------------------------------------------->		

        <form action=INPUT

              method=POST>



            <tr>

                <td align=center colspan=3>

                    <input type=submit

                           value="Return to Net.Data macro">

                </td>

            </tr>

        </form>

    </table>

%}