Reason for sudden freezing of ASP. Fast session changing?

[Frosters]

Hi I'm hoping someone might be able to help me out. For the last few days I've been building a seating manager for a LAN party. Finally got it all working today only to find that after a few seat changes the ASP pages grind to a halt. What I don't get is why it works so quickly the first few times and then just stops altogether (all asp pages then seem to stop working, including other on the site, after I restart the browser it works fine again). This lead me to believe that my ASP was somehow messing with my browser not the server.

My first suspicion was the amount of code on the "reserve a seat" page. I check a session variable to see if the user already has a seat, then redirects them if that is the case. I then check to see if the seat they want is actually available (as seat id is sent via querystring). I then have the update code and finally I call a function which converts the seat ID into a "seat name" (some simple ASP which reformats the ID from 5 to A05 etc).

If the user has a seat, that seat is deleted on another page, and the session variable reset to allow for a new seat reservation. The user is then redirected back to the reserve a seat page with their original seat id. I was wondering if rapid changing of seats, hence rapid changing the value of a session variable might be causing the problem?

Otherwise I also have a total of 5 sessions variables going at the same time. Might this make an impact on the server performance, could this possibly be the cause for the site to start fast but then just stop?

Here is the url so you can see the problem yourself. First click here to create the session variables to log you in.

http://www.fusionite.net/meltdown/floor/3del.asp

Then here to use the acctual seating utility.

http://www.fusionite.net/meltdown/floor

I have included the code for the page (commented) which keeps freezing. This page does the reservering. It updates a database which has a table with one seat per field. Each row contains the seat ID, userID, userName, userClan and userClanID.

If anyone can shed some light on this issues it would be greatly appreciated!


Thanks in advance!
Nik
nik@meltdown.ca

http://www.MELTdown.ca

<%@LANGUAGE=&quot;VBSCRIPT&quot;%>
<%' check if sessions exist, if loged in%>
<!--#include file=&quot;ax_secure.asp&quot; -->

<!--#include file=&quot;../Connections/meltdown.asp&quot; -->

