<%@ Control Language="VB" ClassName="TipiSpedizione" %>


<script runat="server">
    
    Public Sub CaricaTipiSpedizione()
        
        Try
            Dim conn As New ClassConnessione
         
            If conn.VerificaConnessione(conn.ConnettiGenerale) = False Then conn.RichiamaConnGeneraliMySQL()

            Dim Es As Data.Odbc.OdbcDataReader
            Dim objCommand As New Data.Odbc.OdbcCommand(CStr("SELECT * FROM Spedizioni ORDER BY NomeServizio ASC;"), conn.ConnettiGenerale)
            Es = objCommand.ExecuteReader

              
            '+++ scrittura tabella.
            Response.Write("<table width='100%' class='TableBase' cellspacing='1' cellpadding ='0'>")
        
            Dim i As Integer
            i = 0
            While Es.Read
                'If i = 0 Then
                Response.Write("<tr>")
                'End If
                Response.Write("<td width='30%' align='center' valign='top' class='BGGrigino'>")
                Response.Write("<ucSplitTableBarra:SplitTableBarra ID='SplitTableBarra7' runat='server'>")
                Response.Write("<img id='imgFotoServizio' runat='server' src='" & ImgPath & "Spedizioni/" & Es("FotoLogo") & "'>")
                Response.Write("</td>")
                Response.Write("<td width='60%' valign='top' class='BGGrigino'>")
                Response.Write("<ucSplitTableBarra:SplitTableBarra ID='SplitTableBarra18' runat='server' />")
                Response.Write("<img src='" & ImgPath & "freccia.gif'/>")
                Response.Write("<font class='TestiVerdiMedi'>" & Resources.ResourceGenerali.lblSpedizioniServizioNome & "</font>")
                Response.Write("<font class='TestiRossiBIG'>" & UCase(Es("NomeServizio")) & "</font>")
                Response.Write("<br>")
                Response.Write("<img src='" & ImgPath & "freccia.gif'/>")
                Response.Write("<font class='TestiVerdiMedi'>" & Resources.ResourceGenerali.lblSpedizioniServizioDestinazioni & "</font>")
                Response.Write("<font class='TestiRossiMedi'>" & UCase(Es("Destinazioni")) & "</font>")
                Response.Write("<br><br>")
                Response.Write("<img src='" & ImgPath & "freccia.gif'/>")
                Response.Write("<font class='TestiVerdiMedi'>" & Resources.ResourceGenerali.lblSpedizioniServizioTempiConsegna & "</font>")
                Response.Write("<font class='TestiMedi'>" & Es("TempiConsegna") & "</font>")
                Response.Write("<br><br>")
                Response.Write("<img src='" & ImgPath & "freccia.gif'/>")
                Response.Write("<font class='TestiVerdiMedi'>" & Resources.ResourceGenerali.lblSpedizioniServizioDettaglio & "</font>")
                Response.Write("<font class='TestiMedi'>" & Es("DettaglioServizio") & "</font>")
                Response.Write("</td>")
                Response.Write("<td width='10%' align='center' valign='middle' class='BGviolino'>")
                Response.Write("<input type='radio' name='TipoSpedizioni' value='" & Es("ID") & "'")
                Response.Write("</td>")
                
            
                Response.Write("</TR>")
                i = i + 1
                '' ''If i = max Then
                '' ''    Response.Write("</tr>")
                '' ''    i = 0
                '' ''End If
            
            End While
        
            i = 0
        
            Response.Write("</table>")
        
            'chiusura connessione e oggetti dati e altro.       
            'Call Conn.ChiudiConnessione(Conn.ConnettiCatalogo)
            Es.Close()
            Es = Nothing
            objCommand.Dispose()
    
            
        Catch ex As Exception
            Dim clsGen As New ClassGenerali
            If ViewMsgDebug = True Then clsGen.MostraMessaggio(HttpContext.Current.Handler, Resources.ResourceMsg.Errore, ex.Message)

            'SEND MAIL CON ERRORE ESTESO
            Call clsGen.ScriviLog("includes/TipiSpedizione.aspx.vb.Page_Load", ex.Message)
            clsGen.SendMailProblemi(ex.Message & "<br><br>Errore in fase di Load dei tipi di spedizione")

            clsGen = Nothing
            
        End Try
        
    End Sub
    
    Public Sub UpdateSpeseSpedizione()
        
        MsgBox("CIAO")
        
    End Sub
    
    
    
</script>