This following code is similar to my 2 database programs that should be able to do
insert into Master ( Item, Value ) VALUES ( "Comment","This is my Comment");
BUT without even using the database the following code can read and print "insert VALUES " or "insert into" or "into VALUES "
but if I try "insert into VALUES" I get
"Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator, webmaster@susanscreations.co.nz and inform them of the time the error occurred, and anything you might have done that may have caused the error.
More information about this error may be available in the server error log.
Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request."
NOTE: This is NOT an SQL database error as this program does not use the above input. The 2 real programs will of cause execute the
SQL on line 2 untill now. Other database code in the real programs does execite OK.
CODE
#!/usr/bin/perl -wT
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
use lib 'Library';
use SusansCr; # This is a 3000 line library
my $Value; # This holds the value read in
my $Style;
my $Target = "SpecialTest.pl"; # This tell us to call this program on Submit
SusansCr->OpenDatabase; # This is not affected by Value
SusansCr->Startup("Logging"); # This is not affected by Value
$Value = param('Value'); # This reads value from the input parameters !!! <<<<<<<<<<<<<<<<<<<
print header(); # This is not affected by Value
print start_html(-title=>"Susans Creations Special test Program"); # This is not affected by Value
SusansCr->BuildPage("name='Test' action=\"$Target\"","","",
"Test : Susans Creations Special Test Program",$Style,"Admin"); # This is not affected by Value
print "<br>Value is : $Value"; # This prints value if we do not crash
print '<br><input type="submit" ALIGN="CENTER" Submit next Request value="Submit Request">'; # This is not affected by Value ??????????
print '<input type="text" ALIGN="CENTER" Name="Value" size="60%"> Your Value <br>'; # This creates value for the submit
SusansCr->EndPage; # This is not affected by Value
This post has been edited by EngineMan: 3 Oct, 2009 - 08:39 PM