sub sql_escape 
{
	my $text = shift;
	$text =~ s/'/\'/g;
	$text =~ s/"/\"/g;
	$text =~ s/\\/\\\\/g;
	return $text;
}

##</code><code>##

sub sql_escape 
{
	my $text = shift;
	$text =~ s/'/\\'/g;
	$text =~ s/"/\\"/g;
	$text =~ s/\\/\\\\/g;
	return $text;
}