ASP.NET

<asp:TextBox ID="TextBoxCause" runat="server" width="260" TextMode="MultiLine" Rows="10" />

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

    Dim dwExitCode As Integer = 2
    Dim json_response As StringBuilder = New StringBuilder
    Dim html_Stream As String = Nothing

    Try

        Dim jss As JavaScriptSerializer = New JavaScriptSerializer()
        Dim elements = jss.Deserialize(Of List(Of templateElements))(template_Array.ToString)

Public Class templateElements

    Private privateName As String
    Public Property Name() As String
        Get
            Return privateName
        End Get
        Set(ByVal value As String)
            privateName = value
        End Set
    End Property
    Private privateCode As String
    Public Property Code() As String
        Get
            Return privateCode
        End Get
        Set(ByVal value As String)
            privateCode = value
        End Set
    End Property

End Class

// 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?