#!/usr/bin/perl
use CGI qw/:standard/;
use strict;
use Win32::ODBC;

my $db = new Win32::ODBC("DSN=portal-mk2");

my $DSN = "portal-mk2";
if (!($db = new Win32::ODBC($DSN))){
    print "Error connecting to $DSN\n";
    print "Error: " . Win32::ODBC::Error() . "\n";
    exit;
}

my $SqlStatement = "SELECT Id, StudFirstName, StudLastName, HomeGroup  FROM dbo.StudDetails";
if ($db->Sql($SqlStatement)){
    print "SQL failed.\n";
    print "Error: " . $db->Error() . "\n";
    $db->Close();
    exit;
}

##</code><code>##

use CGI qw/:standard :html3 :netscape/;
use Win32::ODBC;

# Unpack parameters from form

$cmd=param('cmd');		#Command to processs
$DSN=param('DSN');		#Selected DSN
$table=param('table');		#Selected table from DSN
@cols=param('cols');		#Selected columns from table
$sort=param('sort');		#Column to sort on
$rows=param('rows');		#Max number of rows

# Off we go...
# If no command or DSN then get user to select one.

if ($cmd eq '' || $DSN eq ''){
  %DSN=Win32::ODBC::DataSources;	#Get list of datasources
  @keys=sort(keys(%DSN));		#put list of DSNs into array
  &screen_header;			#Start HTML response
  print start_form,
    hidden(-name=>'cmd',-value=>'table',-force=>1),
    table(
      Tr([
        td(['Data Source: ',
           popup_menu(-name=>'DSN',-value=>\@keys)."&nbsp&nbsp&nbsp".submit(-name=>'GO')])
      ])
    ),
  end_form,
  hr,	  
  end_html;
  exit(0);
}

# If no table selected then get table name

  if ($cmd eq 'table' || $table eq ''){
  $db=new Win32::ODBC($DSN);
  #create new instance
  if (! $db){
   perror("Error opening data source $DSN");
    exit(0);
  }
  @tables=$db->TableList("","","","TABLE"); #Get list of tables