WAP Ticket Booking System by Jignesh Desai




WAP Ticket Booking System




Jignesh Desai


Address : C/204 Patel Nagar, Kandivali (w), Mumbai 400067, India.
Email : codehunt@yahoo.com
Tel : 863 83 99
Topic Title : “Muna Mobile”
Topic Description : Movie Tickets Booking System on Mobile Phone written in ASP and WAP. Tested on Nokia’s and Phone’s simulator.
Level : (Advanced) Assumed you are aware of ASP and WML
Here we will see a nice, simple example of how a user can book a movie tickets through his mobile phone. We are going to use ASP and Access database to retrieve and store information. No Registration is required.

Take a look on Database structure first. (Tickets.mdb)

We have 4 Tables,
[Movie : Stores Movie names and stars in movie, Unique movieId(Auto Number Field).]
[Theater : Stores Theater names each one uniquely identified by theaterid (Auto Number Field).]
[Shows : Theaters running particular movies and its timings, seats availability and per ticket price, MovieId and TheaterId as Foreign Keys. Each show identified as Showid (Auto Number Field)].
[Booking : Unique booking id generated for each booking done. you also store name, phone number and number of seats booked of the users.

Here is the Relational Structure and Sample Data Used for Demo




Before writing code understand basic

For demo you can put all this .wml and .asp files in to one directory and map it as a virtual directory is IIS. Since it uses DSN-less connection put database also in the same directory.
When you call or redirect to .asp file your asp file should generate WML code instead of HTML, because that is what your w@p enable device or simulator would understand. This can be done by first throwing W@P’s mime-types from an ASP program. The following lines should be included in your ASP program as it is.

<%Response.ContentType="text/vnd.wap.wml"%>
<%Response.write("<?xml version=""1.0""?><!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml"">")%>

After this you can throw any WML content. First line is important as browser sould know what type of data is going to come.

Passing parameters to ASP program
At time you accept input from the user which needs to be pass to an ASP program. Here are WML statements to pass parameters in a name value pair to your ASP program.Using your <go> tag you call your next WML DECK or an ASP program. Right !.

<do type="accept" label="Select Movie">
<go href="theaters.asp" method="get" >
<postfield name="mid" value="$(mid)" />
</go>
</do>


Here you can also specify method ( ie. GET/POST although POST is not supported by few devices we will use GET Method ) and the parameters you want to pass by using <postfield> tag. <postfield> tag requires name and value attributes.
That's enough to proceed

Here is the entire code with explanation

This is the initial screen which stays for few seconds and then redirects you to movie.asp

munamobile.wml

<wml>
<card ontimer="movie.asp">
<timer value="30"/>
<p align="center">
Welcome to Muna-Mobile<br/><br/><img src="movie.bmp" alt="logo" /><br/>Movie Ticket<br/>Booking System !
</p>
</card>
</wml>


This page give list of all Movies available in the system, and user to select one. It lists movies as choices, <select and option> tags. Before sending any output it send appropriate mime type by setting content type property

movie.asp

<%Response.ContentType="text/vnd.wap.wml"%>
<%Response.write("<?xml version=""1.0""?><!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml"">")%>
<wml>
<card>
<p align="right">Running <img src="movie.bmp" alt="logo" /></p><p>
<%
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=" & Server.MapPath ("tickets.mdb")
conn.open
sql="movie"
rs.open sql, conn, 2, 2
%>
<select name="mid" title="Movies">
<%Do while not rs.eof%>
<option value="<%=rs("movieid")%>"><%=rs("title")%> [<%=rs("staring")%>]</option>
<%
rs.movenext
loop
rs.Close
%>
</select>
</p>
<do type=”accept” label=”Select Movie”>
<go href=”theaters.asp” method=”get” >
<postfield name=”mid” value=”$(mid)” />
</go>
</do>

</card>
</wml>

After select desired movie, program show the list of theaters running selected movie.

theaters.asp

<%Response.ContentType=”text/vnd.wap.wml”%>
<%Response.write(“<?xml version=”"1.0″”?><!DOCTYPE wml PUBLIC “”-//WAPFORUM//DTD WML 1.1//EN”" “”http://www.wapforum.org/DTD/wml_1.1.xml”">”)%>
<wml>
<card>
<p>
Currently Running in
<%
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=” & Server.MapPath (“tickets.mdb”)
conn.open
sql=”Select theaterid , name from theater where theaterid in (select theterid from shows where movieid = ” & Request.QueryString(“mid”) & “)”
rs.open sql, conn, 2, 2
%>
<select name=”tid” title=”Theaters”>
<%Do while not rs.eof%>
<option value=”<%=rs(“theaterid”)%>”><%=rs(“name”)%></option>
<%
rs.movenext
loop
rs.Close
%>
</select>
</p>
<do type=”accept” label=”Theater ?”>
<go href=”shows.asp” method=”get”>
<postfield name=”tid” value=”$(tid)” />
<postfield name=”mid” value=”<%=Request.QueryString(“mid”)%>” />
</go>
</do>
</card>
</wml>

Once theater is select program show the available show timings and ask user to select one.

shows.asp

<%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=” & Server.MapPath (“tickets.mdb”)
conn.open
sql=”Select * from shows where movieid = ” &Request.QueryString(“mid”) &” and theterid = ” &Request.QueryString(“tid”)
rs.open sql, conn, 2, 2
%>
<%Response.ContentType=”text/vnd.wap.wml”%>
<%Response.write(“<?xml version=”"1.0″”?><!DOCTYPE wml PUBLIC “”-//WAPFORUM//DTD WML 1.1//EN”" “”http://www.wapforum.org/DTD/wml_1.1.xml”">”)%>
<wml>
<card>
<p>
Shows Available At :
<select name=”showid” title=”Show Times”>
<%Do while not rs.eof%>
<option value=”<%=rs(“showid”)%>”> <%=rs(“time”)%> [<%=rs("seatsavailable")%>]Seats </option>
<%
rs.movenext
loop
rs.Close
%>
</select>
</p>
<do type=”accept” label=”Show ?” >
<go href=”bookseats.asp” method=”get”>
<postfield name=”showid” value=”$(showid)” />
</go>
</do>
</card>
</wml>

Once we know for which show he wants to book tickets, show him details of what he has selected till now plus price per ticket and ask him how many he wants to book ?.

bookseats.asp

<%Response.ContentType=”text/vnd.wap.wml”%>
<%Response.write(“<?xml version=”"1.0″”?><!DOCTYPE wml PUBLIC “”-//WAPFORUM//DTD WML 1.1//EN”" “”http://www.wapforum.org/DTD/wml_1.1.xml”">”)%>
<wml>
<card>
<p>
<%
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=” & Server.MapPath (“tickets.mdb”)
conn.open
sql=”SELECT shows.showid, shows.movieid, shows.theterid, shows.time, shows.seatsavailable, shows.price, movie.title, theater.name FROM theater INNER JOIN (movie INNER JOIN shows ON movie.movieid = shows.movieid) ON theater.theaterid = shows.theterid WHERE ((showid=” &Request.QueryString(“showid”) &”))”
rs.open sql, conn, 2, 2
%>
Rs <%=rs(“price”)%>/- Per Ticket <br/>
Movie: <%=rs(“title”)%> <br/>
Loc: <%=rs(“name”)%> <br/>
Time: <%=rs(“time”)%> <br/>
Book Seats ? : <input name=”nooftickets” format=”2N” />
</p>
<do type=”accept”>
<go href=”confirmbooking.asp” method=”get”>
<postfield name=”showid” value=”<%=Request.QueryString(“showid”)%>” />
<postfield name=”nooftickets” value=”$(nooftickets)” />
</go>
</do>
</card>
</wml>

Get his Confirmation

confirmbooking.asp

<%Response.ContentType=”text/vnd.wap.wml”%>
<%Response.write(“<?xml version=”"1.0″”?><!DOCTYPE wml PUBLIC “”-//WAPFORUM//DTD WML 1.1//EN”" “”http://www.wapforum.org/DTD/wml_1.1.xml”">”)%>
<wml>
<card>
<p>
<%
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=” & Server.MapPath (“tickets.mdb”)
conn.open
sql=”SELECT shows.showid, shows.movieid, shows.theterid, shows.time, shows.seatsavailable, shows.price, movie.title, theater.name FROM theater INNER JOIN (movie INNER JOIN shows ON movie.movieid = shows.movieid) ON theater.theaterid = shows.theterid WHERE ((showid=” &Request.QueryString(“showid”) &”))”
rs.open sql, conn, 2, 2
%>
Rs <%=rs(“price”)%>/- Per Ticket <br/>
Movie: <%=rs(“title”)%> <br/>
Loc: <%=rs(“name”)%> <br/>
Time: <%=rs(“time”)%> <br/>
Seats Booked : <%=Request.QueryString(“nooftickets”)%> <br/>
Cost : <%=rs(“price”)*Request.QueryString(“nooftickets”)%>
</p>
<do type=”accept” label=”Confirm”>
<go href=”orderidthanks.asp” method=”get”>
<postfield name=”showid” value=”<%=Request.QueryString(“showid”)%>” />
<postfield name=”nooftickets” value=”<%=Request.QueryString(“nooftickets”)%>” />
</go>
</do>
</card>
</wml>

One confirmation is done make entry in the database, reduce seats availability and show him his booking-id and other message. and then redirect him back to home page.

orderidthanks.asp

<%Response.ContentType=”text/vnd.wap.wml”%>
<%Response.write(“<?xml version=”"1.0″”?><!DOCTYPE wml PUBLIC “”-//WAPFORUM//DTD WML 1.1//EN”" “”http://www.wapforum.org/DTD/wml_1.1.xml”">”)%>
<wml>
<card>
<p align=”center”>
<%
dim sql , rf
dim orderid
set conn = server.createobject(“adodb.connection”)
set rs = server.createobject(“adodb.recordset”)
set rs2 = server.createobject(“adodb.recordset”)
conn.Provider = “Microsoft.Jet.OLEDB.4.0″
conn.ConnectionString = “Data Source=” & Server.MapPath (“tickets.mdb”)
conn.open
sql=”booking”
rs.open sql, conn, 2, 2
rs.AddNew
rs(“showid”) = Request.QueryString(“showid”)
rs(“seatsbooked”) = Request.QueryString(“nooftickets”)
rs(“name”) = Request.QueryString(“uname”)
rs(“telno”) = Request.QueryString(“telno”)
rs.Update
orderid = rs(“bookingid”)
Response.Write “Your Ticket is confirmed and your bookingid = ” &orderid
rs.Close

sqltext = “Update shows set seatsavailable = seatsavailable -” &Request.QueryString(“nooftickets”) &” where showid= ” &Request.QueryString(“showid”)
set rs2 = conn.Execute(sqltext, rf)

%>

</p>
<do type=”accept” label=”OK”>
<go href=”WP_BOOKMARK#thanks” />
</do>
</card>


<card id=”thanks” ontimer=”munamobile.wml”>
<timer name=”timer1″ value=”50″ />
<p align=”center”>
Thanks You can Collect your ticket from the theater 40 min prior to movie time<br/> Booking-id= <%=orderid%>
</p>
<do type=”accept” label=”Redirecting..”>
<go href=”munamobile.wml” />
</do>
</card>
</wml>


That’s All Folks, Download the code and Enjoy !


4 thoughts on “WAP Ticket Booking System by Jignesh Desai

  1. Hi,

    This is really a really good piece. Well done for it. Do you have this in JAVA code too? I’m trying to develop something similar and seeing yours gave me some good ideas. Do you have this JAVA code that I can test in my IDE?

    Thanks
    Steve

[gp-comments width="770" linklove="off" ]