perl-asp mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Mike Witkowski <witko...@calvin.gsfc.nasa.gov>
Subject asp && DBlib
Date Wed, 13 Mar 2002 20:32:58 GMT
 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: asp-unsubscribe@perl.apache.org
For additional commands, e-mail: asp-help@perl.apache.org


Mime
View raw message