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