Dim myFile As HttpPostedFile
            myFile = FileUpload1.PostedFile
            Try
                Console.Write(Now)
                Using sr As New StreamReader(myFile.InputStream)
                    'Dim sr As New StreamReader(myFile.InputStream)
                    Dim line As String
                    Do
                        line = sr.ReadLine()
                        If Not (line Is Nothing) Then
                            codprov = CInt(line.Substring(0, 3)) : codcom = CInt(line.Substring(3, 3)) : codalb = CInt(line.Substring(6, 4))
                            codcat = CInt(line.Substring(10, 2)) : dataArrivo = CDate(line.Substring(12, 10))
                            If line.Substring(22, 10) = "0000/00/00" Then
                                partito = 0
                            Else
                                dataPartenza = CDate(line.Substring(22, 10))
                                partito = 1
                            End If
                            codnaz = CInt(line.Substring(32, 3)) : codprovMov = CInt(line.Substring(35, 3))
                            If line.Substring(38, 2) = "  " Then
                                codgruppo = 1
                            Else
                                codgruppo = CInt(line.Substring(38, 2))
                            End If
                            nschedina = line.Substring(40, 5) : camdisp = CInt(line.Substring(45, 5)) : camocc = CInt(line.Substring(50, 5))
                            Dim conString = ConfigurationManager.ConnectionStrings("DB_GESTIONE_ALBERGHI")
                            Dim strConnString As String = conString.ConnectionString
                            Using db As New SqlConnection(strConnString)
                                db.Open()
                                Using sqlcmd As New SqlCommand("Import_C59", db)
                                    sqlcmd.CommandType = CommandType.StoredProcedure
                                    contatore_righe += 1
                                    sqlcmd.Parameters.AddWithValue("@CodiceAlbergo", SqlDbType.Int).Value = codalb
                                    sqlcmd.Parameters.AddWithValue("@CodiceScheda", SqlDbType.Int).Value = contatore_righe
                                    sqlcmd.Parameters.AddWithValue("@DataArrivo", SqlDbType.Date).Value = dataArrivo
                                    sqlcmd.Parameters.AddWithValue("@DataPartenza", SqlDbType.Date).Value = dataPartenza
                                    sqlcmd.Parameters.AddWithValue("@CodiceNazione", SqlDbType.Int).Value = codnaz
                                    sqlcmd.Parameters.AddWithValue("@CodiceProvinciaMov", SqlDbType.Int).Value = codprovMov
                                    sqlcmd.Parameters.AddWithValue("@Partito", SqlDbType.Int).Value = partito
                                    sqlcmd.Parameters.AddWithValue("@CodiceGruppo", SqlDbType.Int).Value = codgruppo
                                    sqlcmd.Parameters.AddWithValue("@NumeroSchedina", SqlDbType.VarChar).Value = nschedina
                                    sqlcmd.ExecuteNonQuery()
                                End Using
                            End Using
                        End If
                    Loop Until line Is Nothing
                End Using
            Catch ex As SqlException
                prompt = New ImpromptuPrompt
                prompt.Options.Buttons.Add("Chiudi", "ok")
                prompt.Options.Top = 350
                prompt.Options.PromptSpeed = "slow"
                prompt.Options.Show = "show"
                prompt.Message = "Attenzione: " & Chr(10) & ex.Message
                ImpromptuHelper.ShowPrompt(prompt)
                Return
            Catch ex As Exception
                prompt = New ImpromptuPrompt
                prompt.Options.Buttons.Add("Chiudi", "ok")
                prompt.Options.Top = 350
                prompt.Options.PromptSpeed = "slow"
                prompt.Options.Show = "show"
                prompt.Message = "Attenzione: " & Chr(10) & ex.Message
                ImpromptuHelper.ShowPrompt(prompt)
                Return
            Finally
                prompt = New ImpromptuPrompt
                prompt.Options.Buttons.Add("Chiudi", "ok")
                prompt.Options.Top = 350
                prompt.Options.PromptSpeed = "slow"
                prompt.Options.Show = "show"
                prompt.Message = "<p>Importazione file avvenuta con successo</p>"
                ImpromptuHelper.ShowPrompt(prompt)
                Console.Write(Now)
            End Try
        End If