Re: ASP Time Out-Optimization Required?

Hello,
Please find below the section of code which I believe is cause of the
problem.
The page was built using Dreamweaver MX 2004 version 7.0
The connection to the database is via an ODBC DSN to an Oracle 9i database.
Many thanks for your help.

Garrie Powers
King's College London
------------------------------------------------------------ ---------------------

<%
Dim ApplicationInfo
Dim ApplicationInfo_numRows

Set ApplicationInfo = Server.CreateObject("ADODB.Recordset")
ApplicationInfo.ActiveConnection = MM_gen_STRING
ApplicationInfo.Source = "SELECT tblapplications.appid,
tblapplications.appnumber, tblapplications.applicationtitle,
tblapplications.academicsession, tblapplications.initialreviewdate,
tblapplications.decisionid, tblapplications.finaldecisionid,
tblapplications.finalapprovaldate, tbldecision.decisionid,
tbldecision.decision, tblapplications.reviewerid FROM tblapplications,
tbldecision WHERE tblapplications.decisionid like 'I%'AND
tblapplications.initialreviewdate <= ADD_MONTHS(CURRENT_DATE, -3) AND
tblapplications.finaldecisionid='0' AND tblapplications.decisionid =
'I'||tbldecision.decisionid"
ApplicationInfo.CursorType = 0
ApplicationInfo.CursorLocation = 2
ApplicationInfo.LockType = 1
ApplicationInfo.Open()

ApplicationInfo_numRows = 0
%>
<%
Dim ReviewerCodes
Dim ReviewerCodes_numRows

Set ReviewerCodes = Server.CreateObject("ADODB.Recordset")
ReviewerCodes.ActiveConnection = MM_gen_STRING
ReviewerCodes.Source = "select 'S'||subcommid as id, reviewercode from
tblsubcommittee union select 'P'||panelid as id, reviewercode from
tblpanel;"
ReviewerCodes.CursorType = 0
ReviewerCodes.CursorLocation = 2
ReviewerCodes.LockType = 1
ReviewerCodes.Open()

ReviewerCodes_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
ApplicationInfo_numRows = ApplicationInfo_numRows + Repeat1__numRows
%>