paulo.difficiliora - un po' più difficile ?

-------------------------------------------- Option Explicit response.buffer = True %> ADD REMOVE ITEM FROM SESSION ARRAY DATA ' Recupero parametri Dim txtAction Dim txtCognome Dim txtNome Dim txtLuogo Dim txtData Dim txtPaternita Dim txtSesso Dim strFilePath Dim txtFull Dim txtIndex If IsArray(Session("arrayCasellario")) Then arrayCasellario = Session("arrayCasellario") arrayCasellarioIndex = Session("arrayCasellarioIndex") Else Dim arrayCasellario( ) ' ReDim arrayCasellario(100) ' an arbitrary initial size Dim arrayCasellarioIndex arrayCasellarioIndex = -1 ' no elements used yet... End if Randomize() strFilePath = "./casellario.txt" txtAction = Trim(Request("txtAction")) if txtAction = "AGGIUNGI" Then txtCognome = Ucase(Trim(Request("txtCognome"))) txtNome = Ucase(Trim(Request("txtNome"))) txtLuogo = Ucase(Trim(Request("txtLuogo"))) txtD...