减少asp.net vb文件的代码请帮忙 [英] reduse the code of the asp.net vb file please help
本文介绍了减少asp.net vb文件的代码请帮忙的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="busbooking.aspx.vb" Inherits="Transport_Management_busbooking" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>Bus Booking System</title>
<style type="text/css">
#form1
{
height: 87px;
}
.style1
{
width: 186px;
}
.style2
{
}
.style4
{
}
.style5
{
width: 148px;
}
.style6
{
width: 22px;
}
.style7
{
width: 6px;
}
.style8
{
width: 25px;
}
.style9
{
width: 39px;
}
.style10
{
width: 30px;
}
.style12
{
width: 41px;
}
.style13
{
width: 34px;
}
.style14
{
}
.style15
{
}
.style16
{
width: 17px;
}
.style18
{
width: 27px;
}
.style19
{
width: 28px;
}
.style21
{
width: 79px;
}
.style22
{
width: 85px;
}
.style25
{
}
.style26
{
width: 123px;
height: 23px;
}
.style27
{
height: 23px;
}
.style28
{
width: 168px;
}
.style29
{
height: 23px;
width: 168px;
}
.style31
{
width: 148px;
height: 26px;
}
.style32
{
height: 26px;
}
.style34
{
width: 148px;
height: 24px;
}
.style35
{
width: 6px;
height: 27px;
}
.style36
{
width: 25px;
height: 27px;
}
.style38
{
width: 30px;
height: 27px;
}
.style39
{
width: 27px;
height: 27px;
}
.style41
{
width: 34px;
height: 27px;
}
.style42
{
}
.style47
{
width: 79px;
height: 27px;
}
.style48
{
width: 84px;
}
.style50
{
width: 57px;
height: 27px;
}
.style51
{
width: 57px;
}
.style54
{
height: 24px;
}
.style55
{
width: 148px;
height: 23px;
}
</style>
</head>
<form id="form1" runat="server">
<h1>
Online Bus Booking</h1>
<asp:panel id="panel_label" runat="server" Visible="False">
<h2 align="left" style="color: #FF0000; font-size: large;">
Avaliable Buses</h2>
<asp:panel id="panel_route" runat="server" height="295px">
<table style="width:100%; height: 119px;">
<tr>
<td class="style1">
SOURCE/DESTINATION :</td>
<td>
<asp:DropDownList ID="dropdownlist_sourcedestination" runat="server"
Height="22px">
<asp:ListItem Value="0"><--- Choose Source/Destination --->
<asp:ListItem Value="1">ADITYANAGAR TO GULBURGA
<asp:ListItem Value="2">GULBURGA TO ADITYANAGAR
</td>
<td>
</td>
</tr>
<tr>
<td class="style1">
DATE OF JOURNEY:</td>
<td>
<asp:TextBox ID="textbox_date" runat="server" Width="238px">
<asp:ImageButton ID="imagebutton_calendar" runat="server" Height="28px"
ImageUrl="~/Transport_Management/images/calendar.jpg" Width="31px" />
<asp:Calendar ID="Calendar_bookingdate" runat="server" BackColor="White"
BorderColor="#3366CC" BorderWidth="1px" CellPadding="1"
DayNameFormat="Shortest" Font-Names="Verdana" Font-Size="8pt"
ForeColor="#003399" Height="200px" Visible="False" Width="220px">
<SelectedDayStyle BackColor="#009999" Font-Bold="True" ForeColor="#CCFF99" />
<SelectorStyle BackColor="#99CCCC" ForeColor="#336666" />
<weekenddaystyle backcolor="#CCCCFF" />
<todaydaystyle backcolor="#99CCCC" forecolor="White" />
<othermonthdaystyle forecolor="#999999" />
<nextprevstyle font-size="8pt" forecolor="#CCCCFF" />
<dayheaderstyle backcolor="#99CCCC" forecolor="#336666" height="1px" />
<TitleStyle BackColor="#003399" BorderColor="#3366CC" BorderWidth="1px"
Font-Bold="True" Font-Size="10pt" ForeColor="#CCCCFF" Height="25px" />
</td>
<td>
</td>
</tr>
<tr>
<td class="style1">
<asp:Button ID="button_search" runat="server" BackColor="Red" BorderColor="Red"
Font-Bold="False" Font-Names="Times New Roman" Font-Size="Medium"
ForeColor="White" Height="30px" Text="Search Buses" Width="121px" />
</td>
<td>
</td>
<td>
</td>
</tr>
</table>
<asp:panel id="panel_bus_1000" runat="server" height="175px" visible="False" width="593px">
<table style="width:99%; color: #0000FF; height: 165px;" align="center">
<tr align="center" bgcolor="#FF3300" style="color: #000000">
<td align="center" bgcolor="#FF3300" class="style2" style="color: #FFFFFF">
BUS TYPE</td>
<td class="style5" style="color: #FFFFFF">
ARR /DEP. HOURS</td>
<td class="style4" style="color: #FFFFFF">
SEATS</td>
<td style="color: #FFFFFF">
FARE</td>
</tr>
<tr>
<td class="style2">
</td>
<td class="style5">
Dep. : 10 : 00 A.M</td>
<td class="style4" align="center">
style="color: #808080; background-color: #FFFFFF">
31 Seats</td>
<td>
Employee :- Rs 20 /-</td>
</tr>
<tr>
<td class="style2">
A/C Seater (2/2)</td>
<td class="style5">
Arr. : 04 : 30 P.M</td>
<td class="style4" align="center">
style="background-color: #C0C0C0; color: #666666">
12 Window</td>
<td>
Guest :- Rs 20 /-</td>
</tr>
<tr>
<td class="style2">
</td>
<td class="style5">
</td>
<td class="style4">
</td>
<td>
Student :- Rs 20 /-</td>
</tr>
<tr>
<td class="style2">
</td>
<td class="style5">
</td>
<td class="style4">
</td>
<td>
Others:- Rs 20 /-</td>
</tr>
<tr>
<td class="style2">
<asp:Button ID="button_viewseats3" runat="server" BackColor="Red"
BorderColor="Red" Font-Bold="False" Font-Names="Times New Roman"
Font-Size="Medium" ForeColor="White" Height="30px" Text="View Seats"
Width="121px" />
</td>
<td class="style5">
</td>
<td class="style4">
</td>
<td>
</td>
</tr>
</table>
<asp:panel id="panel_bus_0815" runat="server" height="157px" visible="False"
width="593px">
<table style="width:99%; color: #0000FF; height: 5px;" align="center">
<tr align="center" bgcolor="#8CC5FF" style="color: #000000">
<td align="center" bgcolor="#8CC5FF" class="style2">
BUS TYPE</td>
<td class="style5">
ARR /DEP. HOURS</td>
<td class="style4">
SEATS</td>
<td>
FARE</td>
</tr>
<tr>
<td class="style2">
Omni Bus</td>
<td class="style5">
Dep. : 08 : 15 A.M</td>
<td class="style4" align="center">
style="color: #808080; background-color: #FFFFFF">
50 Seats</td>
<td>
Employee :- Rs 14 /-</td>
</tr>
<tr>
<td class="style2">
Non A/C Seater (2/2)</td>
<td class="style5">
Arr. : 04 : 30 P.M</td>
<td class="style4" align="center">
style="background-color: #C0C0C0; color: #666666">
20 Window</td>
<td>
Guest :- Rs 23 /-</td>
</tr>
<tr>
<td class="style2">
</td>
<td class="style5">
</td>
<td class="style4">
</td>
<td>
Student :- Rs 7 /-</td>
</tr>
<tr>
<td class="style2">
</td>
<td class="style5">
</td>
<td class="style4">
</td>
<td>
Others:- Rs 30 /-</td>
</tr>
<tr>
<td class="style2">
<asp:Button ID="button_viewseats1" runat="server" BackColor="Red"
BorderColor="Red" Font-Bold="False" Font-Names="Times New Roman"
Font-Size="Medium" ForeColor="White" Height="30px" Text="View Seats"
Width="121px" />
</td>
<td class="style5">
</td>
<td class="style4">
</td>
<td>
</td>
</tr>
</table>
<asp:panel id="panel_bus_0230" runat="server" height="179px" visible="False"
width="593px">
<table style="width:99%; color: #0000FF; height: 148px;" align="center">
<tr align="center" bgcolor="#8CC5FF" style="color: #000000">
<td align="center" bgcolor="#8CC5FF" class="style2">
BUS TYPE</td>
<td class="style5">
ARR /DEP. HOURS</td>
<td class="style4">
SEATS</td>
<td>
FARE</td>
</tr>
<tr>
<td class="style32">
Omni Bus</td>
<td class="style31">
Dep. : 02 : 30 P.M</td>
<td class="style32" align="center">
style="color: #808080; background-color: #FFFFFF">
50 Seats</td>
<td class="style32">
Employee :- Rs 14 /-</td>
</tr>
<tr>
<td class="style2">
Non A/C Seater (2/2)</td>
<td class="style5">
Arr. : 11 : 30 P.M</td>
<td class="style4" align="center">
style="background-color: #C0C0C0; color: #666666">
20 Window</td>
<td>
Guest :- Rs 23 /-</td>
</tr>
<tr>
<td class="style2">
</td>
<td class="style5">
</td>
<td class="style4">
</td>
<td>
Student :- Rs 7 /-</td>
</tr>
<tr>
<td class="style27">
</td>
<td class="style55">
</td>
<td class="style27">
</td>
<td class="style27">
Others:- Rs 30 /-</td>
</tr>
<tr>
<td class="style2">
<asp:Button ID="button_viewseats2" runat="server" BackColor="Red"
BorderColor="Red" Font-Bold="False" Font-Names="Times New Roman"
Font-Size="Medium" ForeColor="White" Height="30px" Text="View Seats"
Width="121px" />
</td>
<td class="style5">
</td>
<td class="style4">
</td>
<td>
</td>
</tr>
</table>
<asp:panel id="panel_retbus_1000" runat="server" height="175px" visible="False" width="593px">
<table style="width:99%; color: #0000FF; height: 165px;" align="center">
<tr align="center" bgcolor="#FF3300" style="color: #000000">
<td align="center" bgcolor="#FF3300" class="style2" style="color: #FFFFFF">
BUS TYPE</td>
<td class="style5" style="color: #FFFFFF">
ARR /DEP. HOURS</td>
<td class="style4" style="color: #FFFFFF">
SEATS</td>
<td style="color: #FFFFFF">
FARE</td>
</tr>
<tr>
<td class="style2">
</td>
<td class="style5">
Dep. : 06 : 00 P.M</td>
<td class="style4" align="center">
style="color: #808080; background-color: #FFFFFF">
31 Seats</td>
<td>
Employee :- Rs 20 /-</td>
</tr>
<tr>
<td class="style2">
A/C Seater (2/2)</td>
<td class="style5">
Arr. : 08 : 30 P.M</td>
<td class="style4" align="center">
style="background-color: #C0C0C0; color: #666666">
12 Window</td>
<td>
Guest :- Rs 20 /-</td>
</tr>
<tr>
<td class="style2">
</td>
<td class="style5">
</td>
<td class="style4">
</td>
<td>
Student :- Rs 20 /-</td>
</tr>
<tr>
<td class="style2">
</td>
<td class="style5">
</td>
<td class="style4">
</td>
<td>
Others:- Rs 20 /-</td>
</tr>
<tr>
<td class="style2">
<asp:Button ID="button_viewseats6" runat="server" BackColor="Red"
BorderColor="Red" Font-Bold="False" Font-Names="Times New Roman"
Font-Size="Medium" ForeColor="White" Height="30px" Text="View Seats"
Width="121px" />
</td>
<td class="style5">
</td>
<td class="style4">
</td>
<td>
</td>
</tr>
</table>
<asp:panel id="panel_retbus_0815" runat="server" height="157px" visible="False"
width="593px">
<table style="width:99%; color: #0000FF; height: 5px;" align="center">
<tr align="center" bgcolor="#8CC5FF" style="color: #000000">
<td align="center" bgcolor="#8CC5FF" class="style2">
BUS TYPE</td>
<td class="style5">
ARR /DEP. HOURS</td>
<td class="style4">
SEATS</td>
<td>
FARE</td>
</tr>
<tr>
<td class="style2">
Omni Bus</td>
<td class="style5">
Dep. : 04 : 30 P.M</td>
<td class="style4" align="center">
style="color: #808080; background-color: #FFFFFF">
50 Seats</td>
<td>
Employee :- Rs 14 /-</td>
</tr>
<tr>
<td class="style2">
Non A/C Seater (2/2)</td>
<td class="style5">
Arr. : 06 : 30 P.M</td>
<td class="style4" align="center">
style="background-color: #C0C0C0; color: #666666">
20 Window</td>
<td>
Guest :- Rs 23 /-</td>
</tr>
<tr>
<td class="style2">
</td>
<td class="style5">
</td>
<td class="style4">
</td>
<td>
Student :- Rs 7 /-</td>
</tr>
<tr>
<td class="style2">
</td>
<td class="style5">
</td>
<td class="style4">
</td>
<td>
Others:- Rs 30 /-</td>
</tr>
<tr>
<td class="style2">
<asp:Button ID="button_viewseats7" runat="server" BackColor="Red"
BorderColor="Red" Font-Bold="False" Font-Names="Times New Roman"
Font-Size="Medium" ForeColor="White" Height="30px" Text="View Seats"
Width="121px" />
</td>
<td class="style5">
</td>
<td class="style4">
</td>
<td>
</td>
</tr>
</table>
<asp:panel id="panel_retbus_0230" runat="server" height="179px" visible="False"
width="593px">
<table style="width:99%; color: #0000FF; height: 148px;" align="center">
<tr align="center" bgcolor="#8CC5FF" style="color: #000000">
<td align="center" bgcolor="#8CC5FF" class="style2">
BUS TYPE</td>
<td class="style5">
ARR /DEP. HOURS</td>
<td class="style4">
SEATS</td>
<td>
FARE</td>
</tr>
<tr>
<td class="style32">
Omni Bus</td>
<td class="style31">
Dep. : 07 : 30 P.M</td>
<td class="style32" align="center">
style="color: #808080; background-color: #FFFFFF">
50 Seats</td>
<td class="style32">
Employee :- Rs 14 /-</td>
</tr>
<tr>
<td class="style2">
Non A/C Seater (2/2)</td>
<td class="style5">
Arr. : 11 : 30 P.M</td>
<td class="style4" align="center">
style="background-color: #C0C0C0; color: #666666">
20 Window</td>
<td>
Guest :- Rs 23 /-</td>
</tr>
<tr>
<td class="style2">
</td>
<td class="style5">
</td>
<td class="style4">
</td>
<td>
Student :- Rs 7 /-</td>
</tr>
<tr>
<td class="style54">
</td>
<td class="style34">
</td>
<td class="style54">
</td>
<td class="style54">
Others:- Rs 30 /-</td>
</tr>
<tr>
<td class="style2">
<asp:Button ID="button_viewseats8" runat="server" BackColor="Red"
BorderColor="Red" Font-Bold="False" Font-Names="Times New Roman"
Font-Size="Medium" ForeColor="White" Height="30px" Text="View Seats"
Width="121px" />
</td>
<td class="style5">
</td>
<td class="style4">
</td>
<td>
</td>
</tr>
</table>
<asp:panel runat="server" ID="panel_empdata" Visible="False">
<table style="width:100%;">
<tr>
<td class="style25" colspan="3">
<h4> Please Provide Details :</h4></td>
</tr>
<tr>
<td class="style25">
Employee Number:
</td>
<td class="style28">
<asp:TextBox ID="TextBox_empno" runat="server" MaxLength="4">
</td>
<td>
<asp:RequiredFieldValidator ID="RequiredFieldValidator_empno" runat="server"
ControlToValidate="TextBox_empno" Display="Dynamic"
ErrorMessage="Employee Number Required" SetFocusOnError="True">
</td>
</tr>
<tr>
<td class="style26">
Guest:
</td>
<td class="style29">
<asp:DropDownList ID="DropDownList_guest" runat="server" AutoPostBack="True"
Height="22px" Width="98px">
<asp:ListItem><--Select-->
<asp:ListItem>0
<asp:ListItem>1
<asp:ListItem>2
<asp:ListItem>3
<asp:ListItem>4
<asp:ListItem>5
<asp:ListItem>6
<asp:ListItem>7
<asp:ListItem>8
<asp:ListItem>9
<asp:ListItem>10
</td>
<td class="style27">
<asp:RequiredFieldValidator ID="RequiredFieldValidator_guest" runat="server"
ControlToValidate="DropDownList_guest" Display="Dynamic"
ErrorMessage="Number of Guest Required" SetFocusOnError="True">
<asp:RangeValidator ID="RangeValidator_guest" runat="server"
ControlToValidate="DropDownList_guest" Display="Dynamic"
ErrorMessage="please specify a value" MaximumValue="10" MinimumValue="0"
SetFocusOnError="True" Type="Integer">
</td>
</tr>
<tr>
<td class="style25">
Student :</td>
<td class="style28">
<asp:DropDownList ID="DropDownList_student" runat="server" AutoPostBack="True"
Height="22px" Width="98px">
<asp:ListItem><--Select-->
<asp:ListItem>0
<asp:ListItem>1
<asp:ListItem>2
<asp:ListItem>3
<asp:ListItem>4
<asp:ListItem>5
<asp:ListItem>6
<asp:ListItem>7
<asp:ListItem>8
<asp:ListItem>9
<asp:ListItem>10
</td>
<td>
<asp:RequiredFieldValidator ID="RequiredFieldValidator_student" runat="server"
ControlToValidate="DropDownList_student" Display="Dynamic"
ErrorMessage="Number of students required" SetFocusOnError="True">
<asp:RangeValidator ID="RangeValidator_student" runat="server"
ControlToValidate="DropDownList_student" Display="Dynamic"
ErrorMessage="please specify a value" MaximumValue="10" MinimumValue="0"
SetFocusOnError="True" Type="Integer">
</td>
</tr>
<tr>
<td class="style25">
Others :</td>
<td class="style28">
<asp:DropDownList ID="DropDownList_others" runat="server" AutoPostBack="True"
Height="22px" Width="98px">
<asp:ListItem><--Select-->
<asp:ListItem>0
<asp:ListItem>1
<asp:ListItem>2
<asp:ListItem>3
<asp:ListItem>4
<asp:ListItem>5
<asp:ListItem>6
<asp:ListItem>7
<asp:ListItem>8
<asp:ListItem>9
<asp:ListItem>10
</td>
<td>
<asp:RequiredFieldValidator ID="RequiredFieldValidator_others" runat="server"
ControlToValidate="DropDownList_others" Display="Dynamic"
ErrorMessage="Number of others members required" SetFocusOnError="True">
<asp:RangeValidator ID="RangeValidator_other" runat="server"
ControlToValidate="DropDownList_others" Display="Dynamic"
ErrorMessage="please specify a value" MaximumValue="10" MinimumValue="0"
SetFocusOnError="True" Type="Integer">
</td>
</tr>
<tr>
<td class="style25">
<asp:Button ID="button_viewseats_data" runat="server" BackColor="Red"
BorderColor="Red" Font-Bold="False" Font-Names="Times New Roman"
Font-Size="Medium" ForeColor="White" Height="30px" Text="View Seats"
Width="121px" />
</td>
<td class="style28">
</td>
<td>
Total Members:
<asp:TextBox ID="TextBox_total" runat="server" Enabled="False">
</td>
</tr>
</table>
<asp:panel runat="server" id="panel_nonacbus_seats" height="376px" Width="786px"
Visible="False">
<h5>
</h5>
<h5>
Tip: Double Click on an available seat to select it. Click again to de-select
it.</h5>
<table style="width:100%; height: 250px; color: #666666;">
<tr>
<td class="style6" rowspan="3" valign="top">
<asp:Image ID="Image_wheel" runat="server" ImageAlign="Top"
ImageUrl="~/Transport_Management/images/bus_wheel.JPG" />
</td>
<td class="style16">
</td>
<td class="style7">
<asp:ImageButton ID="ImageButton_seat_2" runat="server"
ImageUrl="~/Transport_Management/images/bus_booked_emp.JPG" />
</td>
<td class="style8">
<asp:ImageButton ID="ImageButton_seat_5" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style9">
<asp:ImageButton ID="ImageButton_seat_10" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style10">
<asp:ImageButton ID="ImageButton_seat_15" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style18">
<asp:ImageButton ID="ImageButton_seat_20" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style12">
<asp:ImageButton ID="ImageButton_seat_25" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style13">
<asp:ImageButton ID="ImageButton_seat_30" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style14">
<asp:ImageButton ID="ImageButton_seat_35" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style19">
<asp:ImageButton ID="ImageButton_seat_40" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style15">
<asp:ImageButton ID="ImageButton_seat_45" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td>
</td>
<td class="style22">
<img src="images/bus_seat.JPG" style="width: 27px; height: 29px" /></td>
<td class="style21">
<span>Available Seat</span></td>
</tr>
<tr>
<td class="style16">
</td>
<td class="style7">
<asp:ImageButton ID="ImageButton_seat_3" runat="server"
ImageUrl="~/Transport_Management/images/bus_booked_emp.JPG" />
</td>
<td class="style8">
<asp:ImageButton ID="ImageButton_seat_6" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style9">
<asp:ImageButton ID="ImageButton_seat_11" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style10">
<asp:ImageButton ID="ImageButton_seat_16" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style18">
<asp:ImageButton ID="ImageButton_seat_21" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style12">
<asp:ImageButton ID="ImageButton_seat_26" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style13">
<asp:ImageButton ID="ImageButton_seat_31" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style14">
<asp:ImageButton ID="ImageButton_seat_36" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style19">
<asp:ImageButton ID="ImageButton_seat_41" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style15">
<asp:ImageButton ID="ImageButton_seat_46" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td>
</td>
<td class="style22">
<img src="images/bus_seat_booked.JPG" style="width: 27px; height: 27px" /></td>
<td class="style21">
Reserved Seat</td>
</tr>
<tr>
<td class="style16">
</td>
<td class="style7">
<asp:ImageButton ID="ImageButton_seat_4" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style8">
<asp:ImageButton ID="ImageButton_seat_7" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style9">
<asp:ImageButton ID="ImageButton_seat_12" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style10">
<asp:ImageButton ID="ImageButton_seat_17" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style18">
<asp:ImageButton ID="ImageButton_seat_22" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style12">
<asp:ImageButton ID="ImageButton_seat_27" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style13">
<asp:ImageButton ID="ImageButton_seat_32" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style14">
<asp:ImageButton ID="ImageButton_seat_37" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style19">
<asp:ImageButton ID="ImageButton_seat_42" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style15">
<asp:ImageButton ID="ImageButton_seat_47" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td>
</td>
<td class="style22">
<img src="images/bus_seat_reserved.JPG" style="width: 28px; height: 26px" /></td>
<td class="style21">
Selected Seat
</td>
</tr>
<tr>
<td colspan="11">
</td>
<td class="style15">
<asp:ImageButton ID="ImageButton_seat_48" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td>
</td>
<td class="style22">
<img src="images/bus_booked_emp.JPG" style="width: 25px; height: 25px" /></td>
<td class="style21">
Employee Reserved</td>
</tr>
<tr>
<td colspan="2" rowspan="2">
</td>
<td class="style7">
</td>
<td class="style8">
<asp:ImageButton ID="ImageButton_seat_8" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style9">
<asp:ImageButton ID="ImageButton_seat_13" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style10">
<asp:ImageButton ID="ImageButton_seat_18" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style18">
<asp:ImageButton ID="ImageButton_seat_23" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style12">
<asp:ImageButton ID="ImageButton_seat_28" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style13">
<asp:ImageButton ID="ImageButton_seat_33" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style14">
<asp:ImageButton ID="ImageButton_seat_38" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style19">
<asp:ImageButton ID="ImageButton_seat_43" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style15">
<asp:ImageButton ID="ImageButton_seat_49" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td>
</td>
<td class="style22" valign="top">
Seats :</td>
<td class="style21">
<asp:ListBox ID="listbox_seats" runat="server" SelectionMode="Multiple"
Width="149px" Font-Bold="True" Font-Names="Times New Roman"
Enabled="False">
</td>
</tr>
<tr>
<td class="style7">
<asp:ImageButton ID="ImageButton_seat_1" runat="server"
ImageUrl="~/Transport_Management/images/bus_booked_emp.JPG" />
</td>
<td class="style8">
<asp:ImageButton ID="ImageButton_seat_9" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style9">
<asp:ImageButton ID="ImageButton_seat_14" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style10">
<asp:ImageButton ID="ImageButton_seat_19" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style18">
<asp:ImageButton ID="ImageButton_seat_24" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style12">
<asp:ImageButton ID="ImageButton_seat_29" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style13">
<asp:ImageButton ID="ImageButton_seat_34" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style14">
<asp:ImageButton ID="ImageButton_seat_39" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style19">
<asp:ImageButton ID="ImageButton_seat_44" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style15">
<asp:ImageButton ID="ImageButton_seat_50" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td>
</td>
<td class="style22">
Amount :</td>
<td class="style21">
<asp:TextBox ID="textbox_amount" runat="server" Width="147px" Enabled="False"
Font-Bold="True">
</td>
</tr>
</table>
<asp:Button ID="button_save_nonac" runat="server" BackColor="Red"
BorderColor="Red" Font-Bold="False" Font-Names="Times New Roman"
Font-Size="Medium" ForeColor="White" Height="30px" Text="Save" Width="121px" />
<asp:panel runat="server" id="panel_acbus_seats" height="376px" Width="786px"
Visible="False">
<h5>
</h5>
<h5>
Tip: Double Click on an available seat to select it. Click again to de-select
it.</h5>
<table style="width:100%; height: 250px; color: #666666;">
<tr>
<td class="style6" rowspan="3" valign="top">
<asp:Image ID="Image_acwheel" runat="server" ImageAlign="Top"
ImageUrl="~/Transport_Management/images/bus_wheel.JPG" />
</td>
<td class="style16">
</td>
<td class="style7">
<asp:ImageButton ID="ImageButton_acseat_1" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style8">
<asp:ImageButton ID="ImageButton_acseat_4" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style10">
<asp:ImageButton ID="ImageButton_acseat_9" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style10">
<asp:ImageButton ID="ImageButton_acseat_14" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style18">
<asp:ImageButton ID="ImageButton_acseat_19" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style10">
<asp:ImageButton ID="ImageButton_acseat_24" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style13">
<asp:ImageButton ID="ImageButton_acseat_29" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style14" colspan="2" rowspan="3">
</td>
<td class="style51">
<img src="images/bus_seat.JPG" style="width: 27px; height: 29px" /></td>
<td class="style21">
<span>Available Seat</span></td>
</tr>
<tr>
<td class="style16">
</td>
<td class="style7">
<asp:ImageButton ID="ImageButton_acseat_2" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style8">
<asp:ImageButton ID="ImageButton_acseat_5" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style10">
<asp:ImageButton ID="ImageButton_acseat_10" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style10">
<asp:ImageButton ID="ImageButton_acseat_15" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style18">
<asp:ImageButton ID="ImageButton_acseat_20" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style10">
<asp:ImageButton ID="ImageButton_acseat_25" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style13">
<asp:ImageButton ID="ImageButton_acseat_30" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG"
style="margin-left: 0px" />
</td>
<td class="style51">
<img src="images/bus_seat_booked.JPG" style="width: 27px; height: 27px" /></td>
<td class="style21">
Reserved Seat</td>
</tr>
<tr>
<td class="style16">
</td>
<td class="style7">
<asp:ImageButton ID="ImageButton_acseat_3" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style8">
<asp:ImageButton ID="ImageButton_acseat_6" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style10">
<asp:ImageButton ID="ImageButton_acseat_11" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style10">
<asp:ImageButton ID="ImageButton_acseat_16" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style18">
<asp:ImageButton ID="ImageButton_acseat_21" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style10">
<asp:ImageButton ID="ImageButton_acseat_26" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style13">
<asp:ImageButton ID="ImageButton_acseat_31" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style51">
<img src="images/bus_seat_reserved.JPG" style="width: 28px; height: 26px" /></td>
<td class="style21">
Selected Seat
</td>
</tr>
<tr>
<td colspan="10">
</td>
<td class="style48">
</td>
<td class="style51">
<img src="images/bus_booked_emp.JPG" style="width: 25px; height: 25px" /></td>
<td class="style21">
Employee Reserved</td>
</tr>
<tr>
<td colspan="2" rowspan="2">
</td>
<td class="style35">
</td>
<td class="style36">
</td>
<td class="style38">
<asp:ImageButton ID="ImageButton_acseat_8" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style38">
<asp:ImageButton ID="ImageButton_acseat_13" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style39">
<asp:ImageButton ID="ImageButton_acseat_18" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style38">
<asp:ImageButton ID="ImageButton_acseat_23" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style41">
<asp:ImageButton ID="ImageButton_acseat_28" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style42" colspan="2" rowspan="2">
</td>
<td class="style50" valign="top">
Seats :</td>
<td class="style47">
<asp:ListBox ID="listbox_acseats" runat="server" SelectionMode="Multiple"
Width="149px" Font-Bold="True" Font-Names="Times New Roman"
Enabled="False">
</td>
</tr>
<tr>
<td class="style7">
</td>
<td class="style8">
</td>
<td class="style10">
<asp:ImageButton ID="ImageButton_acseat_7" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style10">
<asp:ImageButton ID="ImageButton_acseat_12" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style18">
<asp:ImageButton ID="ImageButton_acseat_17" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style10">
<asp:ImageButton ID="ImageButton_acseat_22" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style13">
<asp:ImageButton ID="ImageButton_acseat_27" runat="server"
ImageUrl="~/Transport_Management/images/bus_seat.JPG" />
</td>
<td class="style51">
Amount :</td>
<td class="style21">
<asp:TextBox ID="textbox_acamount" runat="server" Width="147px" Enabled="False"
Font-Bold="True">
</td>
</tr>
</table>
<asp:Button ID="button_save_a" runat="server"
BackColor="Red" BorderColor="Red" Font-Bold="False"
Font-Names="Times New Roman" Font-Size="Medium" ForeColor="White" Height="30px"
Text="Save" Width="121px" />
</form>
</html>
this is my vb backed code
Partial Class Transport_Management_busbooking
Inherits System.Web.UI.Page
Dim seatno_reserved As String
Dim seatno_unreserved As String
Dim sno As Integer
Dim oth As Integer
Dim stu As Integer
Dim gus As Integer
Dim str_Rcvdt As String
Protected Sub imagebutton_calendar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imagebutton_calendar.Click
Calendar_bookingdate.Visible = True
End Sub
Protected Sub Calendar_bookingdate_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar_bookingdate.SelectionChanged
textbox_date.Text = Calendar_bookingdate.SelectedDate
Calendar_bookingdate.Visible = False
End Sub
Protected Sub button_search_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button_search.Click
If Calendar_bookingdate.SelectedDate.DayOfWeek = DayOfWeek.Sunday And dropdownlist_sourcedestination.SelectedValue = "1" Then
panel_label.Visible = True
panel_route.Visible = False
panel_bus_0815.Visible = True
panel_bus_0230.Visible = True
panel_bus_1000.Visible = True
ElseIf dropdownlist_sourcedestination.SelectedValue = "1" And Calendar_bookingdate.SelectedDate.DayOfWeek <> DayOfWeek.Sunday Then
panel_label.Visible = True
panel_route.Visible = False
panel_bus_0815.Visible = True
panel_bus_0230.Visible = True
ElseIf dropdownlist_sourcedestination.SelectedValue = "2" And Calendar_bookingdate.SelectedDate.DayOfWeek <> DayOfWeek.Sunday Then
panel_label.Visible = True
panel_route.Visible = False
panel_retbus_0815.Visible = True
panel_retbus_0230.Visible = True
ElseIf Calendar_bookingdate.SelectedDate.DayOfWeek = DayOfWeek.Sunday And dropdownlist_sourcedestination.SelectedValue = "2" Then
panel_label.Visible = True
panel_route.Visible = False
panel_retbus_0815.Visible = True
panel_retbus_0230.Visible = True
panel_retbus_1000.Visible = True
End If
End Sub
Protected Sub button_viewseats1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button_viewseats1.Click
panel_empdata.Visible = True
panel_bus_1000.Visible = False
panel_bus_0230.Visible = False
End Sub
Protected Sub button_viewseats2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button_viewseats2.Click
panel_empdata.Visible = True
panel_bus_1000.Visible = False
panel_bus_0815.Visible = False
End Sub
Protected Sub button_viewseats3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button_viewseats3.Click
panel_bus_0815.Visible = False
panel_bus_0230.Visible = False
panel_empdata.Visible = True
End Sub
Protected Sub button_viewseats6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button_viewseats6.Click
panel_retbus_0815.Visible = False
panel_retbus_0230.Visible = False
panel_empdata.Visible = True
End Sub
Protected Sub button_viewseats7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button_viewseats7.Click
panel_empdata.Visible = True
panel_retbus_1000.Visible = False
panel_retbus_0230.Visible = False
End Sub
Protected Sub button_viewseats8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button_viewseats8.Click
panel_empdata.Visible = True
panel_retbus_1000.Visible = False
panel_retbus_0815.Visible = False
End Sub
Protected Sub button_viewseats_data_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button_viewseats_data.Click
If panel_bus_1000.Visible = True Then
stu = DropDownList_student.SelectedValue
gus = DropDownList_guest.SelectedValue
oth = DropDownList_others.SelectedValue
DropDownList_guest.Enabled = False
DropDownList_others.Enabled = False
DropDownList_student.Enabled = False
panel_acbus_seats.Visible = True
textbox_acamount.Text = (oth * 20) + (gus * 20) + (stu * 20)
TextBox_total.Text = oth + gus + stu
Else
stu = DropDownList_student.SelectedValue
gus = DropDownList_guest.SelectedValue
oth = DropDownList_others.SelectedValue
DropDownList_guest.Enabled = False
DropDownList_others.Enabled = False
DropDownList_student.Enabled = False
panel_nonacbus_seats.Visible = True
textbox_amount.Text = (oth * 30) + (gus * 23) + (stu * 7)
TextBox_total.Text = oth + gus + stu
End If
End Sub
Private Sub listbox_count()
str_Rcvdt = "<script language='javascript'>"
str_Rcvdt += "alert('Cannot Insert Limit Exceeded');"
str_Rcvdt += "</script>"
If (Not ClientScript.IsStartupScriptRegistered("clientScript")) Then
ClientScript.RegisterClientScriptBlock(Me.GetType, "clientScript", str_Rcvdt)
End If
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
image_load()
End Sub
Private Sub image_load()
seatno_reserved = "~\Transport_Management\images\bus_seat_reserved.JPG"
seatno_unreserved = "~\Transport_Management\images\bus_seat.JPG"
End Sub
Protected Sub ImageButton_seat_4_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_4.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_4.ImageUrl = seatno_unreserved Then
ImageButton_seat_4.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-4")
Else
ImageButton_seat_4.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-4")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_5_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_5.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_5.ImageUrl = seatno_unreserved Then
ImageButton_seat_5.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-5")
Else
ImageButton_seat_5.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-5")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_6_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_6.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_6.ImageUrl = seatno_unreserved Then
ImageButton_seat_6.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-6")
Else
ImageButton_seat_6.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-6")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_7_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_7.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_7.ImageUrl = seatno_unreserved Then
ImageButton_seat_7.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-7")
Else
ImageButton_seat_7.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-7")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_8_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_8.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_8.ImageUrl = seatno_unreserved Then
ImageButton_seat_8.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-8")
Else
ImageButton_seat_8.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-8")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_9_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_9.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_9.ImageUrl = seatno_unreserved Then
ImageButton_seat_9.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-9")
Else
ImageButton_seat_9.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-9")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_10_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_10.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_10.ImageUrl = seatno_unreserved Then
ImageButton_seat_10.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-10")
Else
ImageButton_seat_10.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-10")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_11_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_11.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_11.ImageUrl = seatno_unreserved Then
ImageButton_seat_11.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-11")
Else
ImageButton_seat_11.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-11")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_12_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_12.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_12.ImageUrl = seatno_unreserved Then
ImageButton_seat_12.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-12")
Else
ImageButton_seat_12.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-12")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_13_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_13.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_13.ImageUrl = seatno_unreserved Then
ImageButton_seat_13.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-13")
Else
ImageButton_seat_13.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-13")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_14_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_14.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_14.ImageUrl = seatno_unreserved Then
ImageButton_seat_14.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-14")
Else
ImageButton_seat_14.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-14")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_15_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_15.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_15.ImageUrl = seatno_unreserved Then
ImageButton_seat_15.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-15")
Else
ImageButton_seat_15.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-15")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_16_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_16.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_16.ImageUrl = seatno_unreserved Then
ImageButton_seat_16.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-16")
Else
ImageButton_seat_16.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-16")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_17_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_17.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_17.ImageUrl = seatno_unreserved Then
ImageButton_seat_17.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-17")
Else
ImageButton_seat_17.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-17")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_18_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_18.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_18.ImageUrl = seatno_unreserved Then
ImageButton_seat_18.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-18")
Else
ImageButton_seat_18.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-18")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_19_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_19.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_19.ImageUrl = seatno_unreserved Then
ImageButton_seat_19.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-19")
Else
ImageButton_seat_19.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-19")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_20_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_20.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_20.ImageUrl = seatno_unreserved Then
ImageButton_seat_20.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-20")
Else
ImageButton_seat_20.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-20")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_21_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_21.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_21.ImageUrl = seatno_unreserved Then
ImageButton_seat_21.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-21")
Else
ImageButton_seat_21.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-21")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_22_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_22.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_22.ImageUrl = seatno_unreserved Then
ImageButton_seat_22.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-22")
Else
ImageButton_seat_22.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-22")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_23_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_23.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_23.ImageUrl = seatno_unreserved Then
ImageButton_seat_23.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-23")
Else
ImageButton_seat_23.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-23")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_24_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_24.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_24.ImageUrl = seatno_unreserved Then
ImageButton_seat_24.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-24")
Else
ImageButton_seat_24.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-24")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_25_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_25.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_25.ImageUrl = seatno_unreserved Then
ImageButton_seat_25.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-25")
Else
ImageButton_seat_25.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-25")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_26_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_26.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_26.ImageUrl = seatno_unreserved Then
ImageButton_seat_26.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-26")
Else
ImageButton_seat_26.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-26")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_27_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_27.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_27.ImageUrl = seatno_unreserved Then
ImageButton_seat_27.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-27")
Else
ImageButton_seat_27.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-27")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_28_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_28.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_28.ImageUrl = seatno_unreserved Then
ImageButton_seat_28.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-28")
Else
ImageButton_seat_28.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-28")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_29_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_29.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_29.ImageUrl = seatno_unreserved Then
ImageButton_seat_29.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-29")
Else
ImageButton_seat_29.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-29")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_30_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_30.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_30.ImageUrl = seatno_unreserved Then
ImageButton_seat_30.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-30")
Else
ImageButton_seat_30.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-30")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_31_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_31.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_31.ImageUrl = seatno_unreserved Then
ImageButton_seat_31.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-31")
Else
ImageButton_seat_31.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-31")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_32_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_32.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_32.ImageUrl = seatno_unreserved Then
ImageButton_seat_32.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-32")
Else
ImageButton_seat_32.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-32")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_33_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_33.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_33.ImageUrl = seatno_unreserved Then
ImageButton_seat_33.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-33")
Else
ImageButton_seat_33.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-33")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_34_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_34.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_34.ImageUrl = seatno_unreserved Then
ImageButton_seat_34.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-34")
Else
ImageButton_seat_34.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-34")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_35_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_35.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_35.ImageUrl = seatno_unreserved Then
ImageButton_seat_35.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-35")
Else
ImageButton_seat_35.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-35")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_36_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_36.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_36.ImageUrl = seatno_unreserved Then
ImageButton_seat_36.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-36")
Else
ImageButton_seat_36.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-36")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_37_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_37.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_37.ImageUrl = seatno_unreserved Then
ImageButton_seat_37.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-37")
Else
ImageButton_seat_37.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-37")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_38_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_38.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_38.ImageUrl = seatno_unreserved Then
ImageButton_seat_38.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-38")
Else
ImageButton_seat_38.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-38")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_39_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_39.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_39.ImageUrl = seatno_unreserved Then
ImageButton_seat_39.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-39")
Else
ImageButton_seat_39.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-39")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_40_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_40.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_40.ImageUrl = seatno_unreserved Then
ImageButton_seat_40.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-40")
Else
ImageButton_seat_40.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-40")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_41_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_41.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_41.ImageUrl = seatno_unreserved Then
ImageButton_seat_41.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-41")
Else
ImageButton_seat_41.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-41")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_42_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_42.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_42.ImageUrl = seatno_unreserved Then
ImageButton_seat_42.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-42")
Else
ImageButton_seat_42.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-42")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_43_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_43.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_43.ImageUrl = seatno_unreserved Then
ImageButton_seat_43.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-43")
Else
ImageButton_seat_43.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-43")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_44_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_44.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_44.ImageUrl = seatno_unreserved Then
ImageButton_seat_44.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-44")
Else
ImageButton_seat_44.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-44")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_45_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_45.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_45.ImageUrl = seatno_unreserved Then
ImageButton_seat_45.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-45")
Else
ImageButton_seat_45.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-45")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_46_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_46.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_46.ImageUrl = seatno_unreserved Then
ImageButton_seat_46.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-46")
Else
ImageButton_seat_46.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-46")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_47_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_47.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_47.ImageUrl = seatno_unreserved Then
ImageButton_seat_47.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-47")
Else
ImageButton_seat_47.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-47")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_48_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_48.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_48.ImageUrl = seatno_unreserved Then
ImageButton_seat_48.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-48")
Else
ImageButton_seat_48.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-48")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_49_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_49.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_49.ImageUrl = seatno_unreserved Then
ImageButton_seat_49.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-49")
Else
ImageButton_seat_49.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-49")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_seat_50_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_seat_50.Click
If listbox_seats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_seat_50.ImageUrl = seatno_unreserved Then
ImageButton_seat_50.ImageUrl = seatno_reserved
listbox_seats.Items.Add("S-50")
Else
ImageButton_seat_50.ImageUrl = seatno_unreserved
listbox_seats.Items.Remove("S-50")
End If
'listbox_count()
End If
End Sub
Protected Sub ImageButton_acseat_1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_1.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_1.ImageUrl = seatno_unreserved Then
ImageButton_acseat_1.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-1")
Else
ImageButton_acseat_1.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-1")
End If
End If
End Sub
Protected Sub ImageButton_acseat_2_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_2.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_2.ImageUrl = seatno_unreserved Then
ImageButton_acseat_2.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-2")
Else
ImageButton_acseat_2.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-2")
End If
End If
End Sub
Protected Sub ImageButton_acseat_3_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_3.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_3.ImageUrl = seatno_unreserved Then
ImageButton_acseat_3.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-3")
Else
ImageButton_acseat_3.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-3")
End If
End If
End Sub
Protected Sub ImageButton_acseat_4_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_4.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_4.ImageUrl = seatno_unreserved Then
ImageButton_acseat_4.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-4")
Else
ImageButton_acseat_4.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-4")
End If
End If
End Sub
Protected Sub ImageButton_acseat_5_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_5.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_5.ImageUrl = seatno_unreserved Then
ImageButton_acseat_5.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-5")
Else
ImageButton_acseat_5.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-5")
End If
End If
End Sub
Protected Sub ImageButton_acseat_6_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_6.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_6.ImageUrl = seatno_unreserved Then
ImageButton_acseat_6.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-6")
Else
ImageButton_acseat_6.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-6")
End If
End If
End Sub
Protected Sub ImageButton_acseat_7_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_7.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_7.ImageUrl = seatno_unreserved Then
ImageButton_acseat_7.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-7")
Else
ImageButton_acseat_7.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-7")
End If
End If
End Sub
Protected Sub ImageButton_acseat_8_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_8.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_8.ImageUrl = seatno_unreserved Then
ImageButton_acseat_8.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-8")
Else
ImageButton_acseat_8.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-8")
End If
End If
End Sub
Protected Sub ImageButton_acseat_9_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_9.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_9.ImageUrl = seatno_unreserved Then
ImageButton_acseat_9.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-9")
Else
ImageButton_acseat_9.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-9")
End If
End If
End Sub
Protected Sub ImageButton_acseat_10_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_10.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_10.ImageUrl = seatno_unreserved Then
ImageButton_acseat_10.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-10")
Else
ImageButton_acseat_10.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-10")
End If
End If
End Sub
Protected Sub ImageButton_acseat_11_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_11.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_11.ImageUrl = seatno_unreserved Then
ImageButton_acseat_11.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-11")
Else
ImageButton_acseat_11.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-11")
End If
End If
End Sub
Protected Sub ImageButton_acseat_12_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_12.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_12.ImageUrl = seatno_unreserved Then
ImageButton_acseat_12.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-12")
Else
ImageButton_acseat_12.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-12")
End If
End If
End Sub
Protected Sub ImageButton_acseat_13_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_13.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_13.ImageUrl = seatno_unreserved Then
ImageButton_acseat_13.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-13")
Else
ImageButton_acseat_13.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-13")
End If
End If
End Sub
Protected Sub ImageButton_acseat_14_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_14.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_14.ImageUrl = seatno_unreserved Then
ImageButton_acseat_14.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-14")
Else
ImageButton_acseat_14.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-14")
End If
End If
End Sub
Protected Sub ImageButton_acseat_15_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_15.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_15.ImageUrl = seatno_unreserved Then
ImageButton_acseat_15.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-15")
Else
ImageButton_acseat_15.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-15")
End If
End If
End Sub
Protected Sub ImageButton_acseat_16_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_16.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_16.ImageUrl = seatno_unreserved Then
ImageButton_acseat_16.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-16")
Else
ImageButton_acseat_16.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-16")
End If
End If
End Sub
Protected Sub ImageButton_acseat_17_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_17.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_17.ImageUrl = seatno_unreserved Then
ImageButton_acseat_17.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-17")
Else
ImageButton_acseat_17.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-17")
End If
End If
End Sub
Protected Sub ImageButton_acseat_18_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_18.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_18.ImageUrl = seatno_unreserved Then
ImageButton_acseat_18.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-18")
Else
ImageButton_acseat_18.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-18")
End If
End If
End Sub
Protected Sub ImageButton_acseat_19_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_19.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_19.ImageUrl = seatno_unreserved Then
ImageButton_acseat_19.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-19")
Else
ImageButton_acseat_19.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-19")
End If
End If
End Sub
Protected Sub ImageButton_acseat_20_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_20.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_20.ImageUrl = seatno_unreserved Then
ImageButton_acseat_20.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-20")
Else
ImageButton_acseat_20.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-20")
End If
End If
End Sub
Protected Sub ImageButton_acseat_21_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_21.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_21.ImageUrl = seatno_unreserved Then
ImageButton_acseat_21.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-21")
Else
ImageButton_acseat_21.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-21")
End If
End If
End Sub
Protected Sub ImageButton_acseat_22_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_22.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_22.ImageUrl = seatno_unreserved Then
ImageButton_acseat_22.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-22")
Else
ImageButton_acseat_22.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-22")
End If
End If
End Sub
Protected Sub ImageButton_acseat_23_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_23.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_23.ImageUrl = seatno_unreserved Then
ImageButton_acseat_23.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-23")
Else
ImageButton_acseat_23.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-23")
End If
End If
End Sub
Protected Sub ImageButton_acseat_24_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_24.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_24.ImageUrl = seatno_unreserved Then
ImageButton_acseat_24.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-24")
Else
ImageButton_acseat_24.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-24")
End If
End If
End Sub
Protected Sub ImageButton_acseat_25_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_25.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_25.ImageUrl = seatno_unreserved Then
ImageButton_acseat_25.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-25")
Else
ImageButton_acseat_25.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-25")
End If
End If
End Sub
Protected Sub ImageButton_acseat_26_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_26.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_26.ImageUrl = seatno_unreserved Then
ImageButton_acseat_26.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-26")
Else
ImageButton_acseat_26.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-26")
End If
End If
End Sub
Protected Sub ImageButton_acseat_27_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_27.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_27.ImageUrl = seatno_unreserved Then
ImageButton_acseat_27.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-27")
Else
ImageButton_acseat_27.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-27")
End If
End If
End Sub
Protected Sub ImageButton_acseat_28_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_28.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_28.ImageUrl = seatno_unreserved Then
ImageButton_acseat_28.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-28")
Else
ImageButton_acseat_28.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-28")
End If
End If
End Sub
Protected Sub ImageButton_acseat_29_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_29.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_29.ImageUrl = seatno_unreserved Then
ImageButton_acseat_29.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-29")
Else
ImageButton_acseat_29.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-29")
End If
End If
End Sub
Protected Sub ImageButton_acseat_30_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_30.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_30.ImageUrl = seatno_unreserved Then
ImageButton_acseat_30.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-30")
Else
ImageButton_acseat_30.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-30")
End If
End If
End Sub
Protected Sub ImageButton_acseat_31_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton_acseat_31.Click
If listbox_acseats.Items.Count = TextBox_total.Text Then
listbox_count()
Else
If ImageButton_acseat_31.ImageUrl = seatno_unreserved Then
ImageButton_acseat_31.ImageUrl = seatno_reserved
listbox_acseats.Items.Add("S-31")
Else
ImageButton_acseat_31.ImageUrl = seatno_unreserved
listbox_acseats.Items.Remove("S-31")
End If
End If
End Sub
End Class
[edit]Code block added, so we can collapse and ignore it - OriginalGriff[/edit]
[edit]Code block added, so we can collapse and ignore it - OriginalGriff[/edit]
推荐答案
Here is the reduced code. Believe me I worked very hard on it..
Here is the reduced code. Believe me I worked very hard on it..
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="busbooking.aspx.vb" Inherits="Transport_Management_busbooking" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>Bus Booking System</title>
<style type="text/css">
#form1
{
height: 87px;
}
.style1
{
width: 186px;
}
</style>
</head>
<form id="form1" runat="server">
</form>
</html>
VB code
VB code
Partial Class Transport_Management_busbooking
Inherits System.Web.UI.Page
Dim seatno_reserved As String
Dim seatno_unreserved As String
Dim sno As Integer
Dim oth As Integer
Dim stu As Integer
Dim gus As Integer
Dim str_Rcvdt As String
End Class这篇关于减少asp.net vb文件的代码请帮忙的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
查看全文
