I have created a DNN Module, Everything looks fine in VWD, no errors. However when I try to load the page, I get the following error. My .vb is also included, the upload, download, & paypal code is actually in there 12 times, I removed some of them to make
this post shorter.
Error: PGT is currently unavailable. DotNetNuke.Services.Exceptions.ModuleLoadException: Object reference not set to an instance of an object. ---> System.NullReferenceException: Object reference not set to an instance of an object.
at YourCompany.Modules.PGT.ViewPGT..ctor() in C:\Users\David\Desktop\sites\DNN\DesktopModules\PGT\ViewPGT.ascx.vb:line 152 at ASP.desktopmodules_pgt_viewpgt_ascx..ctor() in C:\Users\David\Desktop\sites\DNN\DesktopModules\PGT\ViewPGT.ascx.vb:line 912304 at
__ASP.FastObjectFactory_app_web_6gkdbv9i.Create_ASP_desktopmodules_pgt_viewpgt_ascx() at System.Web.Compilation.BuildResultCompiledType.CreateInstance() at System.Web.UI.TemplateControl.LoadControl(IWebObjectFactory objectFactory, VirtualPath virtualPath,
Type t, Object[] parameters) at System.Web.UI.TemplateControl.LoadControl(VirtualPath virtualPath) at System.Web.UI.TemplateControl.LoadControl(String virtualPath) at DotNetNuke.UI.Skins.Skin.InjectModule(Control objPane, ModuleInfo objModule, PortalSettings
PortalSettings) --- End of inner exception stack trace ---
'
' DotNetNuke® - http://www.dotnetnuke.com
' Copyright (c) 2002-2006
' by Perpetual Motion Interactive Systems Inc. ( http://www.perpetualmotion.ca )
'
' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated
' documentation files (the "Software"), to deal in the Software without restriction, including without limitation
' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and
' to permit persons to whom the Software is furnished to do so, subject to the following conditions:
'
' The above copyright notice and this permission notice shall be included in all copies or substantial portions
' of the Software.
'
' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED
' TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
' THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
' CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
' DEALINGS IN THE SOFTWARE.
'
Imports DotNetNuke
Imports System.IO
Imports System.Web.UI
Imports System.Web.UI.Page
Imports System.Collections.Generic
Imports System.Reflection
Imports DotNetNuke.Security.PortalSecurity
Imports DotNetNuke.Entities.Modules.ModuleController
Imports DotNetNuke.Entities.Modules.ModuleSettingsBase
Imports DotNetNuke.Entities.Modules.ModuleInfo
Partial Class DesktopModules_PGT_ViewPGT
Inherits Entities.Modules.PortalModuleBase
End Class
Namespace YourCompany.Modules.PGT
''' -----------------------------------------------------------------------------
''' <summary>
''' The ViewDynamicModule class displays the content
''' </summary>
''' <remarks>
''' </remarks>
''' <history>
''' </history>
''' -----------------------------------------------------------------------------
Partial Class ViewPGT
Inherits Entities.Modules.PortalModuleBase
Implements Entities.Modules.IActionable
#Region "Private Members"
Private strTemplate As String
#End Region
#Region "Event Handlers"
''' -----------------------------------------------------------------------------
''' <summary>
''' Page_Load runs when the control is loaded
''' </summary>
''' <remarks>
''' </remarks>
''' <history>
''' </history>
''' -----------------------------------------------------------------------------
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
If Not Page.IsPostBack Then
If CType(Settings("template"), String) <> "" Then
strTemplate = CType(Settings("template"), String)
Else
strTemplate = Localization.GetString("Template.Text", LocalResourceFile)
End If
Dim objPGTs As New PGTController
Dim colPGTs As List(Of PGTInfo)
' get the content from the PGT table
colPGTs = objPGTs.GetPGTs(ModuleId)
If colPGTs.Count = 0 Then
If Localization.GetString("DefaultContent", LocalResourceFile) <> "" Then
' add the content to the PGT table
Dim objPGT As PGTInfo = New PGTInfo
objPGT.ModuleId = ModuleId
objPGT.Content = Localization.GetString("DefaultContent", LocalResourceFile)
objPGT.CreatedByUser = Me.UserId
objPGTs.AddPGT(objPGT)
' get the content from the PGT table
colPGTs = objPGTs.GetPGTs(ModuleId)
End If
End If
' bind the content to the repeater
lstContent.DataSource = colPGTs
lstContent.DataBind()
End If
Catch exc As Exception 'Module failed to load
ProcessModuleLoadException(Me, exc)
End Try
End Sub
Protected Sub lstContent_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles lstContent.ItemDataBound
Dim strContent As String = strTemplate
Dim strValue As String
' add content to template
Dim objProperties As ArrayList = Common.Utilities.CBO.GetPropertyInfo(GetType(PGTInfo))
Dim intProperty As Integer
Dim objPropertyInfo As PropertyInfo
For intProperty = 0 To objProperties.Count - 1
objPropertyInfo = CType(objProperties(intProperty), PropertyInfo)
If strContent.IndexOf("[" & objPropertyInfo.Name.ToUpper & "]") <> -1 Then
strValue = Server.HtmlDecode(DataBinder.Eval(e.Item.DataItem, objPropertyInfo.Name).ToString())
strContent = strContent.Replace("[" & objPropertyInfo.Name.ToUpper & "]", strValue)
End If
Next intProperty
' assign the content
Dim lblContent As Label = CType(e.Item.FindControl("lblContent"), Label)
lblContent.Text = strContent
End Sub
#End Region
#Region "Optional Interfaces"
''' -----------------------------------------------------------------------------
''' <summary>
''' Registers the module actions required for interfacing with the portal framework
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
''' <history>
''' </history>
''' -----------------------------------------------------------------------------
Public ReadOnly Property ModuleActions() As Entities.Modules.Actions.ModuleActionCollection Implements Entities.Modules.IActionable.ModuleActions
Get
Dim Actions As New Entities.Modules.Actions.ModuleActionCollection
Actions.Add(GetNextActionID, Localization.GetString(Entities.Modules.Actions.ModuleActionType.AddContent, LocalResourceFile), Entities.Modules.Actions.ModuleActionType.AddContent, "", "", EditUrl(), False, Security.SecurityAccessLevel.Edit,
True, False)
Return Actions
End Get
End Property
#End Region
Dim coach As String = school & " - Coach"
Dim school As String = CType(Settings("school"), String).ToString
Dim league As String = CType(Settings("league"), String).ToString
Dim sport As String = CType(Settings("sport"), String).ToString
Dim subPrice As String = CType(Settings("subPrice"), String).ToString
Dim subTerm1 As String = CType(Settings("subTerm1"), String).ToString
Dim subTerm2 As String = CType(Settings("subTerm2"), String).ToString
Dim singlePrice As String = CType(Settings("singlePrice"), String).ToString
Dim singleTerm1 As String = CType(Settings("singleTerm1"), String).ToString
Dim singleTerm2 As String = CType(Settings("singleTerm2"), String).ToString
Dim strPath1 As String = "~/uploads/" & school & "/1/"
Dim FileName1 As String = Path.GetFileNameWithoutExtension(strPath1)
Dim DLPath1 As String = strPath1 & FileName1
Dim strPath2 As String = "~/uploads/" & school & "/2/"
Dim FileName2 As String = Path.GetFileNameWithoutExtension(strPath2)
Dim DLPath2 As String = strPath2 & FileName2
Dim strPath3 As String = "~/uploads/" & school & "/3/"
Dim FileName3 As String = Path.GetFileNameWithoutExtension(strPath3)
Dim DLPath3 As String = strPath3 & FileName3
Dim strPath4 As String = "~/uploads/" & school & "/4/"
Dim FileName4 As String = Path.GetFileNameWithoutExtension(strPath4)
Dim DLPath4 As String = strPath4 & FileName4
Dim strPath5 As String = "~/uploads/" & school & "/5/"
Dim FileName5 As String = Path.GetFileNameWithoutExtension(strPath5)
Dim DLPath5 As String = strPath5 & FileName5
Dim strPath6 As String = "~/uploads/" & school & "/6/"
Dim FileName6 As String = Path.GetFileNameWithoutExtension(strPath6)
Dim DLPath6 As String = strPath6 & FileName6
Dim strPath7 As String = "~/uploads/" & school & "/7/"
Dim FileName7 As String = Path.GetFileNameWithoutExtension(strPath7)
Dim DLPath7 As String = strPath7 & FileName7
Dim strPath8 As String = "~/uploads/" & school & "/8/"
Dim FileName8 As String = Path.GetFileNameWithoutExtension(strPath8)
Dim DLPath8 As String = strPath8 & FileName8
Dim strPath9 As String = "~/uploads/" & school & "/9/"
Dim FileName9 As String = Path.GetFileNameWithoutExtension(strPath1)
Dim DLPath9 As String = strPath9 & FileName9
Dim strPath10 As String = "~/uploads/" & school & "/10/"
Dim FileName10 As String = Path.GetFileNameWithoutExtension(strPath10)
Dim DLPath10 As String = strPath10 & FileName10
Dim strPath11 As String = "~/uploads/" & school & "/11/"
Dim FileName11 As String = Path.GetFileNameWithoutExtension(strPath11)
Dim DLPath11 As String = strPath11 & FileName11
Dim strPath12 As String = "~/uploads/" & school & "/12/"
Dim FileName12 As String = Path.GetFileNameWithoutExtension(strPath12)
Dim DLPath12 As String = strPath12 & FileName12
Public Sub Page_Load2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load, Me.Load
'-------------------------------------------------------------------------------------------------------------------- Access
'
'--------------------------------------------------------------------------------------------------------------------
Label10.Text = ("Purchase Season pass to all " & school & "," & league & " " & sport & " Game Tapes - $" & subPrice)
vid1.Text = FileName1
vid2.Text = FileName2
vid3.Text = FileName3
vid4.Text = FileName4
vid5.Text = FileName5
vid6.Text = FileName6
vid7.Text = FileName7
vid8.Text = FileName8
vid9.Text = FileName9
vid10.Text = FileName10
vid11.Text = FileName11
vid12.Text = FileName12
End Sub
Protected Sub Upload1_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Upload1.Click
If FileUpload1.HasFile Then
Try
If Not Directory.Exists(strPath1) Then
Directory.CreateDirectory(strPath1)
End If
FileUpload1.SaveAs(Server.MapPath(strPath1 + FileUpload1.FileName))
ULLabel1.Text = "File Uploaded!"
Catch ex As Exception
ULLabel1.Text = "ERROR: " & ex.Message.ToString()
End Try
Else
ULLabel1.Text = "You have not specified a file."
End If
End Sub
'-------------------------------------------------------------------------------------------------------------------- PayPal
'
'--------------------------------------------------------------------------------------------------------------------
Protected Sub Subscription_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Subscription.Click
Response.Write(PayPalPostForm0().ToString)
RDO
Member
309 Points
282 Posts
Problem with DNN Module
Jul 09, 2008 04:46 PM|LINK
I have created a DNN Module, Everything looks fine in VWD, no errors. However when I try to load the page, I get the following error. My .vb is also included, the upload, download, & paypal code is actually in there 12 times, I removed some of them to make this post shorter.
DotNetNuke.Services.Exceptions.ModuleLoadException: Object reference not set to an instance of an object. ---> System.NullReferenceException: Object reference not set to an instance of an object. at YourCompany.Modules.PGT.ViewPGT..ctor() in C:\Users\David\Desktop\sites\DNN\DesktopModules\PGT\ViewPGT.ascx.vb:line 152 at ASP.desktopmodules_pgt_viewpgt_ascx..ctor() in C:\Users\David\Desktop\sites\DNN\DesktopModules\PGT\ViewPGT.ascx.vb:line 912304 at __ASP.FastObjectFactory_app_web_6gkdbv9i.Create_ASP_desktopmodules_pgt_viewpgt_ascx() at System.Web.Compilation.BuildResultCompiledType.CreateInstance() at System.Web.UI.TemplateControl.LoadControl(IWebObjectFactory objectFactory, VirtualPath virtualPath, Type t, Object[] parameters) at System.Web.UI.TemplateControl.LoadControl(VirtualPath virtualPath) at System.Web.UI.TemplateControl.LoadControl(String virtualPath) at DotNetNuke.UI.Skins.Skin.InjectModule(Control objPane, ModuleInfo objModule, PortalSettings PortalSettings) --- End of inner exception stack trace ---
'
' DotNetNuke® - http://www.dotnetnuke.com
' Copyright (c) 2002-2006
' by Perpetual Motion Interactive Systems Inc. ( http://www.perpetualmotion.ca )
'
' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated
' documentation files (the "Software"), to deal in the Software without restriction, including without limitation
' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and
' to permit persons to whom the Software is furnished to do so, subject to the following conditions:
'
' The above copyright notice and this permission notice shall be included in all copies or substantial portions
' of the Software.
'
' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED
' TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
' THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
' CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
' DEALINGS IN THE SOFTWARE.
'
Imports DotNetNuke
Imports System.IO
Imports System.Web.UI
Imports System.Web.UI.Page
Imports System.Collections.Generic
Imports System.Reflection
Imports DotNetNuke.Security.PortalSecurity
Imports DotNetNuke.Entities.Modules.ModuleController
Imports DotNetNuke.Entities.Modules.ModuleSettingsBase
Imports DotNetNuke.Entities.Modules.ModuleInfo
Partial Class DesktopModules_PGT_ViewPGT
Inherits Entities.Modules.PortalModuleBase
End Class
Namespace YourCompany.Modules.PGT
''' -----------------------------------------------------------------------------
''' <summary>
''' The ViewDynamicModule class displays the content
''' </summary>
''' <remarks>
''' </remarks>
''' <history>
''' </history>
''' -----------------------------------------------------------------------------
Partial Class ViewPGT
Inherits Entities.Modules.PortalModuleBase
Implements Entities.Modules.IActionable
#Region "Private Members"
Private strTemplate As String
#End Region
#Region "Event Handlers"
''' -----------------------------------------------------------------------------
''' <summary>
''' Page_Load runs when the control is loaded
''' </summary>
''' <remarks>
''' </remarks>
''' <history>
''' </history>
''' -----------------------------------------------------------------------------
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
If Not Page.IsPostBack Then
If CType(Settings("template"), String) <> "" Then
strTemplate = CType(Settings("template"), String)
Else
strTemplate = Localization.GetString("Template.Text", LocalResourceFile)
End If
Dim objPGTs As New PGTController
Dim colPGTs As List(Of PGTInfo)
' get the content from the PGT table
colPGTs = objPGTs.GetPGTs(ModuleId)
If colPGTs.Count = 0 Then
If Localization.GetString("DefaultContent", LocalResourceFile) <> "" Then
' add the content to the PGT table
Dim objPGT As PGTInfo = New PGTInfo
objPGT.ModuleId = ModuleId
objPGT.Content = Localization.GetString("DefaultContent", LocalResourceFile)
objPGT.CreatedByUser = Me.UserId
objPGTs.AddPGT(objPGT)
' get the content from the PGT table
colPGTs = objPGTs.GetPGTs(ModuleId)
End If
End If
' bind the content to the repeater
lstContent.DataSource = colPGTs
lstContent.DataBind()
End If
Catch exc As Exception 'Module failed to load
ProcessModuleLoadException(Me, exc)
End Try
End Sub
Protected Sub lstContent_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles lstContent.ItemDataBound
Dim strContent As String = strTemplate
Dim strValue As String
' add content to template
Dim objProperties As ArrayList = Common.Utilities.CBO.GetPropertyInfo(GetType(PGTInfo))
Dim intProperty As Integer
Dim objPropertyInfo As PropertyInfo
For intProperty = 0 To objProperties.Count - 1
objPropertyInfo = CType(objProperties(intProperty), PropertyInfo)
If strContent.IndexOf("[" & objPropertyInfo.Name.ToUpper & "]") <> -1 Then
strValue = Server.HtmlDecode(DataBinder.Eval(e.Item.DataItem, objPropertyInfo.Name).ToString())
strContent = strContent.Replace("[" & objPropertyInfo.Name.ToUpper & "]", strValue)
End If
Next intProperty
' assign the content
Dim lblContent As Label = CType(e.Item.FindControl("lblContent"), Label)
lblContent.Text = strContent
End Sub
#End Region
#Region "Optional Interfaces"
''' -----------------------------------------------------------------------------
''' <summary>
''' Registers the module actions required for interfacing with the portal framework
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
''' <history>
''' </history>
''' -----------------------------------------------------------------------------
Public ReadOnly Property ModuleActions() As Entities.Modules.Actions.ModuleActionCollection Implements Entities.Modules.IActionable.ModuleActions
Get
Dim Actions As New Entities.Modules.Actions.ModuleActionCollection
Actions.Add(GetNextActionID, Localization.GetString(Entities.Modules.Actions.ModuleActionType.AddContent, LocalResourceFile), Entities.Modules.Actions.ModuleActionType.AddContent, "", "", EditUrl(), False, Security.SecurityAccessLevel.Edit, True, False)
Return Actions
End Get
End Property
#End Region
Dim coach As String = school & " - Coach"
Dim school As String = CType(Settings("school"), String).ToString
Dim league As String = CType(Settings("league"), String).ToString
Dim sport As String = CType(Settings("sport"), String).ToString
Dim subPrice As String = CType(Settings("subPrice"), String).ToString
Dim subTerm1 As String = CType(Settings("subTerm1"), String).ToString
Dim subTerm2 As String = CType(Settings("subTerm2"), String).ToString
Dim singlePrice As String = CType(Settings("singlePrice"), String).ToString
Dim singleTerm1 As String = CType(Settings("singleTerm1"), String).ToString
Dim singleTerm2 As String = CType(Settings("singleTerm2"), String).ToString
Dim strPath1 As String = "~/uploads/" & school & "/1/"
Dim FileName1 As String = Path.GetFileNameWithoutExtension(strPath1)
Dim DLPath1 As String = strPath1 & FileName1
Dim strPath2 As String = "~/uploads/" & school & "/2/"
Dim FileName2 As String = Path.GetFileNameWithoutExtension(strPath2)
Dim DLPath2 As String = strPath2 & FileName2
Dim strPath3 As String = "~/uploads/" & school & "/3/"
Dim FileName3 As String = Path.GetFileNameWithoutExtension(strPath3)
Dim DLPath3 As String = strPath3 & FileName3
Dim strPath4 As String = "~/uploads/" & school & "/4/"
Dim FileName4 As String = Path.GetFileNameWithoutExtension(strPath4)
Dim DLPath4 As String = strPath4 & FileName4
Dim strPath5 As String = "~/uploads/" & school & "/5/"
Dim FileName5 As String = Path.GetFileNameWithoutExtension(strPath5)
Dim DLPath5 As String = strPath5 & FileName5
Dim strPath6 As String = "~/uploads/" & school & "/6/"
Dim FileName6 As String = Path.GetFileNameWithoutExtension(strPath6)
Dim DLPath6 As String = strPath6 & FileName6
Dim strPath7 As String = "~/uploads/" & school & "/7/"
Dim FileName7 As String = Path.GetFileNameWithoutExtension(strPath7)
Dim DLPath7 As String = strPath7 & FileName7
Dim strPath8 As String = "~/uploads/" & school & "/8/"
Dim FileName8 As String = Path.GetFileNameWithoutExtension(strPath8)
Dim DLPath8 As String = strPath8 & FileName8
Dim strPath9 As String = "~/uploads/" & school & "/9/"
Dim FileName9 As String = Path.GetFileNameWithoutExtension(strPath1)
Dim DLPath9 As String = strPath9 & FileName9
Dim strPath10 As String = "~/uploads/" & school & "/10/"
Dim FileName10 As String = Path.GetFileNameWithoutExtension(strPath10)
Dim DLPath10 As String = strPath10 & FileName10
Dim strPath11 As String = "~/uploads/" & school & "/11/"
Dim FileName11 As String = Path.GetFileNameWithoutExtension(strPath11)
Dim DLPath11 As String = strPath11 & FileName11
Dim strPath12 As String = "~/uploads/" & school & "/12/"
Dim FileName12 As String = Path.GetFileNameWithoutExtension(strPath12)
Dim DLPath12 As String = strPath12 & FileName12
Public Sub Page_Load2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load, Me.Load
'-------------------------------------------------------------------------------------------------------------------- Access
'
'--------------------------------------------------------------------------------------------------------------------
If IsInRole(coach) Then
FileUpload1.Visible = True
Upload1.Visible = True
ULLabel1.Visible = True
FileUpload2.Visible = True
Upload2.Visible = True
ULLabel2.Visible = True
FileUpload3.Visible = True
Upload3.Visible = True
ULLabel3.Visible = True
FileUpload4.Visible = True
Upload4.Visible = True
ULLabel4.Visible = True
FileUpload5.Visible = True
Upload5.Visible = True
ULLabel5.Visible = True
FileUpload6.Visible = True
Upload6.Visible = True
ULLabel6.Visible = True
FileUpload7.Visible = True
Upload7.Visible = True
ULLabel7.Visible = True
FileUpload8.Visible = True
Upload8.Visible = True
ULLabel8.Visible = True
FileUpload9.Visible = True
Upload9.Visible = True
ULLabel9.Visible = True
FileUpload10.Visible = True
Upload10.Visible = True
ULLabel10.Visible = True
FileUpload11.Visible = True
Upload11.Visible = True
ULLabel11.Visible = True
FileUpload12.Visible = True
Upload12.Visible = True
ULLabel12.Visible = True
Label2.Visible = True
Label3.Visible = False
Label4.Visible = True
Else
FileUpload1.Visible = False
Upload1.Visible = False
ULLabel1.Visible = False
FileUpload2.Visible = False
Upload2.Visible = False
ULLabel2.Visible = False
FileUpload3.Visible = False
Upload3.Visible = False
ULLabel3.Visible = False
FileUpload4.Visible = False
Upload4.Visible = False
ULLabel4.Visible = False
FileUpload5.Visible = False
Upload5.Visible = False
ULLabel5.Visible = False
FileUpload6.Visible = False
Upload6.Visible = False
ULLabel6.Visible = False
FileUpload7.Visible = False
Upload7.Visible = False
ULLabel7.Visible = False
FileUpload8.Visible = False
Upload8.Visible = False
ULLabel8.Visible = False
FileUpload9.Visible = False
Upload9.Visible = False
ULLabel9.Visible = False
FileUpload10.Visible = False
Upload10.Visible = False
ULLabel10.Visible = False
FileUpload11.Visible = False
Upload11.Visible = False
ULLabel11.Visible = False
FileUpload12.Visible = False
Upload12.Visible = False
ULLabel12.Visible = False
Label2.Visible = False
Label3.Visible = True
Label4.Visible = False
End If
If IsInRole(school + " Temp1") Then
Download1.Visible = True
Download2.Visible = False
Download3.Visible = False
Download4.Visible = False
Download5.Visible = False
Download6.Visible = False
Download7.Visible = False
Download8.Visible = False
Download9.Visible = False
Download10.Visible = False
Download11.Visible = False
Download12.Visible = False
Buy1.Visible = False
ElseIf IsInRole(school + " Temp2") Then
Download1.Visible = False
Download2.Visible = True
Download3.Visible = False
Download4.Visible = False
Download5.Visible = False
Download6.Visible = False
Download7.Visible = False
Download8.Visible = False
Download9.Visible = False
Download10.Visible = False
Download11.Visible = False
Download12.Visible = False
Buy2.Visible = False
ElseIf IsInRole(school + " Temp3") Then
Download1.Visible = False
Download2.Visible = False
Download3.Visible = True
Download4.Visible = False
Download5.Visible = False
Download6.Visible = False
Download7.Visible = False
Download8.Visible = False
Download9.Visible = False
Download10.Visible = False
Download11.Visible = False
Download12.Visible = False
Buy3.Visible = False
ElseIf IsInRole(school + " Temp4") Then
Download1.Visible = False
Download2.Visible = False
Download3.Visible = False
Download4.Visible = True
Download5.Visible = False
Download6.Visible = False
Download7.Visible = False
Download8.Visible = False
Download9.Visible = False
Download10.Visible = False
Download11.Visible = False
Download12.Visible = False
Buy4.Visible = False
ElseIf IsInRole(school + " Temp5") Then
Download1.Visible = False
Download2.Visible = False
Download3.Visible = False
Download4.Visible = False
Download5.Visible = True
Download6.Visible = False
Download7.Visible = False
Download8.Visible = False
Download9.Visible = False
Download10.Visible = False
Download11.Visible = False
Download12.Visible = False
Buy5.Visible = False
ElseIf IsInRole(school + " Temp6") Then
Download1.Visible = False
Download2.Visible = False
Download3.Visible = False
Download4.Visible = False
Download5.Visible = False
Download6.Visible = True
Download7.Visible = False
Download8.Visible = False
Download9.Visible = False
Download10.Visible = False
Download11.Visible = False
Download12.Visible = False
Buy6.Visible = False
ElseIf IsInRole(school + " Temp7") Then
Download1.Visible = False
Download2.Visible = False
Download3.Visible = False
Download4.Visible = False
Download5.Visible = False
Download6.Visible = False
Download7.Visible = True
Download8.Visible = False
Download9.Visible = False
Download10.Visible = False
Download11.Visible = False
Download12.Visible = False
Buy7.Visible = False
ElseIf IsInRole(school + " Temp8") Then
Download1.Visible = False
Download2.Visible = False
Download3.Visible = False
Download4.Visible = False
Download5.Visible = False
Download6.Visible = False
Download7.Visible = False
Download8.Visible = True
Download9.Visible = False
Download10.Visible = False
Download11.Visible = False
Download12.Visible = False
Buy8.Visible = False
ElseIf IsInRole(school + " Temp9") Then
Download1.Visible = False
Download2.Visible = False
Download3.Visible = False
Download4.Visible = False
Download5.Visible = False
Download6.Visible = False
Download7.Visible = False
Download8.Visible = False
Download9.Visible = True
Download10.Visible = False
Download11.Visible = False
Download12.Visible = False
Buy9.Visible = False
ElseIf IsInRole(school + " Temp10") Then
Download1.Visible = False
Download2.Visible = False
Download3.Visible = False
Download4.Visible = False
Download5.Visible = False
Download6.Visible = False
Download7.Visible = False
Download8.Visible = False
Download9.Visible = False
Download10.Visible = True
Download11.Visible = False
Download12.Visible = False
Buy10.Visible = False
ElseIf IsInRole(school + " Temp11") Then
Download1.Visible = False
Download2.Visible = False
Download3.Visible = False
Download4.Visible = False
Download5.Visible = False
Download6.Visible = False
Download7.Visible = False
Download8.Visible = False
Download9.Visible = False
Download10.Visible = False
Download11.Visible = True
Download12.Visible = False
Buy11.Visible = False
ElseIf IsInRole(school + " Temp12") Then
Download1.Visible = False
Download2.Visible = False
Download3.Visible = False
Download4.Visible = False
Download5.Visible = False
Download6.Visible = False
Download7.Visible = False
Download8.Visible = False
Download9.Visible = False
Download10.Visible = False
Download11.Visible = False
Download12.Visible = True
Buy12.Visible = False
ElseIf IsInRole(school) Or IsInRole(coach) Then
Download1.Visible = True
Download2.Visible = True
Download3.Visible = True
Download4.Visible = True
Download5.Visible = True
Download6.Visible = True
Download7.Visible = True
Download8.Visible = True
Download9.Visible = True
Download10.Visible = True
Download11.Visible = True
Download12.Visible = True
Buy1.Visible = False
Buy2.Visible = False
Buy3.Visible = False
Buy4.Visible = False
Buy5.Visible = False
Buy6.Visible = False
Buy7.Visible = False
Buy8.Visible = False
Buy9.Visible = False
Buy10.Visible = False
Buy11.Visible = False
Buy12.Visible = False
Else
Download1.Visible = False
Buy1.Visible = True
Download2.Visible = False
Buy2.Visible = True
Download3.Visible = False
Buy3.Visible = True
Download4.Visible = False
Buy4.Visible = True
Download5.Visible = False
Buy5.Visible = True
Download6.Visible = False
Buy6.Visible = True
Download7.Visible = False
Buy7.Visible = True
Download8.Visible = False
Buy8.Visible = True
Download9.Visible = False
Buy9.Visible = True
Download10.Visible = False
Buy10.Visible = True
Download11.Visible = False
Buy11.Visible = True
Download12.Visible = False
Buy12.Visible = True
End If
Label10.Text = ("Purchase Season pass to all " & school & "," & league & " " & sport & " Game Tapes - $" & subPrice)
vid1.Text = FileName1
vid2.Text = FileName2
vid3.Text = FileName3
vid4.Text = FileName4
vid5.Text = FileName5
vid6.Text = FileName6
vid7.Text = FileName7
vid8.Text = FileName8
vid9.Text = FileName9
vid10.Text = FileName10
vid11.Text = FileName11
vid12.Text = FileName12
End Sub
Protected Sub Upload1_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Upload1.Click
If FileUpload1.HasFile Then
Try
If Not Directory.Exists(strPath1) Then
Directory.CreateDirectory(strPath1)
End If
FileUpload1.SaveAs(Server.MapPath(strPath1 + FileUpload1.FileName))
ULLabel1.Text = "File Uploaded!"
Catch ex As Exception
ULLabel1.Text = "ERROR: " & ex.Message.ToString()
End Try
Else
ULLabel1.Text = "You have not specified a file."
End If
End Sub
'-------------------------------------------------------------------------------------------------------------------- PayPal
'
'--------------------------------------------------------------------------------------------------------------------
Protected Sub Subscription_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Subscription.Click
Response.Write(PayPalPostForm0().ToString)
End Sub
Public Function PayPalPostForm0() As String
Dim PostUrl As String = "https://www.paypal.com/cgi-bin/webscr"
Dim Cmd As String = "_xclick-subscriptions"
Dim no_shipping As String = "1"
Dim BusinessEmail As String = "_________@truvista.net"
Dim Currency As String = "USD"
Dim ItemName As String = school
Dim a3 As String = subPrice
Dim ret As String = "http://www._______________.com/dnn/desktopmodules/uldl/Payment_success.aspx"
Dim cancel As String = "http://www.___________.com"
Dim Note As String = "1"
Dim p3 As String = subTerm1
Dim t3 As String = subTerm2
Dim bn As String = "PP-SubscriptionsBF"
'Create the Form to write to the page with PayPal parameters
Dim ppForm As New StringBuilder
ppForm.Append("<Form name=" + """" + "frmPP" + """" + " id=" + """" + "frmPP" + """" + " action=" + """" + PostUrl + """" + " method=" + """" + "post" + """" + ">")
ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "cmd" + """" + " value=" + """" + Cmd + """" + ">")
ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "no_shipping" + """" + " value=" + """" + no_shipping + """" + ">")
ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "business" + """" + " value=" + """" + BusinessEmail + """" + ">")
ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "currency_code" + """" + " value=" + """" + Currency + """" + ">")
ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "item_name" + """" + " value=" + """" + ItemName + """" + ">")
ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "a3" + """" + " value=" + """" + a3 + """" + ">")
ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "return" + """" + " value=" + """" + ret + """" + ">")
ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "no_shipping" + """" + " value=" + """" + no_shipping + """" + ">")
ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "cancel_return" + """" + " value=" + """" + cancel + """" + ">")
ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "no_note" + """" + " value=" + """" + Note + """" + ">")
ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "bn" + """" + " value=" + """" + bn + """" + ">")
ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "p3" + """" + " value=" + """" + p3 + """" + ">")
ppForm.Append("<input type=" + """" + "hidden" + """" + " name=" + """" + "t3" + """" + " value=" + """" + t3 + """" + ">")
Return ppForm.ToString
End Function
'-------------------------------------------------------------------------------------------------------------------- Download
'
'--------------------------------------------------------------------------------------------------------------------
Protected Sub Download1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Download1.Click
Response.TransmitFile(Server.MapPath(DLPath1))
End Sub
End Class
End Namespace
Christian Forum