--- index.cgi	2009/04/15 15:26:38	13
+++ index.cgi	2009/04/15 15:35:15	14
@@ -106,6 +106,14 @@
 
 print $sth->rows, qq| rows in $t s</code>|;
 
+#my @types = map { scalar $dbh->type_info($_)->{TYPE_NAME} } @{ $sth->{TYPE} };
+my $types = dump( $sth->{TYPE} );
+print qq{
+<script type="text/javascript">
+var column_type = $types ;
+</script>
+};
+
 @columns = @{ $sth->{NAME} } if $#columns == 0 && $columns[0] eq '*';
 
 print qq|<table id="results">|;