Too Many client tasks

[larkee]

I was wondering if somone could help me re write this Ultradev generated code. I need to not open so many recordsets cuase i'm getting a "too many client tasks" error. Below is just the first two "holes" (its a golf app) and there are 18 (over a thousand lines of code done this way) and it gives me the error after 7 holes.
----------------------------------------------------
<%
Dim CourseEagleHole1__MMColParam
CourseEagleHole1__MMColParam = &quot;1&quot;
if (Request.QueryString(&quot;CourseNameID&quot <> &quot;&quot then CourseEagleHole1__MMColParam = Request.QueryString(&quot;CourseNameID&quot
%>
<%
Dim CourseBirdieHole1__MMColParam
CourseBirdieHole1__MMColParam = &quot;1&quot;
if (Request.QueryString(&quot;CourseNameID&quot <> &quot;&quot then CourseBirdieHole1__MMColParam = Request.QueryString(&quot;CourseNameID&quot
%>

<%
Dim CourseParHole1__MMColParam
CourseParHole1__MMColParam = &quot;1&quot;
if (Request.QueryString(&quot;CourseNameID&quot <> &quot;&quot then CourseParHole1__MMColParam = Request.QueryString(&quot;CourseNameID&quot
%>
<%
Dim CourseBogeyHole1__MMColParam
CourseBogeyHole1__MMColParam = &quot;1&quot;
if (Request.QueryString(&quot;CourseNameID&quot <> &quot;&quot then CourseBogeyHole1__MMColParam = Request.QueryString(&quot;CourseNameID&quot
%>
<%
Dim CourseDoubleHole1__MMColParam
CourseDoubleHole1__MMColParam = &quot;1&quot;
if (Request.QueryString(&quot;CourseNameID&quot <> &quot;&quot then CourseDoubleHole1__MMColParam = Request.QueryString(&quot;CourseNameID&quot
%>
<%
Dim CourseTripleHole1__MMColParam
CourseTripleHole1__MMColParam = &quot;1&quot;
if (Request.QueryString(&quot;CourseNameID&quot <> &quot;&quot then CourseTripleHole1__MMColParam = Request.QueryString(&quot;CourseNameID&quot
%>
<%
Dim CourseOtherHole1__MMColParam
CourseOtherHole1__MMColParam = &quot;1&quot;
if (Request.QueryString(&quot;CourseNameID&quot <> &quot;&quot then CourseOtherHole1__MMColParam = Request.QueryString(&quot;CourseNameID&quot
%>
<%
Dim CoursePuttHole1__MMColParam
CoursePuttHole1__MMColParam = &quot;1&quot;
if (Request.QueryString(&quot;CourseNameID&quot <> &quot;&quot then CoursePuttHole1__MMColParam = Request.QueryString(&quot;CourseNameID&quot
%>
<%
Dim CourseEagleHole2__MMColParam
CourseEagleHole2__MMColParam = &quot;1&quot;
if (Request.QueryString(&quot;CourseNameID&quot <> &quot;&quot then CourseEagleHole2__MMColParam = Request.QueryString(&quot;CourseNameID&quot
%>
<%
Dim CourseBirdieHole2__MMColParam
CourseBirdieHole2__MMColParam = &quot;1&quot;
if (Request.QueryString(&quot;CourseNameID&quot <> &quot;&quot then CourseBirdieHole2__MMColParam = Request.QueryString(&quot;CourseNameID&quot
%>


<%
Dim CourseParHole2__MMColParam
CourseParHole2__MMColParam = &quot;1&quot;
if (Request.QueryString(&quot;CourseNameID&quot <> &quot;&quot then CourseParHole2__MMColParam = Request.QueryString(&quot;CourseNameID&quot
%>
<%
Dim CourseBogeyHole2__MMColParam
CourseBogeyHole2__MMColParam = &quot;1&quot;
if (Request.QueryString(&quot;CourseNameID&quot <> &quot;&quot then CourseBogeyHole2__MMColParam = Request.QueryString(&quot;CourseNameID&quot
%>
<%
Dim CourseDoubleHole2__MMColParam
CourseDoubleHole2__MMColParam = &quot;1&quot;
if (Request.QueryString(&quot;CourseNameID&quot <> &quot;&quot then CourseDoubleHole2__MMColParam = Request.QueryString(&quot;CourseNameID&quot
%>
<%
Dim CourseTripleHole2__MMColParam
CourseTripleHole2__MMColParam = &quot;1&quot;
if (Request.QueryString(&quot;CourseNameID&quot <> &quot;&quot then CourseTripleHole2__MMColParam = Request.QueryString(&quot;CourseNameID&quot
%>
<%
Dim CourseOtherHole2__MMColParam
CourseOtherHole2__MMColParam = &quot;1&quot;
if (Request.QueryString(&quot;CourseNameID&quot <> &quot;&quot then CourseOtherHole2__MMColParam = Request.QueryString(&quot;CourseNameID&quot
%>
<%
Dim CoursePuttHole2__MMColParam
CoursePuttHole2__MMColParam = &quot;1&quot;
if (Request.QueryString(&quot;CourseNameID&quot <> &quot;&quot then CoursePuttHole2__MMColParam = Request.QueryString(&quot;CourseNameID&quot
%>
<%
set CourseEagleHole1 = Server.CreateObject(&quot;ADODB.Recordset&quot
CourseEagleHole1.ActiveConnection = MM_golfApp_STRING
CourseEagleHole1.Source = &quot;SELECT * FROM CourseEagleHole1 WHERE CourseNameID = &quot; + Replace(CourseEagleHole1__MMColParam, &quot;'&quot;, &quot;''&quot + &quot;&quot;
CourseEagleHole1.CursorType = 0
CourseEagleHole1.CursorLocation = 2
CourseEagleHole1.LockType = 3
CourseEagleHole1.Open()
CourseEagleHole1_numRows = 0
%>
<%
set CourseBirdieHole1 = Server.CreateObject(&quot;ADODB.Recordset&quot
CourseBirdieHole1.ActiveConnection = MM_golfApp_STRING
CourseBirdieHole1.Source = &quot;SELECT * FROM CourseBirdieHole1 WHERE CourseNameID = &quot; + Replace(CourseBirdieHole1__MMColParam, &quot;'&quot;, &quot;''&quot + &quot;&quot;
CourseBirdieHole1.CursorType = 0
CourseBirdieHole1.CursorLocation = 2
CourseBirdieHole1.LockType = 3
CourseBirdieHole1.Open()
CourseBirdieHole1_numRows = 0
%>
<%
set CourseParHole1 = Server.CreateObject(&quot;ADODB.Recordset&quot
CourseParHole1.ActiveConnection = MM_golfApp_STRING
CourseParHole1.Source = &quot;SELECT * FROM CourseParHole1 WHERE CourseNameID = &quot; + Replace(CourseParHole1__MMColParam, &quot;'&quot;, &quot;''&quot + &quot;&quot;
CourseParHole1.CursorType = 0
CourseParHole1.CursorLocation = 2
CourseParHole1.LockType = 3
CourseParHole1.Open()
CourseParHole1_numRows = 0
%>
<%
set CourseBogeyHole1 = Server.CreateObject(&quot;ADODB.Recordset&quot
CourseBogeyHole1.ActiveConnection = MM_golfApp_STRING
CourseBogeyHole1.Source = &quot;SELECT * FROM CourseBogeyHole1 WHERE CourseNameID = &quot; + Replace(CourseBogeyHole1__MMColParam, &quot;'&quot;, &quot;''&quot + &quot;&quot;
CourseBogeyHole1.CursorType = 0
CourseBogeyHole1.CursorLocation = 2
CourseBogeyHole1.LockType = 3
CourseBogeyHole1.Open()
CourseBogeyHole1_numRows = 0
%>
<%
set CourseDoubleHole1 = Server.CreateObject(&quot;ADODB.Recordset&quot
CourseDoubleHole1.ActiveConnection = MM_golfApp_STRING
CourseDoubleHole1.Source = &quot;SELECT * FROM CourseDoubleHole1 WHERE CourseNameID = &quot; + Replace(CourseDoubleHole1__MMColParam, &quot;'&quot;, &quot;''&quot + &quot;&quot;
CourseDoubleHole1.CursorType = 0
CourseDoubleHole1.CursorLocation = 2
CourseDoubleHole1.LockType = 3
CourseDoubleHole1.Open()
CourseDoubleHole1_numRows = 0
%>
<%
set CourseTripleHole1 = Server.CreateObject(&quot;ADODB.Recordset&quot
CourseTripleHole1.ActiveConnection = MM_golfApp_STRING
CourseTripleHole1.Source = &quot;SELECT * FROM CourseTripleHole1 WHERE CourseNameID = &quot; + Replace(CourseTripleHole1__MMColParam, &quot;'&quot;, &quot;''&quot + &quot;&quot;
CourseTripleHole1.CursorType = 0
CourseTripleHole1.CursorLocation = 2
CourseTripleHole1.LockType = 3
CourseTripleHole1.Open()
CourseTripleHole1_numRows = 0
%>
<%
set CourseOtherHole1 = Server.CreateObject(&quot;ADODB.Recordset&quot
CourseOtherHole1.ActiveConnection = MM_golfApp_STRING
CourseOtherHole1.Source = &quot;SELECT * FROM CourseOtherHole1 WHERE CourseNameID = &quot; + Replace(CourseOtherHole1__MMColParam, &quot;'&quot;, &quot;''&quot + &quot;&quot;
CourseOtherHole1.CursorType = 0
CourseOtherHole1.CursorLocation = 2
CourseOtherHole1.LockType = 3
CourseOtherHole1.Open()
CourseOtherHole1_numRows = 0
%>
<%
set CoursePuttHole1 = Server.CreateObject(&quot;ADODB.Recordset&quot
CoursePuttHole1.ActiveConnection = MM_golfApp_STRING
CoursePuttHole1.Source = &quot;SELECT * FROM CoursePuttHole1 WHERE CourseNameID = &quot; + Replace(CoursePuttHole1__MMColParam, &quot;'&quot;, &quot;''&quot + &quot;&quot;
CoursePuttHole1.CursorType = 0
CoursePuttHole1.CursorLocation = 2
CoursePuttHole1.LockType = 3
CoursePuttHole1.Open()
CoursePuttHole1_numRows = 0
%>
<%
set CourseEagleHole2 = Server.CreateObject(&quot;ADODB.Recordset&quot
CourseEagleHole2.ActiveConnection = MM_golfApp_STRING
CourseEagleHole2.Source = &quot;SELECT * FROM CourseEagleHole2 WHERE CourseNameID = &quot; + Replace(CourseEagleHole1__MMColParam, &quot;'&quot;, &quot;''&quot + &quot;&quot;
CourseEagleHole2.CursorType = 0
CourseEagleHole2.CursorLocation = 2
CourseEagleHole2.LockType = 3
CourseEagleHole2.Open()
CourseEagleHole2_numRows = 0
%>
<%
set CourseBirdieHole2 = Server.CreateObject(&quot;ADODB.Recordset&quot
CourseBirdieHole2.ActiveConnection = MM_golfApp_STRING
CourseBirdieHole2.Source = &quot;SELECT * FROM CourseBirdieHole2 WHERE CourseNameID = &quot; + Replace(CourseBirdieHole2__MMColParam, &quot;'&quot;, &quot;''&quot + &quot;&quot;
CourseBirdieHole2.CursorType = 0
CourseBirdieHole2.CursorLocation = 2
CourseBirdieHole2.LockType = 3
CourseBirdieHole2.Open()
CourseBirdieHole2_numRows = 0
%>
<%
set CourseParHole2 = Server.CreateObject(&quot;ADODB.Recordset&quot
CourseParHole2.ActiveConnection = MM_golfApp_STRING
CourseParHole2.Source = &quot;SELECT * FROM CourseParHole2 WHERE CourseNameID = &quot; + Replace(CourseParHole2__MMColParam, &quot;'&quot;, &quot;''&quot + &quot;&quot;
CourseParHole2.CursorType = 0
CourseParHole2.CursorLocation = 2
CourseParHole2.LockType = 3
CourseParHole2.Open()
CourseParHole2_numRows = 0
%>
<%
set CourseBogeyHole2 = Server.CreateObject(&quot;ADODB.Recordset&quot
CourseBogeyHole2.ActiveConnection = MM_golfApp_STRING
CourseBogeyHole2.Source = &quot;SELECT * FROM CourseBogeyHole2 WHERE CourseNameID = &quot; + Replace(CourseBogeyHole2__MMColParam, &quot;'&quot;, &quot;''&quot + &quot;&quot;
CourseBogeyHole2.CursorType = 0
CourseBogeyHole2.CursorLocation = 2
CourseBogeyHole2.LockType = 3
CourseBogeyHole2.Open()
CourseBogeyHole2_numRows = 0
%>
<%
set CourseDoubleHole2 = Server.CreateObject(&quot;ADODB.Recordset&quot
CourseDoubleHole2.ActiveConnection = MM_golfApp_STRING
CourseDoubleHole2.Source = &quot;SELECT * FROM CourseDoubleHole2 WHERE CourseNameID = &quot; + Replace(CourseDoubleHole2__MMColParam, &quot;'&quot;, &quot;''&quot + &quot;&quot;
CourseDoubleHole2.CursorType = 0
CourseDoubleHole2.CursorLocation = 2
CourseDoubleHole2.LockType = 3
CourseDoubleHole2.Open()
CourseDoubleHole2_numRows = 0
%>
<%
set CourseTripleHole2 = Server.CreateObject(&quot;ADODB.Recordset&quot
CourseTripleHole2.ActiveConnection = MM_golfApp_STRING
CourseTripleHole2.Source = &quot;SELECT * FROM CourseTripleHole2 WHERE CourseNameID = &quot; + Replace(CourseTripleHole2__MMColParam, &quot;'&quot;, &quot;''&quot + &quot;&quot;
CourseTripleHole2.CursorType = 0
CourseTripleHole2.CursorLocation = 2
CourseTripleHole2.LockType = 3
CourseTripleHole2.Open()
CourseTripleHole2_numRows = 0
%>
<%
set CourseOtherHole2 = Server.CreateObject(&quot;ADODB.Recordset&quot
CourseOtherHole2.ActiveConnection = MM_golfApp_STRING
CourseOtherHole2.Source = &quot;SELECT * FROM CourseOtherHole2 WHERE CourseNameID = &quot; + Replace(CourseOtherHole2__MMColParam, &quot;'&quot;, &quot;''&quot + &quot;&quot;
CourseOtherHole2.CursorType = 0
CourseOtherHole2.CursorLocation = 2
CourseOtherHole2.LockType = 3
CourseOtherHole2.Open()
CourseOtherHole2_numRows = 0
%>
<%
set CoursePuttHole2 = Server.CreateObject(&quot;ADODB.Recordset&quot
CoursePuttHole2.ActiveConnection = MM_golfApp_STRING
CoursePuttHole2.Source = &quot;SELECT * FROM CoursePuttHole2 WHERE CourseNameID = &quot; + Replace(CoursePuttHole2__MMColParam, &quot;'&quot;, &quot;''&quot + &quot;&quot;
CoursePuttHole2.CursorType = 0
CoursePuttHole2.CursorLocation = 2
CoursePuttHole2.LockType = 3
CoursePuttHole2.Open()
CoursePuttHole2_numRows = 0
%>

 

[mlawson]

Hi there,

My guess is that each participant wouldn't need to actually be on all 18 holes at once (unless this is a terribly complex app), you could create recordsets for each 'page' or hole. If this is incorrect then consider using a query that pares down the actual information that needs to be presented. For some more meaningful information , it would be useful if you could post up some Access table information or some background information about what it is you are trying to achieve by opening all the recordsets at one go.

Sorry this is of little use so far!

M

 

[mlawson]

Hi there,

My guess is that each participant wouldn't need to actually be on all the holes at once (unless this is a terribly complex app), you could create recordsets for each 'page' or hole. If this is incorrect then consider using a query that pares down the actual information that needs to be presented. For some more meaningful information , it would be useful if you could post up some Access table information or some background information about what it is you are trying to achieve by opening all the recordsets at one go.

Sorry this is of little use so far!

M

 

[mlawson]

sorry about my bizarre postings!

M