<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = &quot;#&quot;
If (request.querystring(&quot;id&quot <> &quot;&quot Then
Recordset1__MMColParam = request.querystring(&quot;id&quot
End If
%>

<%
'Check if session seat = no, if they have a seat they need to delete it first
If Session(&quot;seat&quot <> &quot;no&quot; then response.redirect(&quot;del.asp?id=&quot; & Recordset1__MMColParam)
%>

<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject(&quot;ADODB.Recordset&quot
Recordset1.ActiveConnection = MM_meltdown_STRING
Recordset1.Source = &quot;SELECT * FROM floor WHERE id = &quot; + Replace(Recordset1__MMColParam, &quot;'&quot;, &quot;''&quot + &quot;&quot;
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>

<%
Dim seat_user_id
seat_user_id = Recordset1.Fields.Item(&quot;user_id&quot.Value
if seat_user_id = 0 Then 'seat is free, no 1337 querystring hax0ring here
%>

<%
'I dont need to make this pull from the db, dont know why I did, in anycase I dont think this is causing the problem
'Define ID for later manipulation of the seat name
id = (Recordset1.Fields.Item(&quot;id&quot.Value)
%>

<%
'Start UD super bulky Update code
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables(&quot;SCRIPT_NAME&quot)
If (Request.QueryString <> &quot;&quot Then
MM_editAction = MM_editAction & &quot;?&quot; & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = &quot;&quot;
%>
<%
' *** Update Record: set variables

If (CStr(Request(&quot;MM_update&quot) = &quot;form1&quot; And CStr(Request(&quot;MM_recordId&quot) <> &quot;&quot Then

MM_editConnection = MM_meltdown_STRING
MM_editTable = &quot;floor&quot;
MM_editColumn = &quot;id&quot;
MM_recordId = &quot;&quot; + Request.Form(&quot;MM_recordId&quot + &quot;&quot;
MM_editRedirectUrl = &quot;done.asp&quot;
MM_fieldsStr = &quot;user_id|value|user_name|value|user_clan|value|user_clan_id|value&quot;
MM_columnsStr = &quot;user_id|none,none,NULL|user_name|',none,''|user_clan|',none,''|user_clan_id|none,none,NULL&quot;

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, &quot;|&quot
MM_columns = Split(MM_columnsStr, &quot;|&quot

' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
Next

' append the query string to the redirect URL
If (MM_editRedirectUrl <> &quot;&quot; And Request.QueryString <> &quot;&quot Then
If (InStr(1, MM_editRedirectUrl, &quot;?&quot;, vbTextCompare) = 0 And Request.QueryString <> &quot;&quot Then
MM_editRedirectUrl = MM_editRedirectUrl & &quot;?&quot; & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & &quot;&&quot; & Request.QueryString
End If
End If

End If
%>
<%
' *** Update Record: construct a sql update statement and execute it

If (CStr(Request(&quot;MM_update&quot) <> &quot;&quot; And CStr(Request(&quot;MM_recordId&quot) <> &quot;&quot Then

' create the sql update statement
MM_editQuery = &quot;update &quot; & MM_editTable & &quot; set &quot;
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),&quot;,&quot
MM_delim = MM_typeArray(0)
If (MM_delim = &quot;none&quot Then MM_delim = &quot;&quot;
MM_altVal = MM_typeArray(1)
If (MM_altVal = &quot;none&quot Then MM_altVal = &quot;&quot;
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = &quot;none&quot Then MM_emptyVal = &quot;&quot;
If (MM_formVal = &quot;&quot Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> &quot;&quot Then
MM_formVal = MM_altVal
ElseIf (MM_delim = &quot;'&quot Then ' escape quotes
MM_formVal = &quot;'&quot; & Replace(MM_formVal,&quot;'&quot;,&quot;''&quot & &quot;'&quot;
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_editQuery = MM_editQuery & &quot;,&quot;
End If
MM_editQuery = MM_editQuery & MM_columns(MM_i) & &quot; = &quot; & MM_formVal
Next
MM_editQuery = MM_editQuery & &quot; where &quot; & MM_editColumn & &quot; = &quot; & MM_recordId

If (Not MM_abortEdit) Then
' execute the update
Set MM_editCmd = Server.CreateObject(&quot;ADODB.Command&quot
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
Session(&quot;seat&quot = &quot;&quot;

If (MM_editRedirectUrl <> &quot;&quot Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<%End If 'end if seat acctually free%>

<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

<%'include fuctions to format seat id%>
<!--#include file=&quot;ax_formatseat.asp&quot; -->
<!DOCTYPE HTML PUBLIC &quot;-//W3C//DTD HTML 4.01 Transitional//EN&quot;>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=iso-8859-1&quot;>
</head>

<body bgcolor=&quot;#FF9900&quot; text=&quot;#510000&quot; link=&quot;#990000&quot; vlink=&quot;#990000&quot; alink=&quot;#990000&quot; leftmargin=&quot;0&quot; topmargin=&quot;0&quot; marginwidth=&quot;0&quot; marginheight=&quot;0&quot;>
<table width=&quot;187&quot; height=&quot;407&quot; border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot;>
<tr>
<td>
<%If user_seat_id <> 0 Then 'make sure seat is still available%>
<font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;>Uh oh! It seems
that someone has already taken this seat! Please click <a href=&quot;floor.asp&quot; target=&quot;main&quot;>here</a>
to refresh the seating plan.</font>
<%Else ' seat is available, no 1337 querystring hax0rs here%>
<p><font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;>You have
chosen seat <strong><%=seatname(id)%> </strong><font size=&quot;1&quot;>(code: <%=id%>)<font size=&quot;2&quot;>.</font></font></font></p>
<p><font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;>To reserve
this seat click on the button below. You can change your seat as many
times as you wish. Seating reservation will close 24 hours prior to the
LAN.</font></p>
<form ACTION=&quot;<%=MM_editAction%>&quot; METHOD=&quot;POST&quot; name=&quot;form1&quot;>

<div align=&quot;center&quot;>
<input name=&quot;id&quot; type=&quot;hidden&quot; id=&quot;id&quot; value=&quot;<%=id%>&quot;>
<input name=&quot;user_id&quot; type=&quot;hidden&quot; id=&quot;user_id&quot; value=&quot;<%=session(&quot;user_id&quot%>&quot;>
<input name=&quot;user_name&quot; type=&quot;hidden&quot; id=&quot;user_name&quot; value=&quot;<%=session(&quot;user_name&quot%>&quot;>
<input name=&quot;user_clan&quot; type=&quot;hidden&quot; id=&quot;user_id&quot; value=&quot;<%=session(&quot;user_clan&quot%>&quot;>
<input name=&quot;user_clan_id&quot; type=&quot;hidden&quot; id=&quot;user_name&quot; value=&quot;<%=session(&quot;user_clan_id&quot%>&quot;>
<input type=&quot;submit&quot; name=&quot;Submit&quot; value=&quot;Reserve my seat&quot;>
<br>
<font size=&quot;1&quot; face=&quot;Arial, Helvetica, sans-serif&quot;>(Please be patient)</font>
</div>

<input type=&quot;hidden&quot; name=&quot;MM_update&quot; value=&quot;form1&quot;>
<input type=&quot;hidden&quot; name=&quot;MM_recordId&quot; value=&quot;<%=id%>&quot;>
</form>
<%End If 'end if 1337 haxor or not%>
</td>
</tr>
<tr>
<td height=&quot;20%&quot;><!--#include file=&quot;ax_bottom.asp&quot; --></td>
</tr>
</table>
</body>
</html>





Referring URL 1:

http://www.fusionite.net/meltdown/floor/3del.asp

Referring URL 2:

http://www.fusionite.net/meltdown/floor