source: EWD/archive/C0CE000E.m@ 1745

Last change on this file since 1745 was 1265, checked in by George Lilly, 13 years ago

old version of EWD fileman file and sample applications
File size: 3.7 KB
RevLine 
[721]1 ;GT.M version of page ewdError (patientportal application)
2 ;Compiled on Mon, 01 Mar 2010 17:10:45
3 ;using Enterprise Web Developer (Build 790)
4 QUIT
5 ;
6run ;
7 n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
8 s ok=$$pre()
9 i ok d body
10 QUIT
11 ;
12pre() ;
13 ;
14 n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
15 ;
16 w "HTTP/1.1 200 OK"_$c(13,10)
17 w "Content-type: text/html"_$c(13,10,13,10)
18 QUIT 1
19 ;
20body ;
21 w ""_$c(13,10)
22 w "<html>"_$c(13,10)
23 w "<head>"_$c(13,10)
24 w "<title>Enterprise Web Developer : A run-time error has occurred</title>"_$c(13,10)
25 w "<style type=""text/css"">"_$c(13,10)
26 w " body {background: #ffffff ;}"_$c(13,10)
27 w " .headerBlock {width: 100% ; background : #111111 ; horizontal-align : center ; }"_$c(13,10)
28 w " .headerBlock[class] {width: 100% ; background : #111111 ; horizontal-align : center ; position: relative ; top : 30px ; border-right-style : solid ; border-right-width: 2px ; }"_$c(13,10)
29 w " #headerText {vertical-align: center ; font-family: Arial, sans-serif ; color: #dddddd ; font-size: 11pt ; margin-left: 10px}"_$c(13,10)
30 w " #headerSubject {vertical-align: center ; font-family: Arial, sans-serif ; color: #dddddd ; font-size: 11pt ; position: relative ; top: -30px ; text-align: center ;}"_$c(13,10)
31 w " .selectedTab {border-style: outset ; background: #eeeedd ; padding-left: 8px ; padding-right: 8px ;}"_$c(13,10)
32 w " .unselectedTab {border-style: groove ; padding-left: 8px ; padding-right: 8px ;}"_$c(13,10)
33 w " #tabs {cursor : pointer ; height: 20px ; background : #cccccc ; text-align: center ; position: relative ; left: 25px ; font-family : Arial, Helvetica, sens-serif ; font-size: 11pt}"_$c(13,10)
34 w " #mainArea {background : #dfe2f1 ; padding: 0 ; horizontal-align: center ; width : 100% ; height: auto ; border-style: solid ; border-left-width: 1px ; border-right-width: 1px ; padding-top : 0px ; margin-top : 0px}"_$c(13,10)
35 w " #workArea {background : #ffffff ; horizontal-align: center ; position: relative ; top: -6px ; left: 25px ; width : 95% ; height: auto ; font-family : Arial, Helvetica, sens-serif ; font-size: 12pt ; border-style: outset}"_$c(13,10)
36 w " #pageTitle {width: 100% ; height: 50px ; text-align : center ; horizontal-align : center ; font-family: Arial, sans-serif ;}"_$c(13,10)
37 w " .footerBlock {width: 100% ; background : #111111 ; horizontal-align : center ;}"_$c(13,10)
38 w " .footerBlock[class] {width: 100% ; background : #111111 ; horizontal-align : center ; position: relative ; top : -15px ; border-right-style : solid ; border-right-width: 2px ; }"_$c(13,10)
39 w " #footerText {vertical-align: center ; font-family: Arial, sans-serif ; color: #dddddd ; font-size: 8pt ; margin-left : 10px}"_$c(13,10)
40 w " #tableblock {text-align: center ; margin-top: 40px}"_$c(13,10)
41 w " #hiddenForm {visibility: hidden ;}"_$c(13,10)
42 w "</style>"_$c(13,10)
43 w "</head>"_$c(13,10)
44 w "<body>"_$c(13,10)
45 w ""_$c(13,10)
46 w " <div id=""mainArea"">"_$c(13,10)
47 w " <div id=""pageTitle"">"_$c(13,10)
48 w " <h1>Enterprise Web Developer (Build 790)</h1>"_$c(13,10)
49 w " </div>"_$c(13,10)
50 w ""_$c(13,10)
51 w " <div id=""workArea"">"_$c(13,10)
52 w " <div id=""tableblock"">"_$c(13,10)
53 w " <h3>An Error has occurred</h3>"_$c(13,10)
54 w " <br>"_$c(13,10)
55 w " <h3>"_$g(%KEY("error"))_"</h3>"_$c(13,10)
56 w " </div>"_$c(13,10)
57 w " </div>"_$c(13,10)
58 w " </div>"_$c(13,10)
59 w ""_$c(13,10)
60 w " <div class=footerBlock>"_$c(13,10)
61 w " <p id=""footerText"">&nbsp;&copy; 2004-2009 M/Gateway Developments Ltd All Rights Reserved</p>"_$c(13,10)
62 w " </div>"_$c(13,10)
63 w "</body>"_$c(13,10)
64 w "</html>"_$c(13,10)
65 QUIT
Note: See TracBrowser for help on using the repository browser.