<snip>

>     $sql->execute($userP)
>             or warn "Can't execute select " . $sql->errstr;
>     $userD = $sql->fetchrow_array();

instead, try this instead:
      while (my @row = $sql->fetchrow_array()) {
           print join("\t", @row), "\n";
           }

>     if($userD eq "") {
>         print OUT "UserP:$userP - UserD:$userD\n";
>     }
>     $sql->finish;

You probably don't need the finish here, btw.

> }
> close(OUT);
> close(IN);
> </snip>
> 
> Thanks,
> --
> Rob
> 
> 



Reply via email to