I think the editor deleted some of the code you posted? 

If you try to write a module, you should inherit the partial class from PortalModuleBase. Happy DNNing! Michael

Actually, I left it out. I figured that the code inside the Class tags would be of little interest. Here's the code:

Imports System Imports System.IO Imports System.IO.Directory Imports System.Web Imports System.Data

Partial Class HstoneArtGallery     Inherits System.Web.UI.Page

    Function ImportTextFile(ByVal strTextFileName As String) As String         Dim strTextFilePath As String = Path.GetDirectoryName(Server.MapPath(Me.ToString)) & "\notes\"         Dim strReturnedText As String         Using sr As New StreamReader(strTextFilePath & strTextFileName)

            strReturnedText = sr.ReadToEnd()         End Using

        Return strReturnedText

    End Function

    Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim strPathToImagesFolder As String = Path.GetDirectoryName(Server.MapPath(Me.ToString)) & "\images\"       'declares path to images folder         Dim strFileSystemEntryImage As String         Dim arrGetFiles() As String = Directory.GetFiles(strPathToImagesFolder)     'sets up array of files in image folder         Dim arrFileNames() As String         Dim strFileName As String         Dim strCleanedFilename As String         Dim arrAltTitleTag As Array         Dim strAltTitleTag As String         Dim intNameCounter As Integer         Dim imgAltTag As String         intNameCounter = 0

        Dim imgID As String

        Dim strThumbnailsMaker As New StringBuilder         strThumbnailsMaker.Append("

")         Dim strMainImageStack As New StringBuilder         For Each strFileSystemEntryImage In arrGetFiles

            arrFileNames = Split(strFileSystemEntryImage, "\")          'splits strFileSystemEntryImage on backslash             strFileName = arrFileNames(arrFileNames.Length - 1)             strCleanedFilename = WriteFileInfo(strFileName)             imgAltTag = strCleanedFilename.Replace("", "")             imgAltTag = imgAltTag.Replace("", "")             imgAltTag = imgAltTag.Replace("""", "")

            arrAltTitleTag = Split(strFileName, "!")

            imgID = "ID_" & intNameCounter.ToString

            strAltTitleTag = arrAltTitleTag(1) & " by " & arrAltTitleTag(2)             strAltTitleTag = strAltTitleTag.Replace("_", " ")

            strThumbnailsMaker.Append("

• ")             strThumbnailsMaker.Append("")

              strThumbnailsMaker.Append("

  ")             strThumbnailsMaker.Append("

  ")             strThumbnailsMaker.Append("
")             intNameCounter += 1         Next         strThumbnailsMaker.Append("

")         thumbnailsPanel.Controls.Add(New LiteralControl(strThumbnailsMaker.ToString))

    End Sub

    Private Function WriteFileInfo(ByVal strFilenameInfo As String) As String         Dim arrSplitOnExclamation() As String         Dim strToReturn As New StringBuilder         If InStr(strFilenameInfo, "!") > 0 Then             strFilenameInfo = strFilenameInfo.Replace("_", " ")             arrSplitOnExclamation = Split(strFilenameInfo, "!")             Dim arrLastValue() As String             arrLastValue = Split(arrSplitOnExclamation(5), ".")             strToReturn.Append("")             strToReturn.Append(arrSplitOnExclamation(1))             strToReturn.Append(", ")             strToReturn.Append(arrSplitOnExclamation(2))             strToReturn.Append(", ")             strToReturn.Append(arrSplitOnExclamation(3))             strToReturn.Append(", ")             arrSplitOnExclamation(4) = Replace(arrSplitOnExclamation(4), "in", """")             strToReturn.Append(arrSplitOnExclamation(4))             strToReturn.Append(", ")             strToReturn.Append(arrLastValue(0))         Else             strToReturn.Append(" ")         End If         Return strToReturn.ToString     End Function

End Class

-------------------------------

Here's the Control statement at the top of the ascx file:

<%@ Control Language="vb" AutoEventWireup="false" Explicit="True" CodeFile="HSA_inr_modal.ascx.vb" Inherits="HstoneArtGallery" %>

 

I changed:

Partial Class HstoneArtGallery     Inherits System.Web.UI.Page

to

Partial Class HstoneArtGallery     Inherits PortalModuleBase

and the error remained. I probably didn't do that exactly right.

I'm not trying to write a module, just a page template.

 

 

 

 

Posted By Britomart on 10 Aug 2022 05:37 PM

I changed:

[...]

I'm not trying to write a module, just a page template.

In that case I would recommend to have a look at one of the multi-purpose modules like OpenContent or 2sxc. It should be easy to achieve your goal with one of these if you're familiar with HTML and JavaScript.

Happy DNNing! Michael

I couldn't get OpenContent or 2sxc to install; they both went to 95% and stalled. I contacted the host to verify that I had space and checked the web.config and DNN setting to verify that the files weren't too big, still didn't work. I've been trying to figure it out with no luck. I've tried simplified layouts and inline code instead of code-behind. Any attempt to run VB code on any of the test pages generates error "Could Not Load Theme: /Portals/_default/skins/hstoneartskin/hsa_gallerygen.ascx, Error: Unable to cast object of type 'ASP.portals__default_skins_hstoneartskin_hsa_gallerygen_ascx' to type 'DotNetNuke.UI.Skins.Skin'. I've been trying to track that one down without much luck. I have no idea what "Unable to cast object of type" means, and I could find few references on line. I'm running DNN 9.10.02 in a clean install with a new host. Here's the admin log entry: AbsoluteURL:/Default.aspx DefaultDataProvider:DotNetNuke.Data.SqlDataProvider, DotNetNuke ExceptionGUID:0fa9c969-5832-4cd8-8b15-fb50b0397802 AssemblyVersion: PortalId:-1 UserId:-1 TabId:-1 RawUrl: Referrer: UserAgent: ExceptionHash:5ZGVzUuVvCZIzAD/onENhymz260= Message:Unhandled error loading page. StackTrace: InnerMessage:Unable to cast object of type 'ASP.portals__default_skins_hstoneartskin_hsa_gallerygen_ascx' to type 'DotNetNuke.UI.Skins.Skin'. InnerStackTrace: at DotNetNuke.UI.ControlUtilities.LoadControl[T](TemplateControl containerControl, String ControlSrc) at DotNetNuke.UI.Skins.Skin.LoadSkin(PageBase page, String skinPath) Source: FileName: FileLineNumber:0 FileColumnNumber:0 Method: Server Name: web809 What do I do next? Thanks.