[سعود]

اخوي ابو رايد بعد التعب والعناء والمشقة لم افلح لم يظهر خطا وانما لم يتحق الشرط مع انه متحقق

هذا كامل الكود في عنصر التحكم

كود :

If Session("name") = "" Then
            Image1.Visible = False
        Else
            Image1.Visible = True
            Dim tblasttime As DateTime
            Dim thtime As DateTime

            If mtime.Visible = True Then
                Dim cm As New SqlCommand("", con)
                cm.CommandText = "select tname,lasttime from tbs where tname=@tname"
                cm.Parameters.AddWithValue("@tname", Session("name"))

                If con.State = Data.ConnectionState.Closed Then
                    con.Open()
                End If
                Dim dr As SqlDataReader = cm.ExecuteReader
                If dr.Read Then
                    tblasttime = CDate(dr.Item("lasttime"))
                End If

                dr.Close()
                cm.Parameters.Clear()
                cm.CommandText = "select mformid,mtime from modo3 where mformid=@mformid"
                cm.Parameters.AddWithValue("@mformid", Val(tid.Text))

                If con.State = Data.ConnectionState.Closed Then
                    con.Open()
                End If


                Dim thr As SqlDataReader = cm.ExecuteReader
                If thr.Read Then
                    thtime = CDate(thr.Item("mtime"))
                End If

                If thtime > tblasttime Then
                    Image1.ImageUrl = "~/mgs/on.png"
                Else
                    Image1.ImageUrl = "~/mgs/off.png"
                End If





            Else
                Image1.ImageUrl = "~/mgs/off.png"
            End If






        End If

مالمطلوب تعديله