Home ›
ASP.NET Forums » Starter Kits and Source Projects » DotNetNuke » Problem with DNN Module

Problem with DNN Module

Last post 07-09-2008 12:46 PM by RDO. 0 replies.

Sort Posts:

  • Problem with DNN Module

    07-09-2008, 12:46 PM
    • Member
      32 point Member
    • RDO
    • Member since 05-26-2008, 4:58 PM
    • Posts 118

     

    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
                '
                '--------------------------------------------------------------------------------------------------------------------

                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
Page 1 of 1 (1 items)
RSS Available

Contact | Advertise | Issue Management by Axosoft's OnTime | Running IIS7
All Rights Reserved. | Terms of Use | Trademarks | Privacy Statement
© 2009 Microsoft Corporation.