|
You got it, Andrew. Have you done this before? ;) Brad > -----Original Message----- > From: Andrew Borts [mailto:andrewb@setacorporation.com] > Sent: Friday, March 23, 2001 9:47 AM > To: 'WEB400@midrange.com' > Subject: RE: Problems with Error 500 > > > so the lines look like this... > Content-type: text/html > > > <html> > > Andrew Borts / E-Commerce Project Leader > Seta Corporation > 6400 East Rogers Circle > Boca Raton, FL 33499 > > E-mail: Andrewb@setacorporation.com > Corporate web site http://www.setacorporation.com > E-Commerce web site http://www.palmbeachjewelry.com > Voice: 561-994-2660 Ext. 2211 / Fax: 561-997-0774 > > > -----Original Message----- > From: Stone, Brad V (TC) [SMTP:bvstone@taylorcorp.com] > Sent: Friday, March 23, 2001 8:44 AM > To: 'WEB400@midrange.com' > Subject: RE: Problems with Error 500 > > You need to put two newlines after the HTTPHeader. This > "signals" the web > server that no more header information is there and it's all > "data" from > then on out. > > Brad > > > -----Original Message----- > > From: Christopher A. Libby [mailto:clibby@mainepublicservice.com] > > Sent: Friday, March 23, 2001 7:22 AM > > To: web400@midrange.com > > Subject: Problems with Error 500 > > > > > > Hello all - I've been working on a couple sample RPG-CGI > > programs. I'm > > running into a problem with Internal Server Errors. I've run > > a debug on the > > program, and it seems to run correctly, but when it exits I > > get this web > > page: > > > > > > Error 500 > > Internal error: execve() failed. > > -------------------------------------------- > > IBM HTTP Server 1.0 > > > > Here is the source to the program (simple - reads POST data > > and writes it > > back out again): > > > > H DftActGrp(*NO) BndDir('WEBLIB/CGIBNDDIR') > > > **************************************************************** > > * WEBTEST3 - Reading POST data and writing it again > * > > > **************************************************************** > > D APIError DS > > D EBytesP 1 4B 0 INZ(40) > > D EBytesA 5 8B 0 > > D EMsgID 9 15 > > D EReserverd 16 16 > > D EData 17 56 > > * > > D HTTPHeader C > > CONST('Content-type: text/html') > > D NewLine C CONST(X'15') > > * > > D WrtDta S 1024 > > D WrtDtaLen S 9B 0 > > D* > > D RcvDta S 1024 > > D RcvDtaLn S 9B 0 INZ(1024) > > D RcvValLn S 9B 0 > > > **************************************************************** > > *Retrieve POST Data > > C Exsr GetPOSTData > > *Initialize Web Page > > C eval WrtDta = %trim(HTTPHeader) > > C EXSR $WrStout > > *Write Headings > > C eval WrtDta = '<html>' > > C EXSR $WrStout > > C eval WrtDta = '<head>' > > C EXSR $WrStout > > C eval WrtDta = '<title>This is > > what you wrote:' > > + > > C '</title>' > > C EXSR $WrStout > > C eval WrtDta = '</head>' > > C EXSR $WrStout > > C eval WrtDta = '<body>' > > C EXSR $WrStout > > C eval WrtDta = '<p>This is what > > you wrote:</p>' > > C EXSR $WrStout > > C eval WrtDta = '<hr>' > > C EXSR $WrStout > > C*Write Data Passes from caller > > C Eval WrtDta = %Trim(RcvDta) > > C*Write footers > > C > > C eval WrtDta = '<hr>' > > C EXSR $WrStout > > C eval WrtDta = '</body>' > > C EXSR $WrStout > > C eval WrtDta = '</html>' > > C EXSR $WrStout > > * > > C eval *INLR = *On > > C Return > > > **************************************************************** > > * Write to Standard Output > > > **************************************************************** > > C $WrStout BEGSR > > C > > C Eval WrtDta = WrtDta + NewLine > > * > > C ' ' CHECKR WrtDta:1024 WrtDtaLen > > * > > C CALLB 'QtmhWrStout' > > C PARM WrtDta > > C PARM WrtDtaLen > > C PARM APIError > > * > > C ENDSR > > > **************************************************************** > > * GetPOSTData Subroutine > > > **************************************************************** > > C GetPOSTData BEGSR > > * > > C CallB 'QtmhRdStin' > > C Parm RcvDta > > C Parm RcvDtaLn > > C Parm RcvValLn > > C Parm APIError > > * > > C ENDSR > > > > Any help at all would be appreciated. TIA! > > > > --------------------------------------------------------- > > Christopher A. Libby, Programmer/Analyst > > Maine Public Service Company (www.mainepublicservice.com) > > clibby@mainepublicservice.com (207) 768-5811 ext. 2210 > > > > > > > > > > Maine Public Service Company > > www.mainepublicservice.com > > > > > > +--- > > | This is the WEB400 Mailing List! > > | To submit a new message, send your mail to WEB400@midrange.com. > > | To subscribe to this list send email to WEB400-SUB@midrange.com. > > | To unsubscribe from this list send email to > > WEB400-UNSUB@midrange.com. > > | Questions should be directed to the list owner/operator: > > david@midrange.com > > +--- > > > +--- > | This is the WEB400 Mailing List! > | To submit a new message, send your mail to WEB400@midrange.com. > | To subscribe to this list send email to WEB400-SUB@midrange.com. > | To unsubscribe from this list send email to > WEB400-UNSUB@midrange.com. > | Questions should be directed to the list owner/operator: > david@midrange.com > +--- > > +--- > | This is the WEB400 Mailing List! > | To submit a new message, send your mail to WEB400@midrange.com. > | To subscribe to this list send email to WEB400-SUB@midrange.com. > | To unsubscribe from this list send email to > WEB400-UNSUB@midrange.com. > | Questions should be directed to the list owner/operator: > david@midrange.com > +--- > +--- | This is the WEB400 Mailing List! | To submit a new message, send your mail to WEB400@midrange.com. | To subscribe to this list send email to WEB400-SUB@midrange.com. | To unsubscribe from this list send email to WEB400-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
