<%
' prepara e avvia la connessione
Dim myConn
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database/database.mdb") 
%>
<%
	' FUNZIONI COMUNI
	Function StringToDB(sTesto) 
		'Se non e' una stringa vuota ... 
		If Len(sTesto) > 0 Then
			sTesto = Replace(sTesto,"'","''")
			stesto = Replace(sTesto, "*", "[*]")
			stesto = Replace(sTesto, "%", "[%]")
		End If
		StringToDB = sTesto
	End Function
	
	Function NumberToDB(sNumero)
		NumberToDB = Replace(sNumero,",",".")
	End Function
	
	Function LongToData(days)
	  'Ricava la data sommando 'days' alla G_DATAINIZIALE
	  Dim date_ret
	  If days = 0 Then
		date_ret = Space(0)
	  Else
		date_ret = DateAdd("d", days, "01/01/2005")
	  End If
	  LongToData = Format(date_ret, "Short Date")
	End Function
	
	Function DataToLong(Data)
	  'Ritorna i giorni tra la data argomento e la data G_GATAINIZIALE
	  If Data = "" Then
		DataToLong = 0
	  Else
		DataToLong = DateDiff("d", "01/01/2005", Data)
	  End If
	End Function	
%>