use WIN32::ASP;

$sqlStatement = "";

If (GetFormValue('SearchText') ne "")
{ 
	my $conj;
	my $query=GetFormValue('SearchText');

	$query=~s/([\(\)])/ $1 /g;
	$query=~tr/A-Z/a-z/;
	$query=~tr/a-z0-9() //cd;
	$query=~tr/ / /s;
	$query=~s/^ //;
	$query=~s/ $//;
	
	foreach $word (split(/ /,$query))
	{
		if ($word=~/^(and|or|not|\(|\))$/)
		{
			$word=~tr/a-z/A-Z/;
			$sqlStatement.=" AND" if (($word eq "NOT") && ($preWord!=~/^and|or$/i));
			$sqlStatement.=" $word";
			$conj=$word;
		}
		else
		{
			$sqlStatement.=" AND" unless ($conj || !$sqlStatement);
			$sqlStatement.=" keywords LIKE '%$word%'";
			$conj="";
		}
		
		$prevWord=$word;
	}
}

$sqlStatement="WHERE $sqlStatement" if $sqlStatement;

$Response->Redirect("search2.asp?searchtext=$sqlStatement");

%>