Does anyone have an idea on this?
===
$dbh = Sybase::DBlib->dblogin($usr, $pwd, $server, 'cipro_2k');
$dbh -> dbcmd("select * from $table_name where userid = '$usr' ");
===
yields an error ::
===
[error] [asp] [15319] [error] Can't call method "dbcmd" on an undefined
value at session_query_parse.psp line 35. <--> ,
/usr/local/share/perl/5.6.1/Apache/ASP.pm line 1550
===
when I try to run it in an asp file
But I can connect to the db server fine when I write a stand alone
script?
What am I missing?
Any thoughts or ideas would be appreciated!
bigger code excerpt
=====
<%@ PerlScript %>
<%
use Sybase::DBlib;
use strict;
...
my vars...
...
$dbh = Sybase::DBlib->dblogin($usr, $pwd, $server, 'cipro_2k');
$dbh->dbcmd("select * from $table_name where userid = '$usr' ");
$dbh->dbsqlexec;
$dbh->dbresults;
while (@data = $dbh->dbnextrow)
{
$i = 1;
while ($i)
{
$stringb = $dbh -> dbcolname($i);
if (!$stringb) {last}
$data_hsh{$stringb} = $data[$i-1] unless (!$data[$i-1]);
$i++;
}
}
%>
<HTML>
<HEAD></HEAD>
<BODY>
<H1>Say Hello, Boys!</H1>
<% my @onehit = ("Bel", "Biv", "DeVoe"); %>
<P>
<%= $onehit[0] %> says "Hello."
<BR>
<%= $onehit[1] %> says "Hello."
<BR>
<%= $onehit[2] %> says "Hello."
<BR>
<% foreach $key (keys %data_hsh)
{ %>
<%= $data_hsh{$key}%> <BR>
<% } %>
</P>
</BODY>
</HTML>
=====
Thanks
Michael Witkowski
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
