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