Sub Conferma()
		x=MsgBox("Confermi l'operazione?",260)
		If x=vbNo Then
			window.event.returnValue=false
		End If
	End Sub

	Sub ConfermaCC()
		x=MsgBox("Confermi l'operazione ? Cliccando su ""Sì"", esprimerai la tua piena volontà di procedere al pagamento con CARTA DI CREDITO/PAGOBANCOMAT",260)
		If x=vbNo Then
			window.event.returnValue=false
		End If
	End Sub

	Sub ConfermaCCENG()
		x=MsgBox("Do you confirm this operation ? Clicking ""Sì"" (yes), you express your own will to pay by CREDIT CARD/PAGOBANCOMAT",260)
		If x=vbNo Then
			window.event.returnValue=false
		End If
	End Sub

	
	Function IsMail(sEmail) 
		Dim objRegExp
		Set objRegExp = New RegExp
		objRegExp.Pattern = "^[a-z0-9._-]+\@[a-z0-9._-]+\.[a-z]{2,4}$"
		objRegExp.IgnoreCase = True 
		IsMail = objRegExp.Test(sEmail)
		If Not IsMail Then
			MsgBox "e-mail non valida",48
			window.event.returnvalue=false
		End If
	End Function 	



	Sub ConfermaPren()
		If Not FrontPage_Form1.Privacy.checked then
			MsgBox "E' necessario acconsentire al trattamento dei dati per proseguire",48
			window.event.returnValue=false
			Exit Sub
		End If
		x=MsgBox("Confermi i dati per la prenotazione?" & vbNewLine & vbNewLine & "NB. Se i dati risulteranno corretti e " & vbNewLine & "       la disponibilità di alloggi è sufficiente " & vbNewLine & "       la prenotazione si riterrà confermata e " & vbNewLine & "       si dovrà procedere al pagamento.",260)
		If x=vbNo Then
			window.event.returnValue=false
		End If
	End Sub

	Sub ConfermaPrenENG()
		If Not FrontPage_Form1.Privacy.checked then
			MsgBox "E' necessario acconsentire al trattamento dei dati per proseguire",48
			window.event.returnValue=false
			Exit Sub
		End If
		x=MsgBox("Do you confirm all reservation data ?" & vbNewLine & vbNewLine & "NB. If all information are correct and " & vbNewLine & "       there are apartments available, the " & vbNewLine & "       booking will be accepted and you " & vbNewLine & "       will have to provide for payment.",260)
		If x=vbNo Then
			window.event.returnValue=false
		End If
	End Sub

	Sub ConfermaDel()
		x=MsgBox("La richiesta verrà eliminata " & vbNewLine & " e non potrà più essere recuperata." & vbNewLine & vbNewLine & "Confermi l'eliminazione?",260)
		If x=vbNo Then
			window.event.returnValue=false
		End If
	End Sub