Hello!
I have WindowsNT web serwer with recen perl 5.6 and _working_ version of
Win32::ASP from http://dichosoft.com/perl/. I'm trying to make my old
scripts work with this wersion of perl, but I have one problem.
I wrote some script to fetch data from sql table (column id is integer and
timestamp is dsatetime):
<%@ LANGUAGE = PerlScript %>
<%
use Win32::OLE;
use Win32::ASP;
$conn = Win32::OLE->new("ADODB.Connection");
$rs = Win32::OLE->new("ADODB.Recordset");
$conn->Open("DSN=datasource");
$query="select * from DBA.table order by id desc";
$rs = $conn->Execute($query);
if (!$rs) {
die "sql error";
}
$id = $rs->Fields('id')->value;
$ts= $rs->Fields('timestamp')->{Value};
print "id: $id <br>\n";
print "ts: $ts <br>\n";
if (defined $rs) {$rs->Close; }
if (defined $conn) {$conn->Close; }
%>
With older version (5.0x) of activeperl this script used to return something like this
//---
id: 12312
ts: 2000-01-01 16:24:30
\\---
but now result is different:
//---
id: 91978
ts: Win32::OLE::Variant=SCALAR(0x3a12514)
\\---
How can I get correct value?
--
* Tomek
(setq disclaimer 'standard e-mail 'tomek.se.com.pl
pgp-fp "53B8A68AD35A64AF A61DD53E9E5A1C0F")
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
