Populate Select from Database

Bhargav Coca

I am on ts 6.7.1 on win 2003 sp1.
i am trying to do the age old select box populate from a database, i have set up my ODBC connection, but for some reason it throws me this error, can anyone please advice as why it is doing so.

Thanks

#!iwgethome/iw-perl/bin/iwperl

use TeamSite::Config;
use CGI;
use DBI;
$ENV{TEMP} = 'C:\temp';
$ENV{SYSTEMROOT} = 'C:\winnt';# or whatever it is on your box
my $dbh = DBI->connect('dbiDBC:MYNEC', 'necweb', 'gjag12mt' ) or
die "Unable to connect: " . $DBI::errstr . "\n"; 
# OK, connected, now select from Customers table. 

my $sel = $dbh->prepare( "SELECT Title,DocumentId FROM DocLib_Documents BY Title asc; " ); 
$sel->execute(); 
my @id;
my @name;
print "\n";
print "\n";
while(my @row = $sel -> fetchrow_array()){
 if($row[0]=~m/\&/)
 {
  $row[0] =~s/\&/\&/;
 }
 push (@name, $row[0]);
 push (@id, $row[1]);
 print "\n" ;
}
print "\n";


---Error--

DBI connect('MYNEC','necweb',...) failed: [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified (SQL-IM002)(DBD: db_login/SQLConnect err=-1) at C:\Interwoven\TeamSite\iw-perl\bin\Populate1.ipl line 8 Unable to connect: [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified (SQL-IM002)(DBD: db_login/SQLConnect err=-1) 

Bhargav Coca

the code runs perfectly fine when excuted form commandline. It doesn't populate the select box on the DCT though..


Here is the DCT snippet.

[html]

Documents
Please choose the Document






[/html]