Category Archives: Ektron

Dim capi2 AS New API.Content.Content         Dim XMLID AS Integer = 278         Dim folderID AS Integer = 71697         capi2.AddContent(txtJobTitle.Text, "hello", "<root><JobTitle>" & txtJobTitle.Text & "</JobTitle></root>", "hello", "1033", "", folderID, … Continue reading →

Dim libraryApi As New API.Library() ‘API.Library libraryApi = new API.Library(); Dim data() As LibraryData Dim totalPages As Integer Try data = libraryApi.GetAllChildLibItems("quicklinks", [id], "", 0, 0, totalPages) If ((data IsNot Nothing)) AndAlso (data.Length &gt; 0) Then ‘Dim item As LibraryData … Continue reading →

‘ Dim myFile2 = FileName.Text.ToLower Dim myFile As HttpPostedFile = DMSfile.PostedFile ‘add myDMSAssets as folder in site root directory DMSfile.PostedFile.SaveAs(Server.MapPath("~/path/") &amp; myFile.FileName) Dim fs As New System.IO.FileStream(Server.MapPath("~/path/" &amp; myFile.FileName), IO.FileMode.Open) Dim UpdateFile As New Ektron.Cms.AssetUpdateData UpdateFile.FileName = myFile.FileName UpdateFile.LanguageId = … Continue reading →

‘Add product Types (sub categories) Dim catalogApi As New CatalogEntryApi() Dim productTypeApi As New ProductTypeApi() Dim inventoryAPI As New InventoryApi() Dim dr As SqlDataReader Dim currentUserId As Long = catalogApi.UserId Dim Currency_USD As Integer = 840 ‘ Create and Populate … Continue reading →

Dim cApi As New Ektron.Cms.ContentAPI() Dim fSubData As New FormSubmittedData() Dim userapi As Ektron.Cms.UserAPI = New Ektron.Cms.UserAPI() Dim fDataItem As FormFieldDataItem() = New FormFieldDataItem(1) {} fDataItem(0) = New FormFieldDataItem() fDataItem(0).FieldName = "EmployerID" fDataItem(0).DataValue = txtid.text fDataItem(1) = New FormFieldDataItem() fDataItem(1).FieldName … Continue reading →