The real code is (I will explain in a new post later):
Private Sub cmdSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSelect.Click
Dim ver As String() = PortalSettings.Version.Split("."c)
Dim vermaj As Integer = CInt(ver(0))
Dim vermin As Integer = CInt(ver(1))
Dim mylink As String = ctlURL.Url
Dim bypassLinkclick As Boolean = False
If Left(mylink, 7).ToLower = "fileid=" Then
Dim useSlash As Boolean = False
If (vermaj = 3 And vermin >= 0 And vermin <= 2) Or (vermaj = 4 And vermin = 0) Then
Dim dbimg As New DotNetNuke.Services.FileSystem.FileController
Dim myid As String = mylink.Substring(7)
Dim objimg As DotNetNuke.Services.FileSystem.FileInfo = dbimg.GetFileById(CInt(myid), PortalSettings.PortalId)
If Not objimg Is Nothing Then
mylink = objimg.Folder & objimg.FileName
End If
Else
Dim dbimg As New DotNetNuke.Services.FileSystem.FileController
Dim myid As String = mylink.Substring(7)
Dim objimg As DotNetNuke.Services.FileSystem.FileInfo = dbimg.GetFileById(CInt(myid), PortalSettings.PortalId)
If Not objimg Is Nothing Then
If objimg.StorageLocation = DotNetNuke.Services.FileSystem.FolderController.StorageLocationTypes.InsecureFileSystem Then
mylink = Me.PortalSettings.HomeDirectory & objimg.Folder & objimg.FileName
bypassLinkclick = True
End If
End If
End If
End If
If (vermaj = 3 And vermin >= 0 And vermin <= 2) Or (vermaj = 4 And vermin = 0) Then
mylink = DotNetNuke.Common.Globals.LinkClickURL(mylink)
Else
If Not bypassLinkclick Then
mylink = DotNetNuke.Common.Globals.LinkClick(mylink, Me.PortalSettings.ActiveTab.TabID, -1)
End If
End If
SendResultURL(mylink)
End Sub
Locopon
Free modules: E-commerce, Complete localization (Portal, page, module settings, skins, etc.), Secure Login, and more
http://dnn.tiendaboliviana.com