INSERT INTO T_Test (C_Data) VALUES ('data');
SELECT @@IDENTITY AS C_ID

##</code><code>##

#!perl

use Win32::ODBC;
my $db=new Win32::ODBC('DB_SERVER');

#$sql="INSERT INTO T_Test (C_Data) VALUES ('data');SELECT \@\@IDENTITY AS C_ID;";	#1

#$sql="INSERT INTO T_Test (C_Data) VALUES ('data');SELECT GETDATE() AS C_ID;";	#2
$sql="SELECT GETDATE() AS C_ID;SELECT DATEADD(day,-10,GETDATE()) AS C_ID";	#3
$db->Sql($sql);
$db->FetchRow();
print "1 : ".$db->Data("C_ID")."\n";
$db->MoreResults();
$db->FetchRow();
print "2 : ".$db->Data("C_ID")."\n";

##</code><code>##

#!perl

use Win32::ODBC;
my $db=new Win32::ODBC('DB_SERVER');

#$sql="INSERT INTO T_Test (C_Data) VALUES ('data');SELECT \@\@IDENTITY AS C_ID;";	#1

$sql="INSERT INTO T_Test (C_Data) VALUES ('data');SELECT GETDATE() AS C_ID;";	#2
#$sql="SELECT GETDATE() AS C_ID;SELECT DATEADD(day,-10,GETDATE()) AS C_ID";	#3
$db->Sql($sql);
$db->FetchRow();
print "1 : ".$db->Data("C_ID")."\n";
$db->MoreResults();
$db->FetchRow();
print "2 : ".$db->Data("C_ID")."\n";