票

　　 下一步就是让用户选择需要的票数.这部分的代码很像其它的部分。我将从数据库中查询相同的数据，因为Session不能在真正的WAP手机中使用，所以我必须对有些内容进行确认，看看是否还有座位出售.

SQLquery = "SELECT * FROM show WHERE Show_id = " & show_id

set rsShow = conn.Execute(SQLquery)

:

seats = rsShow("free_seats")

:

if seats = 0 then

Response.write("Sorry, no more seats")

rsShow.close

set rsShow = nothing

Response.write("< /p >< /card >< /wml >")

Response.end

else

if seats > 6 then 'book up to 6 tickets or max available

max_seats=6

else

max_seats = seats

end if

end if

％ >

< ％=movie_title％ > at < ％ =theater_name％ >

< select name='ticket' >

< ％

dim i

i = 1

Do while i < = max_seats

response.write("< option value='" & i & "' >" & i & " ticket(s)" & "< /option >" &vbcrlf)

i = i + 1

loop ％ >

< /select >