CHANGE:
@dsns = DBI->data_sources($drivers[0]) or print "\t-No DSN available\n";
TO:
@dsns = DBI->data_sources($driver) or print "\t-No DSN available\n";
-----Original Message-----
From: Juan Antonio Celaya Guzman [mailto:[EMAIL PROTECTED]]
Sent: Monday, April 09, 2001 1:36 PM
Subject: MSAccess DB Problem
I have a problem trying to get my perl script working. I remember when I
installed
the Activestate implementation I did a test for DB Accessing and it worked
fine
but then I change to another implementation which one comes with an Apache
Web Server so I decided to switch -I am talking about Indigostar -, the
server
worked fine, the cgis worked fine but when DB Accessing comes I can not
figured
out what is going on.
I am using the DBI interface provided with the implementation please see the
script below.
#!perl -w
use DBI;
use CGI;
# EXPLICIT VARIABLE DECLARE FOLLOWS
my @drivers;
my $driver;
my @dsns;
my $dsn;
my $q;
$q = new CGI;
print $q->header;
print $q->start_html("Conectividad");
@drivers = DBI->available_drivers;
print "\n\n";
foreach $driver (@drivers){
print "$driver\n";
@dsns = DBI->data_sources($drivers[0]) or print "\t-No DSN available\n";
foreach $dsn (@dsns){
print "\t-$dsn\n";
};
};
print "\nAplicacion de acceso a la Base de Datos de Conectividad";
print $q->end_html;
there is nothing fancy just trying to see what DSN do I have access, well it
happens I
setup a DSN previously called Test which one is pointing to my Access DB,
but whenever
I run the script I got the following:
Content-Type: text/html
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML><HEAD><TITLE>Conectividad</TITLE>
</HEAD><BODY>
ADO
-No DSN available
ExampleP
-No DSN available
Proxy
-No DSN available
mysql
-No DSN available
Aplicacion de acceso a la Base de Datos de Conectividad</BODY></HTML>
Sorry I a sent you such a huge email, I am not even registered in your email
List, but I want you to have the whole picture.
Could you please register me, My name is Juan Antonio Celaya, I am from
Mexico.
