#!/usr/local/bin/perl
use warnings;
use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft ActiveX Data Objects';

my $objConn = Win32::OLE->new("ADODB.Connection");
my $objCommand = Win32::OLE->new("ADODB.Command");
my $objRecordSet = Win32::OLE->new("ADODB.Recordset");
$objConn->Open("Driver={Webtrends ODBC Driver};Server=sdfhadgdjlah;Port=7099;Database=flrdacbkoji;Uid=adkljd;Pwd=fadadk;lmam;AccountId=1;Language=english;ProfileGuid=KlDwrNbKgm6;SSL=0;");
$objCommand->{"ActiveConnection"} = $objConn;
$objCommand->{"CommandText"} = "SELECT * FROM Pages WHERE Titles <> '' AND URLs IS NOT NULL AND Titles NOT LIKE '%404 Error Page%' AND Titles NOT LIKE '%302 Found' AND URLs <> 'http://powerhousetv.com/' AND URLs <> 'http://domain.com/index.htm' AND URLs <> 'http://domain.com/wcm/idcplg/' ORDER BY Visits DESC";
$objRecordSet->{"CursorLocation"} = 3; #adUseClient
$objRecordSet->{"CursorType"} = 0;     #adOpenForwardOnly
$objRecordSet->{"LockType"} = 1;       #adLockReadOnly;

$objRecordSet = $objCommand->Execute();

open OUT, ">output.txt";

while (!$objRecordSet->EOF)
{
      print OUT $objRecordSet->Fields("Titles")->value, ", ";
      print OUT $objRecordSet->Fields("URLs")->value, ", ";
      print OUT $objRecordSet->Fields("Visits")->value, ", ";
      print OUT $objRecordSet->Fields("Views")->value, "\n";
      $objRecordSet->MoveNext();
}