ASP.NET

// This only works in .NET 4.0
dynamic result = new ExpandoObject();
IDictionary<string, object> resultData = (IDictionary<string, object>)result;

resultData.add("templateName", "tshirts");
var templateArray = new [] {
 new { Name = "Red", Code = "RED" },
 new { Name = "Green", Code = "GRN" },
 new { Name = "Blue", Code = "BLU" }
};

resultData.add("templateArray", templateArray);

string jsonString = JsonConvert.SerializeObject(result);

<WebMethod()> _
   Public Function create_DynamicCart_Template(
       ByVal template_Name As String,
       ByVal template_Array() As templateElements) As String

       Dim dwExitCode As Integer = 2 'An unknown error has occured
       Dim json_response As StringBuilder = New StringBuilder

       Try
           Dim bTemplates As Boolean = DoesFoldersExist("~/App_Data/Products/dynamicItems/templates")
           Dim bDisplay As Boolean = DoesFoldersExist("~/App_Data/Products/pageDisplay")

           'Create the First Record
           Dim new_Template As dynamicItem3.template = New dynamicItem3.template
           Dim new_Element1 As dynamicItem3.templateElement_1 = New dynamicItem3.templateElement_1

           new_Element1.Name = template_Array(0).Name
           new_Element1.suffix = template_Array(0).Code

           If (template_Array(0).Type.ToUpper = "SIMPLE") Then
               new_Element1.elementType = dynamicItem3.templateElement_1ElementType.Simple
           Else
               new_Element1.elementType = dynamicItem3.templateElement_1ElementType.Complex
           End If

           Dim new_Element1_Record() As dynamicItem3.templateElement_1 = {new_Element1}
           Dim new_Element1_Record_Count As Integer = 0

           'Now Build the rest of the records
           For i As Integer = 1 To template_Array.Length - 1
               'Build the XML Array from the JSON Array
               Array.Resize(new_Element1_Record, new_Element1_Record.Length + 1)
               new_Element1_Record(new_Element1_Record.Length - 1) = New dynamicItem3.templateElement_1
               new_Element1_Record(new_Element1_Record.Length - 1).Name = template_Array(i).Name
               new_Element1_Record(new_Element1_Record.Length - 1).suffix = template_Array(i).Code

               If (template_Array(i).Type.ToUpper = "SIMPLE") Then
                   new_Element1_Record(new_Element1_Record.Length - 1).elementType = dynamicItem3.templateElement_1ElementType.Simple
               Else
                   new_Element1_Record(new_Element1_Record.Length - 1).elementType = dynamicItem3.templateElement_1ElementType.Complex
               End If

               new_Element1_Record_Count += 1
           Next i

           'Package the Array into Pure Sweet XML, and write it to the Disk Drive
           Dim DataLocation As String = Nothing
           DataLocation = HttpContext.Current.Server.MapPath("~/App_Data/Products/dynamicItems/templates/" & template_Name & ".xml")

           Dim XmlResponse As New dynamicItem3.template
           XmlResponse.Version = "1.0"
           XmlResponse.CreationDate = DateTime.Now.ToString("yyyy-MM-dd")
           XmlResponse.templateName = template_Name
           XmlResponse.element_1 = new_Element1_Record

           'Now Lets Write out the file as a MemoryStream
           Dim serializer As XmlSerializer
           serializer = New XmlSerializer(GetType(dynamicItem3.template))

           'Now we have to write out a file for certification
           Dim response_serializer As XmlSerializer = Nothing
           response_serializer = New XmlSerializer(GetType(dynamicItem3.template))

           Dim Writer As StreamWriter = Nothing
           Writer = New StreamWriter(DataLocation)
           response_serializer.Serialize(Writer, XmlResponse)

           Writer.Close()
           Writer = Nothing

           response_serializer = Nothing
           serializer = Nothing
           XmlResponse = Nothing

           dwExitCode = 0

       Catch ex As Exception
           'An error occured building the XML - Send 1
           dwExitCode = 1

       End Try

       With json_response
           .Append("{")
           .Append(" ""template_ExitCode"" : " & dwExitCode.ToString & " ")
           .Append("}")
       End With

       Dim js_response As System.Web.Script.Serialization.JavaScriptSerializer = New System.Web.Script.Serialization.JavaScriptSerializer
       js_response.Serialize(json_response.ToString)
       js_response = Nothing

       Return json_response.ToString

   End Function

dcof wrote:

The code that calls the routine is the following

<%@ Page Language="vb" AutoEventWireup="false" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<script runat="server">
  Protected Sub btnTest_Click(sender As Object, e As System.EventArgs)
    Page.Response.Redirect("http://www.google.com/")
  End Sub
</script>

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title>Test Redirect</title>
</head>
<body>
    <form id="frmMain" runat="server">
      <asp:Button runat="server" ID="btnTest" Text="Redirect" onclick="btnTest_Click" />
    </form>
</body>
</html>

 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