Hi all,

Im creating an online ticket booking system for a theatre. I have managed to
create a list box for a customer to select a play, then they get the available
dates for the selected play on the following page but Im stuck in continuing
with the booking as I want to combine the selected information i.e the play and
the time chosen.

Please help. Attached is the code.

Thanks,
Grace


Ist Page - Plays.asp - List of the plays
<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>
<html>
<head>

<body>
<title>List Of Plays</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>

<p align="right">
</p><p>

<table width="75%" border="0">
<caption>
<font size="4" face="Georgia, Times New Roman, Times, serif">PLEASE SELECT A
PLAY</font>
</caption>
<form action="timings.asp" method="get">
<tr>
<td width="37%">
<%
dim sql
set conn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.ConnectionString = "Data Source=D:\web\projects\CATS.mdb;"

conn.open
sql="Performance"
rs.open sql, conn, 2, 2
%>
<select name="PerfID" title="Performance Type">
<%Do while not rs.eof%>
<option value="<%=rs("PerfID")%>"><%=rs("PerfName")%>
[<%=rs("PerfType")%>]</option>
<%
rs.movenext
loop
rs.Close
%>

</select></td>

<td width="63%"><input type="submit" name="Submit" value="Details"></td>
</tr></form>
</table>
</p>
</body>
</html>

2nd Page - The timings
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table width="500">
<tr>

<td width="272"><font size="4" face="Georgia, Times New Roman, Times,
serif"><strong>AVAILABLE
TIMINGS</strong></font></td>
<td width="216">&nbsp;</td>
</tr>
<form method="get" action="bookseats.asp">
<tr>

<td><%dim sql
set conn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.ConnectionString = "Data Source=D:\web\projects\CATS.mdb;"
conn.open
sql="Select * from AvailDates where PerfID = " &Request.QueryString("PerfID")

rs.open sql, conn, 2, 2
%>
<select name="showid" title="Show Times">
<%Do while not rs.eof%>
<option value="<%=rs("AvailNo")%>"> <%=rs("DATE")%>
[<%=rs("AvailTime")%>]</option>
<%
rs.movenext
loop
rs.Close
%>
</select></td>
<td><input name="Submit" type="submit" value="Book"></td>
</tr></form>

</table>
</p>
</body>
</html>

3rd Page - Booking
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form action="confirmbooking.asp" method="get">
<table width="296">
<tr>
<td width="288"><font size="4" face="Georgia, Times New Roman, Times,
serif">SEAT BOOKING</font></td>
</tr>
<tr><td height="24"><%
dim sql
set conn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.ConnectionString = "Data Source=D:\web\projects\CATS.mdb;"

conn.open

sql = "SELECT Performance.PerfName, AvailDates.AvailNo, AvailDates.DATES,
AvailDates.AvailTime FROM Performance, AvailDates WHERE Performance.PerfID =
Availdates.PerfID"

rs.open sql, conn, 2, 2
%></td></tr>

<tr>
<td>Performance:<%=rs("PerfName")%></td>
</tr>
<TR>
<td>Date:<%=rs("Date")%></td>
</TR>
<tr>
<td height="34">Time: <%=rs("AvailTime")%></td>
</tr>
<tr>
<td>Price:
<select name="select">
<option selected>Select Seating Zone</option>
<option>Zone A: &pound;50</option>
<option>Zone B: &pound;30</option>
<option>Zone C: &pound;20</option>
</select></td>
</tr>
<tr><td>Book Seats ? :<input name="nooftickets" format="2N" /></td></tr>
<tr>
<td><input type="submit" name="Submit" value="Confirm Booking"></td>
</tr>
</table></form>




</body>
</html>