J'ai fait une traduction en VB.net mais il me trouve paque le 08/04/2007 au lieu du 09/04/2007. Ce qui me décale tout le reste...
Vous voyer d'ou ça peut venir ?

Public Function IsWorkingDay(ByVal dtDate As DateTime) As Boolean
        Dim bolWorkingDay As Boolean = True
        Dim arrDateFerie As Array
        arrDateFerie = Array.CreateInstance(GetType(DateTime), 8)
        ' 01 Janvier
        arrDateFerie.SetValue(New DateTime(dtDate.Year, 1, 1), 0)
        ' 01 Mai
        arrDateFerie.SetValue(New DateTime(dtDate.Year, 5, 1), 1)
        ' 08 Mai
        arrDateFerie.SetValue(New DateTime(dtDate.Year, 5, 8), 2)
        ' 14 Juillet
        arrDateFerie.SetValue(New DateTime(dtDate.Year, 7, 14), 3)
        ' 15 Aout
        arrDateFerie.SetValue(New DateTime(dtDate.Year, 8, 15), 4)
        ' 01 Novembre
        arrDateFerie.SetValue(New DateTime(dtDate.Year, 11, 1), 5)
        ' 11 Novembre
        arrDateFerie.SetValue(New DateTime(dtDate.Year, 11, 11), 6)
        ' Noël
        arrDateFerie.SetValue(New DateTime(dtDate.Year, 12, 25), 7)

        ' Dimanche ou jour férié
        If (dtDate.DayOfWeek = DayOfWeek.Sunday) Or Array.BinarySearch(arrDateFerie, dtDate) >= 0 Then bolWorkingDay = False

        If bolWorkingDay Then
            ' Calcul du jour de pâques (algorithme de Oudin (1940))
            'Calcul du nombre d'or - 1
            Dim intGoldNumber As Integer = CInt(dtDate.Year Mod 19)
            ' Année divisé par cent
            Dim intAnneeDiv100 As Integer = CInt(dtDate.Year / 100)
            ' intEpacte est = 23 - Epacte (modulo 30)
            Dim intEpacte = CInt((intAnneeDiv100 - intAnneeDiv100 / 4 - (8 * intAnneeDiv100 + 13) / 25 + (19 * intGoldNumber) + 15) Mod 30)
            'Le nombre de jours à partir du 21 mars pour atteindre la pleine lune Pascale
            Dim intDaysEquinoxeToMoonFull As Integer = CInt((intEpacte - (intEpacte / 28) * (1 - (intEpacte / 28) * (29 / (intEpacte + 1)) * ((21 - intGoldNumber) / 11))))
            'Jour de la semaine pour la pleine lune Pascale (0=dimanche)
            Dim intWeekDayMoonFull As Integer = CInt(((dtDate.Year + dtDate.Year / 4 + intDaysEquinoxeToMoonFull + 2 - intAnneeDiv100 + intAnneeDiv100 / 4) Mod 7))
            ' Nombre de jours du 21 mars jusqu'au dimanche de ou
            ' avant la pleine lune Pascale (un nombre entre -6 et 28)
            Dim intDaysEquinoxeBeforeFullMoon As Integer = intDaysEquinoxeToMoonFull - intWeekDayMoonFull
            ' mois de pâques
            Dim intMonthPaques As Integer = CInt(3 + (intDaysEquinoxeBeforeFullMoon + 40) / 44)
            ' jour de pâques
            Dim intDayPaques As Integer = CInt(intDaysEquinoxeBeforeFullMoon + 28 - 31 * (intMonthPaques / 4))
            ' lundi de pâques
            Dim dtMondayPaques As DateTime = New DateTime(dtDate.Year, intMonthPaques, intDayPaques + 1)
            ' Ascension
            Dim dtAscension As DateTime = dtMondayPaques.AddDays(38)
            'Pentecote
            Dim dtMondayPentecote As DateTime = dtMondayPaques.AddDays(49)
            If (DateTime.Compare(dtMondayPaques, dtDate) = 0) Or (DateTime.Compare(dtAscension, dtDate) = 0) Or (DateTime.Compare(dtMondayPentecote, dtDate) = 0) Then
                bolWorkingDay = False
            Else
                bolWorkingDay = True
            End If

        End If

        Return bolWorkingDay

    End Function

Essaye avec selectedValue et adapte ton code ?
Bon courage.

Comment envoi t on le guid dans le lien ?
C'est assez complexe pour un petit commentaire je pense ?
Merci pour la source !
En VB :
Imports System
Imports System.Data
Imports System.Configuration
Imports System.Collections
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls

Partial Class authentification_validate
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim queryGuid As String
        'on verifie qu'un guid est donné en parametre
        If IsNothing(Request.QueryString("guid")) Then
            queryGuid = Request.QueryString("guid")
            Dim gu As New Guid(queryGuid)
            'on récupére le membershipUser correspondant au guid
            Dim User As MembershipUser
            User = Membership.GetUser(gu)

            If IsNothing(User) Then
                User.IsApproved = True
                Membership.UpdateUser(User)
                'on active le compte utilisateur et on met à jour
                lblMess.Text = "Votre compte est désormais actif."
            Else
                lblMess.Text = "L'utilisateur n'éxiste pas ou a été supprimé. <br /> Vous devez créer un compte à nouveau."

            End If
        End If

    End Sub

    Protected Sub btnContinuer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnContinuer.Click

        Response.Redirect("~/authentification/Login.aspx")

    End Sub


End Class

Serait il possible d'avoir ton interface html avec stp ?

Excusez moi d'avoir manquer de clarté. Je souhaitais simplement ajouter une valeur par défaut qui n'est pas dans ma base à la liste et non séléctionner une valeur par par défaut qui est déjà dans ma base...
Quel est la différence avec un DDL.selectedValue=MaValeur avec une valeur par défaut si ma valeur n'éxiste pas ?

il faut également faire un imports de : System.Data.Odbc
Imports System.Data.Odbc

Qu'est ce que MyODBCReader ?
Tu ne l'a pas déclaré ...

N'est il pas possible de ne pas toucher aux informations de la base et d'ajouter une valeur dans la liste seulement dans l'interface grace à du code ?
Plus propre non ?
Merci pour ce petit tricks.

Bonjour,
Je suis actuellement en train d'intégrer un site en aspx 2.0 et j'utilise un masterpage. Je me permet d'intervenir sur ce topic car je souhaiterais savoir s'il est possible d'utiliser ce systeme de templates avec des pages en asp 3.0.
Par avance merci pour votre réponse