<%
Function InserisciBR ( testo )
   LF = chr(10)
   BR = "<br>"
   if len(testo) > 1 then 
     InserisciBR = Replace( testo, LF, BR )
   else
     InserisciBR = testo
   end if
End function

Function Testo_Data_Esteso(sTesto)
    if Mid(sTesto, 1, 1) = "0" then
	    sGiorno = Mid(sTesto, 2, 1)
	else
	    sGiorno = Mid(sTesto, 1, 2)		
	end if
	sMese = Mid(sTesto, 4, 2)
    sAnno = Mid(sTesto, 7, 4)
    Select Case sMese
        Case "01": nomeMese = "gennaio"
        Case "02": nomeMese = "febbraio"
        Case "03": nomeMese = "marzo"
        Case "04": nomeMese = "aprile"
        Case "05": nomeMese = "maggio"
        Case "06": nomeMese = "giugno"
        Case "07": nomeMese = "luglio"
        Case "08": nomeMese = "agosto"
        Case "09": nomeMese = "settembre"
        Case "10": nomeMese = "ottobre"
        Case "11": nomeMese = "novembre"
        Case "12": nomeMese = "dicembre"
    End Select	
    Testo_Data_Esteso = sGiorno & " " & nomeMese & " " & sAnno
End Function

Rem *******************************************
Rem COSTANTI
Rem *******************************************

Percorso_Log = "d:\www\www.scuolaimpresa.com\prenotazioni\"

colonne_posti = 20
%>