Hey all,
I am developing a workshop registration system, and am new to ASP .NET.
On my first page, I want to list the "categories " available along with the
number of "workshops" related to that category. I have it working, but want
to know if there is a better way to do this. I have listed the code below,
any help would be VERY much appreciated.
----- CODE FOR MAIN PAGE -----
<%@ Page Language="vb" AutoEventWireup ="false"
Codebehind="wor kshop_registrat ion_system.aspx .vb"
Inherits="Works hop_Registratio n_System.Worksh op_Registration _System"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>Worksh op Registration System | View Categories</title>
<meta content="Micros oft Visual Studio .NET 7.1" name="GENERATOR ">
<meta content="Visual Basic .NET 7.1" name="CODE_LANG UAGE">
<meta content="JavaSc ript" name="vs_defaul tClientScript">
<meta content="http://schemas.microso ft.com/intellisense/ie5"
name="vs_target Schema">
</HEAD>
<body MS_POSITIONING= "FlowLayout ">
<form id="Form1" method="post" runat="server">
<p align="center"> <font face="Arial" color="#800000" size="4"><b>Wel come
to the IUSD
Workshop Registration System, v1.00</b></font></p>
<p align="center"> <asp:datalist id="dlWorkshop_ Category_Select ions"
runat="server" BorderColor="#C C9966" BorderStyle="No ne"
BorderWidth="1p x" BackColor="Whit e" CellPadding="2" GridLines="Both "
Width="500px" RepeatColumns=" 2">
<SelectedItemSt yle Font-Bold="True" Wrap="False" ForeColor="#663 399"
BackColor="#FFC C66"></SelectedItemSty le>
<HeaderTemplate >
Please select a workshop category from below
</HeaderTemplate>
<ItemStyle Font-Size="10pt" Font-Names="Arial" Wrap="False"
ForeColor="#330 099" BackColor="Whit e"></ItemStyle>
<ItemTemplate >
<A href='<%# Databinder.Eval (Container.Data Item, "ID",
"view_category. aspx?workshop_c ategory_id={0}& category_name=" ) %><%#
Databinder.Eval (Container.Data Item, "Short_Name ") %> '>
<asp:Label id="lblWorkshop _Category_Title " runat="server" Text='<%#
Databinder.Eval (Container.Data Item, "Short_Name ") %>'>
</asp:Label>
(<asp:Label id="lblWorkshop _Category_Works hops_Count" runat="server">
</asp:Label> workshops)</A>
</ItemTemplate>
<FooterStyle ForeColor="#330 099" BackColor="#FFF FCC"></FooterStyle>
<HeaderStyle Font-Bold="True" Wrap="False" ForeColor="#FFF FCC"
BackColor="#990 000"></HeaderStyle>
</asp:datalist></p>
</form>
</body>
</HTML>
----- CODEBEHIND FOR MAIN PAGE -----
Imports System.Data.Sql Client
Public Class Workshop_Regist ration_System
Inherits System.Web.UI.P age
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnos tics.DebuggerSt epThrough()> Private Sub
InitializeCompo nent()
End Sub
Protected WithEvents dlWorkshop_Cate gory_Selections As
System.Web.UI.W ebControls.Data List
Protected WithEvents lblWorkshop_Cat egory_Title As
System.Web.UI.W ebControls.Labe l
Protected WithEvents lblWorkshop_Cat egory_Workshops _Count As
System.Web.UI.W ebControls.Labe l
'NOTE: The following placeholder declaration is required by the Web Form
Designer.
'Do not delete or move it.
Private designerPlaceho lderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeCompo nent()
End Sub
#End Region
Dim dsWorkshop_Cate gories As DataSet
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
'Put user code to initialize the page here
If Not Page.IsPostBack Then
Dim daWorkshop_Cate gories As New SqlDataAdapter
daWorkshop_Cate gories =
DataHandler.Get DataAdapter("sp GetCategory_Sel ections", "Training_Syste m")
daWorkshop_Cate gories.SelectCo mmand.CommandTy pe =
CommandType.Sto redProcedure
' Create and add an output parameter to Parameters collection, then
' set the direction for the parameter. This parameter returns the Rows
returned.
daWorkshop_Cate gories.SelectCo mmand.Parameter s.Add(New
SqlParameter("@ RowCount", SqlDbType.Int, 4))
daWorkshop_Cate gories.SelectCo mmand.Parameter s("@RowCount"). Direction =
ParameterDirect ion.Output
dsWorkshop_Cate gories = New DataSet
daWorkshop_Cate gories.Fill(dsW orkshop_Categor ies,
"tblWorkshop_Ca tegories")
dsWorkshop_Cate gories.Tables(0 ).TableName = "Workshop_Categ ories"
dsWorkshop_Cate gories.Tables(1 ).TableName = "Workshop_Selec tions"
With dlWorkshop_Cate gory_Selections
.DataSource = dsWorkshop_Cate gories
.DataBind()
End With
daWorkshop_Cate gories.Dispose( )
DataHandler.Clo se_DBConn(DataH andler.cnnDBCon n)
End If
End Sub
Private Sub dlWorkshop_Cate gory_Selections _ItemDataBound( ByVal sender As
Object, ByVal e As System.Web.UI.W ebControls.Data ListItemEventAr gs) Handles
dlWorkshop_Cate gory_Selections .ItemDataBound
If e.Item.ItemType = ListItemType.It em Or e.Item.ItemType =
ListItemType.Al ternatingItem Then
Dim dvWorkshop_Sele ctions As DataView =
dsWorkshop_Cate gories.Tables(" Workshop_Select ions").DefaultV iew
dvWorkshop_Sele ctions.RowFilte r = "Workshop_Categ ory_ID = '" &
Convert.ToStrin g(CType(e.Item. DataItem, DataRowView).Ro w.Item("ID")) & "'"
Dim lblToChange As Label
lblToChange =
DirectCast(e.It em.FindControl( "lblWorkshop_Ca tegory_Workshop s_Count"),
Label)
lblToChange.Tex t = dvWorkshop_Sele ctions.Count.To String
End If
End Sub
End Class
----- SQL Stored Procedure -----
ALTER PROCEDURE dbo.spGetCatego ry_Selections
(
@RowCount int output
)
AS
SELECT ID, Short_Name, Long_Name FROM tblWorkshop_Cat egory_Selection s WHERE
(Active = 1) AND (Status_ID = 1) ORDER BY Short_Name;
SELECT @RowCount = @@ROWCOUNT
SELECT * FROM tblWorkshop_Sel ections;
RETURN
