ASP.NET

 in javascript?

how would you wire up this feature to the web form page?

Private Sub ShowMessages(ByVal iParent As Integer, ByVal pContainer As Panel)

        Dim message(3) As String

        Dim myConnectionString As String
        myConnectionString = ice5commerce.common.iCE5IniFile.GetSQLConnString()

        Dim mySelectQuery As String = "SELECT * FROM fmsg WHERE msg_parent=@Parent"
        Dim myConnection As New SqlConnection(myConnectionString)
        Dim myCommand As New SqlCommand(mySelectQuery, myConnection)

        Dim paramParent As SqlParameter
        paramParent = New SqlParameter("@Parent", SqlDbType.Int)
        paramParent.Value = iParent
        myCommand.Parameters.Add(paramParent)

        Try
            myConnection.Open()
            Dim myReader As SqlDataReader = myCommand.ExecuteReader()
            While myReader.Read()
                message(0) = myReader.GetBoolean(0).ToString                       'mID
                message(1) = myReader.GetString(1).ToString                        'mObject
                message(2) = myReader.GetString(2).ToString                        'mBody

            End While

            myReader.Close()
            myConnection.Close()
            myReader = Nothing

        Catch ex As Exception

        End Try

        myCommand = Nothing
        myConnection = Nothing

        If (message.Length > 0) Then

            Dim table_Container As Table
            table_Container = New Table
            With table_Container
                .CellPadding = 0
                .CellSpacing = 0
                .Style.Add(HtmlTextWriterStyle.Width, "100%")
                .Attributes.Add("border", "0")
            End With
            pContainer.Controls.Add(table_Container)

            Dim tr_TitleRow As TableRow
            tr_TitleRow = New TableRow
            table_Container.Controls.Add(tr_TitleRow)

            Dim td_TitleRow_Left As TableCell
            td_TitleRow_Left = New TableCell
            With td_TitleRow_Left
                .RowSpan = 2
                .Style.Add(HtmlTextWriterStyle.Width, "25%")
            End With
            tr_TitleRow.Controls.Add(td_TitleRow_Left)

            Dim img_UserLevel As UI.WebControls.Image
            img_UserLevel = New UI.WebControls.Image
            With img_UserLevel
                .ImageUrl = "~/image/dot.gif"
            End With
            td_TitleRow_Left.Controls.Add(img_UserLevel)

            Dim td_TitleRow_Right As TableCell
            td_TitleRow_Right = New TableCell
            With td_TitleRow_Right
                .Style.Add(HtmlTextWriterStyle.Width, "25%")
            End With
            tr_TitleRow.Controls.Add(td_TitleRow_Right)

            Dim tr_MessageBody As TableRow
            tr_MessageBody = New TableRow
            table_Container.Controls.Add(tr_MessageBody)

            Dim td_MessageBody As TableCell
            td_MessageBody = New TableCell
            With td_MessageBody
                .CssClass = "child-body"
                .Text = message(3)
            End With
            tr_MessageBody.Controls.Add(td_MessageBody)

        Else
            'No record was found

        End If



    End Sub

Member 9325229 wrote:

content management system in asp.net

Bastard Programmer from Hell
if you can't read my code, try converting it here[^]