Imports Microsoft.VisualBasic Imports System.Data Imports System.Data.SqlClient Imports System.Web.Configuration Imports System.IO Imports System.Web.UI.Page Namespace bigAdminBigStory Public Class bigStoryContent Inherits System.Web.UI.Page Public globConn As New SqlConnection(WebConfigurationManager.ConnectionStrings("broadcastImageConnectionString").ConnectionString) Public Function SelectPromoLibraryAll(ByVal searchStr As String) As DataSet If searchStr IsNot Nothing Then Return SelectPromoLibraryByTitleSearch(searchStr) End If Dim dtsCart As DataSet = New DataSet Dim conn As SqlConnection = globConn Dim dts As DataSet = New DataSet Dim MyDataAdapter As SqlDataAdapter Try 'Create a DataAdapter, and then provide the name of the stored procedure. MyDataAdapter = New SqlDataAdapter("bigSelectPromoLibraryAll", conn) 'Set the command type as StoredProcedure. MyDataAdapter.SelectCommand.CommandType = CommandType.StoredProcedure 'Create and add a parameter to Parameters collection for the stored procedure. MyDataAdapter.Fill(dts) 'Fill the DataSet with the rows returned. Catch ex As Exception Throw ex End Try Return dts End Function Public Function SelectPromoLibraryByTitleSearch(ByVal searchStr As String) As DataSet Dim dtsCart As DataSet = New DataSet Dim conn As SqlConnection = globConn Dim dts As DataSet = New DataSet Dim MyDataAdapter As SqlDataAdapter Try 'Create a DataAdapter, and then provide the name of the stored procedure. MyDataAdapter = New SqlDataAdapter("bigSelectPromoLibraryByTitleSearch", conn) 'Set the command type as StoredProcedure. MyDataAdapter.SelectCommand.CommandType = CommandType.StoredProcedure 'Create and add a parameter to Parameters collection for the stored procedure. MyDataAdapter.SelectCommand.Parameters.Add(New SqlParameter("@searchStr ", SqlDbType.VarChar)) MyDataAdapter.SelectCommand.Parameters("@searchStr ").Value = searchStr MyDataAdapter.Fill(dts) 'Fill the DataSet with the rows returned. Catch ex As Exception Throw ex End Try Return dts End Function Public Function SelectPromoLibraryAllActive() As DataSet Dim dtsCart As DataSet = New DataSet Dim conn As SqlConnection = globConn Dim dts As DataSet = New DataSet Dim MyDataAdapter As SqlDataAdapter Try 'Create a DataAdapter, and then provide the name of the stored procedure. MyDataAdapter = New SqlDataAdapter("bigSelectPromoLibraryAll", conn) 'Set the command type as StoredProcedure. MyDataAdapter.SelectCommand.CommandType = CommandType.StoredProcedure 'Create and add a parameter to Parameters collection for the stored procedure. MyDataAdapter.SelectCommand.Parameters.Add(New SqlParameter("@Status ", SqlDbType.Bit)) MyDataAdapter.SelectCommand.Parameters("@Status ").Value = True MyDataAdapter.Fill(dts) 'Fill the DataSet with the rows returned. Catch ex As Exception Throw ex End Try Return dts End Function Public Function SelectPromoLibraryByID(ByVal bigPromoLibrary_ID As Int32) As DataSet Dim dtsCart As DataSet = New DataSet Dim conn As SqlConnection = globConn Dim dts As DataSet = New DataSet Dim MyDataAdapter As SqlDataAdapter Try 'Create a DataAdapter, and then provide the name of the stored procedure. MyDataAdapter = New SqlDataAdapter("bigSelectPromoLibraryByID", conn) 'Set the command type as StoredProcedure. MyDataAdapter.SelectCommand.CommandType = CommandType.StoredProcedure 'Create and add a parameter to Parameters collection for the stored procedure. MyDataAdapter.SelectCommand.Parameters.Add(New SqlParameter("@bigPromoLibrary_ID ", SqlDbType.Int)) MyDataAdapter.SelectCommand.Parameters("@bigPromoLibrary_ID ").Value = bigPromoLibrary_ID MyDataAdapter.Fill(dts) 'Fill the DataSet with the rows returned. Catch ex As Exception Throw ex End Try Return dts End Function Public Function InsertPromoLibrary(ByVal Title As String, _ ByVal Description As String, _ ByVal DatePosted As DateTime, _ ByVal [New] As String, _ ByVal Hot As String, _ ByVal KeyWord As String, _ ByVal KeyWordMatch As String, _ ByVal StationPromoExample As String, _ ByVal StationTapeExample As String, _ ByVal ExampleSource As String, _ ByVal PromoSource As String, _ ByVal Produced As String, _ ByVal References1 As String, _ ByVal Status As Boolean, _ ByVal Producer As String, _ ByVal Story As String, _ ByVal Promotion As String) As Int32 Dim conn As SqlConnection = globConn Dim MyDataCmd As SqlCommand Try conn.Open() Session("newData") = Nothing 'Create a DataAdapter, and then provide the name of the stored procedure. MyDataCmd = New SqlCommand("bigInsertPromoLibrary", conn) 'Set the command type as StoredProcedure. MyDataCmd.CommandType = CommandType.StoredProcedure 'Create and add a parameter to Parameters collection for the stored procedure. MyDataCmd.Parameters.Add(New SqlParameter("@DatePosted ", SqlDbType.DateTime)) MyDataCmd.Parameters("@DatePosted ").Value = DatePosted MyDataCmd.Parameters.Add(New SqlParameter("@New", SqlDbType.VarChar)) MyDataCmd.Parameters("@New").Value = [New] MyDataCmd.Parameters.Add(New SqlParameter("@Hot", SqlDbType.VarChar)) MyDataCmd.Parameters("@Hot").Value = Hot MyDataCmd.Parameters.Add(New SqlParameter("@KeyWord", SqlDbType.VarChar)) MyDataCmd.Parameters("@KeyWord").Value = KeyWord MyDataCmd.Parameters.Add(New SqlParameter("@KeyWordMatch", SqlDbType.VarChar)) MyDataCmd.Parameters("@KeyWordMatch").Value = KeyWordMatch MyDataCmd.Parameters.Add(New SqlParameter("@StationPromoExample", SqlDbType.VarChar)) MyDataCmd.Parameters("@StationPromoExample").Value = StationPromoExample MyDataCmd.Parameters.Add(New SqlParameter("@StationTapeExample", SqlDbType.VarChar)) MyDataCmd.Parameters("@StationTapeExample").Value = StationTapeExample MyDataCmd.Parameters.Add(New SqlParameter("@ExampleSource", SqlDbType.VarChar)) MyDataCmd.Parameters("@ExampleSource").Value = ExampleSource MyDataCmd.Parameters.Add(New SqlParameter("@PromoSource", SqlDbType.VarChar)) MyDataCmd.Parameters("@PromoSource").Value = PromoSource MyDataCmd.Parameters.Add(New SqlParameter("@Produced", SqlDbType.VarChar)) MyDataCmd.Parameters("@Produced").Value = Produced MyDataCmd.Parameters.Add(New SqlParameter("@References1", SqlDbType.VarChar)) MyDataCmd.Parameters("@References1").Value = References1 MyDataCmd.Parameters.Add(New SqlParameter("@Status", SqlDbType.Bit)) MyDataCmd.Parameters("@Status").Value = Status MyDataCmd.Parameters.Add(New SqlParameter("@Producer", SqlDbType.VarChar)) MyDataCmd.Parameters("@Producer").Value = Producer MyDataCmd.Parameters.Add(New SqlParameter("@Story", SqlDbType.VarChar)) MyDataCmd.Parameters("@Story").Value = Story MyDataCmd.Parameters.Add(New SqlParameter("@Promotion", SqlDbType.VarChar)) MyDataCmd.Parameters("@Promotion").Value = Promotion MyDataCmd.Parameters.Add(New SqlParameter("@Description", SqlDbType.Text)) MyDataCmd.Parameters("@Description").Value = Description MyDataCmd.Parameters.Add(New SqlParameter("@Title", SqlDbType.VarChar)) MyDataCmd.Parameters("@Title").Value = Title MyDataCmd.Parameters.Add(New SqlParameter("@DateEntered", SqlDbType.DateTime)) MyDataCmd.Parameters("@DateEntered").Value = Date.Now MyDataCmd.Parameters.Add(New SqlParameter("@LastModified", SqlDbType.DateTime)) MyDataCmd.Parameters("@LastModified").Value = Date.Now MyDataCmd.Parameters.Add(New SqlParameter("@bigPromoLibrary_ID", SqlDbType.Int)) MyDataCmd.Parameters("@bigPromoLibrary_ID").Direction = ParameterDirection.Output MyDataCmd.ExecuteNonQuery() Session("newData") = MyDataCmd.Parameters.Item("@bigPromoLibrary_ID").Value Return MyDataCmd.Parameters.Item("@bigPromoLibrary_ID").Value conn.Close() conn = Nothing Catch ex As Exception Throw ex End Try End Function Public Function UpdatePromoLibrary(ByVal Title As String, _ ByVal Description As String, _ ByVal DatePosted As DateTime, _ ByVal [New] As String, _ ByVal Hot As String, _ ByVal KeyWord As String, _ ByVal KeyWordMatch As String, _ ByVal StationPromoExample As String, _ ByVal StationTapeExample As String, _ ByVal ExampleSource As String, _ ByVal PromoSource As String, _ ByVal Produced As String, _ ByVal References1 As String, _ ByVal Status As Boolean, _ ByVal Producer As String, _ ByVal Story As String, _ ByVal Promotion As String, _ ByVal bigPromoLibrary_ID As Int32) As Int32 Dim conn As SqlConnection = globConn Dim MyDataCmd As SqlCommand = New SqlCommand("bigUpdatePromoLibrary", conn) Dim dts As DataSet = New DataSet Try MyDataCmd.CommandType = CommandType.StoredProcedure MyDataCmd.Parameters.Add(New SqlParameter("@DatePosted ", SqlDbType.SmallDateTime)) MyDataCmd.Parameters("@DatePosted ").Value = DatePosted MyDataCmd.Parameters.Add(New SqlParameter("@New", SqlDbType.VarChar)) MyDataCmd.Parameters("@New").Value = [New] MyDataCmd.Parameters.Add(New SqlParameter("@Hot", SqlDbType.VarChar)) MyDataCmd.Parameters("@Hot").Value = Hot MyDataCmd.Parameters.Add(New SqlParameter("@KeyWord", SqlDbType.VarChar)) MyDataCmd.Parameters("@KeyWord").Value = KeyWord MyDataCmd.Parameters.Add(New SqlParameter("@KeyWordMatch", SqlDbType.VarChar)) MyDataCmd.Parameters("@KeyWordMatch").Value = KeyWordMatch MyDataCmd.Parameters.Add(New SqlParameter("@StationPromoExample", SqlDbType.VarChar)) MyDataCmd.Parameters("@StationPromoExample").Value = StationPromoExample MyDataCmd.Parameters.Add(New SqlParameter("@StationTapeExample", SqlDbType.VarChar)) MyDataCmd.Parameters("@StationTapeExample").Value = StationTapeExample MyDataCmd.Parameters.Add(New SqlParameter("@ExampleSource", SqlDbType.VarChar)) MyDataCmd.Parameters("@ExampleSource").Value = ExampleSource MyDataCmd.Parameters.Add(New SqlParameter("@PromoSource", SqlDbType.VarChar)) MyDataCmd.Parameters("@PromoSource").Value = PromoSource MyDataCmd.Parameters.Add(New SqlParameter("@Produced", SqlDbType.VarChar)) MyDataCmd.Parameters("@Produced").Value = Produced MyDataCmd.Parameters.Add(New SqlParameter("@References1", SqlDbType.VarChar)) MyDataCmd.Parameters("@References1").Value = References1 MyDataCmd.Parameters.Add(New SqlParameter("@Status", SqlDbType.Bit)) MyDataCmd.Parameters("@Status").Value = Status MyDataCmd.Parameters.Add(New SqlParameter("@Producer", SqlDbType.VarChar)) MyDataCmd.Parameters("@Producer").Value = Producer MyDataCmd.Parameters.Add(New SqlParameter("@Story", SqlDbType.VarChar)) MyDataCmd.Parameters("@Story").Value = Story MyDataCmd.Parameters.Add(New SqlParameter("@Promotion", SqlDbType.VarChar)) MyDataCmd.Parameters("@Promotion").Value = Promotion MyDataCmd.Parameters.Add(New SqlParameter("@Description", SqlDbType.Text)) MyDataCmd.Parameters("@Description").Value = Description MyDataCmd.Parameters.Add(New SqlParameter("@Title", SqlDbType.VarChar)) MyDataCmd.Parameters("@Title").Value = Title MyDataCmd.Parameters.Add(New SqlParameter("@LastModified", SqlDbType.DateTime)) MyDataCmd.Parameters("@LastModified").Value = Date.Now MyDataCmd.Parameters.Add(New SqlParameter("@bigPromoLibrary_ID", SqlDbType.Int)) MyDataCmd.Parameters("@bigPromoLibrary_ID").Value = bigPromoLibrary_ID conn.Open() MyDataCmd.ExecuteNonQuery() conn.Close() conn = Nothing Catch ex As Exception Throw ex End Try Return True End Function 'overloaded with DateEntered Public Function UpdatePromoLibrary(ByVal Title As String, _ ByVal Description As String, _ ByVal DateEntered As DateTime, _ ByVal DatePosted As DateTime, _ ByVal [New] As String, _ ByVal Hot As String, _ ByVal KeyWord As String, _ ByVal KeyWordMatch As String, _ ByVal StationPromoExample As String, _ ByVal StationTapeExample As String, _ ByVal ExampleSource As String, _ ByVal PromoSource As String, _ ByVal Produced As String, _ ByVal References1 As String, _ ByVal Status As Boolean, _ ByVal Producer As String, _ ByVal Story As String, _ ByVal Promotion As String, _ ByVal bigPromoLibrary_ID As Int32) As Int32 Dim conn As SqlConnection = globConn Dim MyDataCmd As SqlCommand = New SqlCommand("bigUpdatePromoLibraryV2", conn) Dim dts As DataSet = New DataSet Try MyDataCmd.CommandType = CommandType.StoredProcedure MyDataCmd.Parameters.Add(New SqlParameter("@DatePosted ", SqlDbType.SmallDateTime)) MyDataCmd.Parameters("@DatePosted ").Value = DatePosted MyDataCmd.Parameters.Add(New SqlParameter("@DateEntered ", SqlDbType.SmallDateTime)) MyDataCmd.Parameters("@DateEntered ").Value = DateEntered MyDataCmd.Parameters.Add(New SqlParameter("@New", SqlDbType.VarChar)) MyDataCmd.Parameters("@New").Value = [New] MyDataCmd.Parameters.Add(New SqlParameter("@Hot", SqlDbType.VarChar)) MyDataCmd.Parameters("@Hot").Value = Hot MyDataCmd.Parameters.Add(New SqlParameter("@KeyWord", SqlDbType.VarChar)) MyDataCmd.Parameters("@KeyWord").Value = KeyWord MyDataCmd.Parameters.Add(New SqlParameter("@KeyWordMatch", SqlDbType.VarChar)) MyDataCmd.Parameters("@KeyWordMatch").Value = KeyWordMatch MyDataCmd.Parameters.Add(New SqlParameter("@StationPromoExample", SqlDbType.VarChar)) MyDataCmd.Parameters("@StationPromoExample").Value = StationPromoExample MyDataCmd.Parameters.Add(New SqlParameter("@StationTapeExample", SqlDbType.VarChar)) MyDataCmd.Parameters("@StationTapeExample").Value = StationTapeExample MyDataCmd.Parameters.Add(New SqlParameter("@ExampleSource", SqlDbType.VarChar)) MyDataCmd.Parameters("@ExampleSource").Value = ExampleSource MyDataCmd.Parameters.Add(New SqlParameter("@PromoSource", SqlDbType.VarChar)) MyDataCmd.Parameters("@PromoSource").Value = PromoSource MyDataCmd.Parameters.Add(New SqlParameter("@Produced", SqlDbType.VarChar)) MyDataCmd.Parameters("@Produced").Value = Produced MyDataCmd.Parameters.Add(New SqlParameter("@References1", SqlDbType.VarChar)) MyDataCmd.Parameters("@References1").Value = References1 MyDataCmd.Parameters.Add(New SqlParameter("@Status", SqlDbType.Bit)) MyDataCmd.Parameters("@Status").Value = Status MyDataCmd.Parameters.Add(New SqlParameter("@Producer", SqlDbType.VarChar)) MyDataCmd.Parameters("@Producer").Value = Producer MyDataCmd.Parameters.Add(New SqlParameter("@Story", SqlDbType.VarChar)) MyDataCmd.Parameters("@Story").Value = Story MyDataCmd.Parameters.Add(New SqlParameter("@Promotion", SqlDbType.VarChar)) MyDataCmd.Parameters("@Promotion").Value = Promotion MyDataCmd.Parameters.Add(New SqlParameter("@Description", SqlDbType.Text)) MyDataCmd.Parameters("@Description").Value = Description MyDataCmd.Parameters.Add(New SqlParameter("@Title", SqlDbType.VarChar)) MyDataCmd.Parameters("@Title").Value = Title MyDataCmd.Parameters.Add(New SqlParameter("@LastModified", SqlDbType.DateTime)) MyDataCmd.Parameters("@LastModified").Value = Date.Now MyDataCmd.Parameters.Add(New SqlParameter("@bigPromoLibrary_ID", SqlDbType.Int)) MyDataCmd.Parameters("@bigPromoLibrary_ID").Value = bigPromoLibrary_ID conn.Open() MyDataCmd.ExecuteNonQuery() conn.Close() conn = Nothing Catch ex As Exception Throw ex End Try Return True End Function Public Function DeletePromoLibrary(ByVal bigPromoLibrary_ID As Int32) As Boolean Dim conn As SqlConnection = globConn Dim adt As SqlCommand = New SqlCommand("bigDeletePromoLibrary", conn) Dim dts As DataSet = New DataSet Try adt.CommandType = CommandType.StoredProcedure adt.Parameters.Add(New SqlParameter("@bigPromoLibrary_ID", SqlDbType.Int)) adt.Parameters("@bigPromoLibrary_ID").Value = bigPromoLibrary_ID conn.Open() adt.ExecuteNonQuery() conn.Close() conn = Nothing 'dts = selectContent(storeID, pageID) Catch ex As Exception Throw ex End Try Return True End Function End Class Public Class bigStoryPDF Inherits System.Web.UI.Page Public globConn As New SqlConnection(WebConfigurationManager.ConnectionStrings("broadcastImageConnectionString").ConnectionString) Public Function SelectPromoPDFAll() As DataSet Dim dtsCart As DataSet = New DataSet Dim conn As SqlConnection = globConn Dim dts As DataSet = New DataSet Dim MyDataAdapter As SqlDataAdapter Try 'Create a DataAdapter, and then provide the name of the stored procedure. MyDataAdapter = New SqlDataAdapter("bigSelectPromoPDFAll", conn) 'Set the command type as StoredProcedure. MyDataAdapter.SelectCommand.CommandType = CommandType.StoredProcedure 'Create and add a parameter to Parameters collection for the stored procedure. MyDataAdapter.Fill(dts) 'Fill the DataSet with the rows returned. Catch ex As Exception Throw ex End Try Return dts 'Insert new Link End Function Public Function SelectPromoPDFByID(ByVal bigPromoPDF_id As Int32) As DataSet Dim dtsCart As DataSet = New DataSet Dim conn As SqlConnection = globConn Dim dts As DataSet = New DataSet Dim MyDataAdapter As SqlDataAdapter Try 'Create a DataAdapter, and then provide the name of the stored procedure. MyDataAdapter = New SqlDataAdapter("bigSelectPromoPDFByID", conn) 'Set the command type as StoredProcedure. MyDataAdapter.SelectCommand.CommandType = CommandType.StoredProcedure 'Create and add a parameter to Parameters collection for the stored procedure. MyDataAdapter.SelectCommand.Parameters.Add(New SqlParameter("@bigPromoPDF_id ", SqlDbType.Int)) MyDataAdapter.SelectCommand.Parameters("@bigPromoPDF_id ").Value = bigPromoPDF_id MyDataAdapter.Fill(dts) 'Fill the DataSet with the rows returned. Catch ex As Exception Throw ex End Try Return dts 'Insert new Link End Function Public Function SelectPromoPDFByUniqueID(ByVal bigPromoPDF_id As Int32) As DataSet Dim dtsCart As DataSet = New DataSet Dim conn As SqlConnection = globConn Dim dts As DataSet = New DataSet Dim MyDataAdapter As SqlDataAdapter Try 'Create a DataAdapter, and then provide the name of the stored procedure. MyDataAdapter = New SqlDataAdapter("bigSelectPromoPDFByUniqueID", conn) 'Set the command type as StoredProcedure. MyDataAdapter.SelectCommand.CommandType = CommandType.StoredProcedure 'Create and add a parameter to Parameters collection for the stored procedure. MyDataAdapter.SelectCommand.Parameters.Add(New SqlParameter("@bigPromoPDF_id ", SqlDbType.Int)) MyDataAdapter.SelectCommand.Parameters("@bigPromoPDF_id ").Value = bigPromoPDF_id MyDataAdapter.Fill(dts) 'Fill the DataSet with the rows returned. Catch ex As Exception Throw ex End Try Return dts 'Insert new Link End Function Public Function InsertPromoPDF(ByVal bigPromoLibrary_ID As Int32, ByVal pdfTitle As String, ByVal pdfFileName As String) As Int32 Dim conn As SqlConnection = globConn Dim MyDataCmd As SqlCommand Try conn.Open() 'Create a DataAdapter, and then provide the name of the stored procedure. MyDataCmd = New SqlCommand("bigInsertPromoPDF", conn) 'Set the command type as StoredProcedure. MyDataCmd.CommandType = CommandType.StoredProcedure 'Create and add a parameter to Parameters collection for the stored procedure. MyDataCmd.Parameters.Add(New SqlParameter("@datePosted ", SqlDbType.DateTime)) MyDataCmd.Parameters("@datePosted ").Value = Date.Now MyDataCmd.Parameters.Add(New SqlParameter("@dateChanged ", SqlDbType.DateTime)) MyDataCmd.Parameters("@dateChanged ").Value = Date.Now MyDataCmd.Parameters.Add(New SqlParameter("@bigPromoLibrary_ID", SqlDbType.Int)) MyDataCmd.Parameters("@bigPromoLibrary_ID").Value = bigPromoLibrary_ID MyDataCmd.Parameters.Add(New SqlParameter("@pdfTitle", SqlDbType.VarChar, 100)) MyDataCmd.Parameters("@pdfTitle").Value = pdfTitle MyDataCmd.Parameters.Add(New SqlParameter("@pdfFileName", SqlDbType.VarChar, 100)) MyDataCmd.Parameters("@pdfFileName").Value = pdfFileName MyDataCmd.Parameters.Add(New SqlParameter("@bigPromoPDF_ID", SqlDbType.VarChar, 100)) MyDataCmd.Parameters("@bigPromoPDF_ID").Direction = ParameterDirection.Output MyDataCmd.ExecuteNonQuery() Return MyDataCmd.Parameters.Item("@bigPromoPDF_ID").Value conn.Close() conn = Nothing Catch ex As Exception Throw ex End Try End Function Public Function UpdatePromoPDF(ByVal bigPromoPDF_id As Int32, ByVal pdfTitle As String, ByVal pdfFileName As String) As Boolean Dim conn As SqlConnection = globConn Dim MyDataCmd As SqlCommand = New SqlCommand("bigUpdatePromoPDF", conn) Dim dts As DataSet = New DataSet Try MyDataCmd.CommandType = CommandType.StoredProcedure MyDataCmd.Parameters.Add(New SqlParameter("@dateChanged ", SqlDbType.DateTime)) MyDataCmd.Parameters("@dateChanged ").Value = Date.Now MyDataCmd.Parameters.Add(New SqlParameter("@pdfTitle", SqlDbType.VarChar)) MyDataCmd.Parameters("@pdfTitle").Value = pdfTitle MyDataCmd.Parameters.Add(New SqlParameter("@pdfFileName", SqlDbType.VarChar)) MyDataCmd.Parameters("@pdfFileName").Value = pdfFileName MyDataCmd.Parameters.Add(New SqlParameter("@bigPromoPDF_ID", SqlDbType.VarChar)) MyDataCmd.Parameters("@bigPromoPDF_ID").Value = bigPromoPDF_id conn.Open() MyDataCmd.ExecuteNonQuery() conn.Close() conn = Nothing 'dts = selectContent(storeID, pageID) Catch ex As Exception Throw ex End Try Return True End Function Public Function DeletePromoPDF(ByVal bigPromoPDF_id As Int16) As Boolean Dim conn As SqlConnection = globConn Dim adt As SqlCommand = New SqlCommand("bigDeletePromoPDF", conn) Dim dts As DataSet = New DataSet Try adt.CommandType = CommandType.StoredProcedure adt.Parameters.Add(New SqlParameter("@bigPromoPDF_id", SqlDbType.Int)) adt.Parameters("@bigPromoPDF_id").Value = bigPromoPDF_id conn.Open() adt.ExecuteNonQuery() conn.Close() conn = Nothing 'dts = selectContent(storeID, pageID) Catch ex As Exception Throw ex End Try Return True End Function Public Function DeletePromoPDFGroup(ByVal bigPromoLibrary_ID As Int16) As Boolean Dim conn As SqlConnection = globConn Dim adt As SqlCommand = New SqlCommand("bigDeletePromoPDFGroup", conn) Dim dts As DataSet = New DataSet Try adt.CommandType = CommandType.StoredProcedure adt.Parameters.Add(New SqlParameter("@bigPromoLibrary_ID", SqlDbType.Int)) adt.Parameters("@bigPromoLibrary_ID").Value = bigPromoLibrary_ID conn.Open() adt.ExecuteNonQuery() conn.Close() conn = Nothing 'dts = selectContent(storeID, pageID) Catch ex As Exception Throw ex End Try Return True End Function End Class End Namespace