DBD-ODBC
1 match

 view release on metacpan or  search on metacpan

examples/money_test.cgi  view on Meta::CPAN 



my $action=param('ACTION') || '';
if ($action=~/[^\w]/) { die "bad chars in parameter!" }

if	($action eq 'SAVE_PROV')	{&save_prov;}
else 					{&prov;}


sub prov {
	print "content-type: text/html\n\n";

	print "<Html><Head><Title>Title</Title></Head>\n";
	print "<BODY><CENTER><BR><BR>\n\n\n";
	print "<FORM NAME=A ACTION=money_test.cgi METHOD=POST><INPUT TYPE=HIDDEN NAME=ACTION VALUE=SAVE_PROV><TABLE BORDER=0 BGCOLOR=#DDDDDD>\n";
	print "<TR><TD><B>&nbsp;Text&nbsp;</B></TD><TD><B>&nbsp;Level1&nbsp;</B></TD><TD><B>&nbsp;Level2&nbsp;</B></TD><TD>&nbsp;</TD></TR>\n";

	# MsSQL
	my $sth0 = $dbh->prepare("
				SELECT 
					ISNULL(TypeName,'') AS TypeName,



( run in 1.988 second using v1.01-cache-2.11-cpan-524268b4103 )