ASP.NET

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[^]

TextBoxCode.TextChanged += new EventHandler(TextBoxCode_TextChanged);   

void TextBoxcode_TextChanged(object sender, EventArgs e)
        {

            if (TextBoxCode.Text == "")
            {
                ButtonPending.Visible = true;
                            }
            else
            {
                ButtonPending.Visible = false;

                if (TextBoxCode.Text == "999")
                
                    {
                     //Would like hyerlink here instead of response.direct
                     // since do not need to go to server here
                        Response.Redirect("~/Reason.aspx");
                      
                    }
               
        }

function process_textbox() {

  var txtValue = $('[id*="_txtBox"]').val();
  var txtValue_Len = $('[id*="_txtBox"]').val().length;

if (txtValueLen > 0) {
  
var newUrl = "newPage.aspx?id=" + escape(txtValue)";
  window.location.replace(newUrl); 
}

}

$(document).ready(function () {
    initializeBinding();
    Sys.WebForms.PageRequestManager.getInstance().add_endRequest(EndRequestHandler);

});

function EndRequestHandler(sender, args) {

    initializeBinding();

}

function initializeBinding() {
    $(document).ajaxStart(function () {
        // Progress start
    });

    $(document).ajaxStop(function () {
       // progress stop 
    });
    
    // Validate the Part Number // Bind Something
    $('[id*="_txt_ProductEditor_Basic_PartNumber"]').blur(function () {
        check_PartNumber();
        return false;
    });
}

function check_PartNumber() {

    // Make sure we have a new product item by checking for a product id code
    m_ProductID_Length = $('[id*="_txt_ProductID"]').val().length;

}