Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not Session("photos") Is Nothing Then Dim obj As photos obj = CType(Session("photos"), tout.photos) Response.Write(obj.nom & " ") Response.Write(obj.commentaires & " ") Response.Write(obj.url & " ") Else Response.Write("ajout dans la variable session") Dim obj As New photos("Nom", "http://url", "Excellent") Session("photos") = obj End If End Sub Public Class photos Public nom As String Public url As String Public commentaires As String Public Sub New(ByVal lenom As String, ByVal laurl As String, ByVal lescommentaires As String) Me.nom = lenom Me.url = laurl Me.commentaires = lescommentaires End Sub End Class
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not Session("nom") Is Nothing Then Response.Write(Session("nom") & " ") Else Response.Write("ajout dans la variable session") If password = "pass" Then 'recherche dans la bdd Session("nom") = "Jesusonline" End If End If End Sub