$username="admin";
$pw="temppwd";

# connect to the named DSN, returns a database handle
$dbh=new Win32::ODBC("DSN=APS;UID=$username;PWD=$pw;");

die "Unable to connect to DSN PerlSysAdm:" . Win32::ODBC::Error(  ) . "\n" 
  unless (defined $dbh);

$selst = "select APSVehicles.*, DlrLogins.* FROM APSVehicles INNER JOIN DlrLogins ON APSVehicles.Dealer = DlrLogins.P1 or APSVehicles.Dealer = DlrLogins.P2 WHERE DlrLogins.UserID = '$AuthUser' ORDER by DLRID";

	print "<BR>$selst<BR>\n";

	$rc = $dbh->Sql($selst);
	die "Error: " . Win32::ODBC::Error(  ) . "\n";
	$results = $dbh->RowCount(  );

	$a = 1;
	$temp = 0;
	while ($dbh->FetchRow(  )) {
		push(@AutoActive,$dbh->Data("AutoActive"));
		push(@Tag,$dbh->Data("Tag"));
		push(@Dealer,$dbh->Data("Dealer"));
		push(@YrMade,$dbh->Data("YrMade"));
		push(@Make,$dbh->Data("Make"));
		push(@Model,$dbh->Data("Model"));
		push(@ExtCol,$dbh->Data("ExtCol"));
		push(@Price,$dbh->Data("Price"));
		push(@DateAdded,$dbh->Data("DateAdded"));
		push(@FinanceAvail,$dbh->Data("FinanceAvail"));
		$a = ++$a;
	}

	$dbh->DropCursor(  );
	$dbh->Close(  );