VB.NET | C# | ASP.NET | Source Code | Visual Studio

We put our trust in McAfee
You should, too

Questions? (602) 490-0243

Products
- Ecommerce Solution + MultiChannel Integration Powerful ecommerce software + integrated multichannel platform feeds products to Google Shopping, Amazon & More!
- Ecommerce Solution Powerful ecommerce software you can customize to fit specific business needs.
- AspDotNetStorefront - MultiStore MSx Features Source Code
- Channel Manager (DotFeed) Integrated Channel Manager About DotFeed Channels Discovery Channels (MiniSites) DotFeed Support Central
- More Stores › Store Add-Ons › License Resellers ›
Hosting
Resources
Community
About Us

SAMPLE VB.NET CODE FRAGMENTS

-- example class routine to build up part of the Yahoo! Site Map
        Public Function GetEntityYahooSiteMap(ByVal ForParentEntityID As Integer, ByVal LocaleSetting As String,
        ByVal AllowCaching As Boolean, ByVal RecurseChildren As Boolean) As String
        -- check for prebuilt cache hit:
        Dim CacheName As String = String.Format("GetEntityYahooSiteMap_{0}_{1}_{2}_{3}", m_EntitySpecs.m_EntityName, ForParentEntityID.ToString, LocaleSetting, RecurseChildren.ToString)
        Dim CachingOn As Boolean = AllowCaching AndAlso AppLogic.CachingOn AndAlso Not (m_CacheMinutes = 0) AndAlso Not (ForParentEntityID = 0)
        If CachingOn Then
        Dim Menu As String = CType(HttpContext.Current.Cache.Get(CacheName), String)
        If Not (Menu Is Nothing) Then
        Return Menu
        End If
        End If
        Dim StoreLoc As String = AppLogic.GetStoreHTTPLocation(False)
        Dim tmpS As StringWriter = New StringWriter
        Dim XslFile As String = "EntityYahooSiteMap"
        Dim xForm As XslTransform = New XslTransform
        xForm.Load(Common.SafeMapPath("EntityHelper/" + XslFile + ".xslt"))
        Dim xslArgs As XsltArgumentList = New XsltArgumentList
        xslArgs.AddParam("entity", "", m_EntitySpecs.m_EntityName)
        xslArgs.AddParam("ForParentEntityID", "", ForParentEntityID)
        xslArgs.AddParam("StoreLoc", "", StoreLoc)
        xForm.Transform(m_TblMgr.XmlDoc, xslArgs, tmpS, Nothing)
        If AppLogic.AppConfigBool("Xml.DumpTransform") Then
        Try
        Dim sw As StreamWriter = File.CreateText(Common.SafeMapPath(String.Format("{0}images/{1}_{2}_{3}.xfrm.xml", Common.IIF(AppLogic.IsAdminSite, "../", ""), XslFile, m_EntitySpecs.m_EntityName, Common.IIF(AppLogic.IsAdminSite, "admin", "store"))))
        sw.WriteLine(XmlCommon.PrettyPrintXml(tmpS.ToString))
        sw.Close
        Catch
        End Try
        End If
        If CachingOn Then
        HttpContext.Current.Cache.Insert(CacheName, tmpS.ToString, Nothing, System.DateTime.Now.AddMinutes(AppLogic.CacheDurationMinutes), TimeSpan.Zero)
        End If
        Return tmpS.ToString
        End Function

NOTE: VB.NET source only available with ML, ML/64, and Multistore versions purchased with optional full source.

MultiChannel Selling

About Us

Community

Customer Service