<%@ Language=VBScript %>
<%
Response.Expires = 0
Response.AddHeader "pragma", "no-cache"
%>
Children's Dance Theatre "Fairyland"
<%
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open "dsnAccessFairyland"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.LockType = 2
If Session("Number_People") = 0 Then
rs.Open "SELECT * FROM tblVisitor", cnn
rs("People") = rs("People") + 1
Session("Amount") = rs("People")
'Amount = rs("People")
Session("Number_People") = 1
rs.Update
rs.Close
End If
'Response.Write "Session Number = " & Session("Number_People")
'Response.Write "Number = " & Session("Amount")
cnn.Close
Set rs = Nothing
Set cnn = Nothing
%>