inetserver asp components: I have created a script component and registered it in my
windows 2000 advanced server with IISv5.0, when i tried to
access it from the network sometimes it works and
sometimes it displays ran out of memory or the resource is
in use, but when i restart IIS it's working again for

are you destroying the object at the end of the script ?


[quoted text, click to view]

Yes, I destroy it on every call, by the way here's my code:
for the script component:

<?xml version="1.0"?>
<component>

<registration
description="cEnglishSplit for AllMarkets split 1"
progid="cEnglishSplit.InfoCMS"
version="2.00"
[quoted text, click to view]
</registration>

<public>
<method name="ShowEnglishSplitData">
<PARAMETER name="strDate"/>
</method>
</public>

<implements type="ASP" id="ASP"/>

<script language="VBScript" src="allfunctions.vbs"/>

<script language="VBScript">
<![CDATA[

Dim AnsweredValue(24), AbandonedValue(24), AnsTimeValue(24),
ACDTimeValue(24), titleVDN, titleCF, titleFilter
Dim OfferedValue(24), ASAValue(24), CPTValue(24), AbanPercentValue(24),
CPT1Value(24), ASA1Value(24)

Const ServerName = "ph0infocms"
Const dbProvider = "DSN=ph0cms"

'=======================================================================
===================================================='
'===== A Function to display all the table and their Values
====================='
'=======================================================================
===================================================='
function ShowEnglishSplitData(strDate)
On Error Resume Next

Dim TableCells(27,11), AssignValues
Dim CounterX, CounterY, TimeCounter, ManilaTime, PacificTime
Dim strTableValues


'=======================================================================
===='
'===== Reset all the values of TableCells Array =====
Dim ResetX, ResetY
For ResetX = 1 to 27
For ResetY = 1 to 11
TableCells(ResetX, ResetY) = 0
Next
Next

'=======================================================================
===='


'=======================================================================
========================================'
'===== Check for the input date Value, should not exceed today's date
=====

'=======================================================================
========================================'
If DateDiff("d", Now, strDate) <= 0 Then

'=======================================================================
========================================'
'===== Call the Second Function then output the data ====='

'=======================================================================
========================================'
Call GetTableValues(strDate)

'=======================================================================
========================================'

'=======================================================================
========================================'
For AssignValues = 0 to 24
TableCells(AssignValues+3,3) =
FormatNumber(OfferedValue(AssignValues), 0,-1,0,-1)
TableCells(AssignValues+3,4) =
FormatNumber(AnsweredValue(AssignValues), 0,-1,0,-1)
TableCells(AssignValues+3,5) =
FormatNumber(AbandonedValue(AssignValues), 0,-1,0,-1)
TableCells(AssignValues+3,6) =
FormatPercent(AbanPercentValue(AssignValues), 2)
TableCells(AssignValues+3,7) =
FormatNumber(ASAValue(AssignValues), 0,-1,0,-1)
TableCells(AssignValues+3,8) =
FormatNumber(CPTValue(AssignValues), 0,-1,0,-1)
TableCells(AssignValues+3,9) =
FormatNumber(CPT1Value(AssignValues), 0,-1,0,-1)
TableCells(AssignValues+3,10) =
FormatNumber(ASA1Value(AssignValues), 0,-1,0,-1)
TableCells(AssignValues+3,11) =
FormatNumber(UnRecVDNAll(AssignValues), 0,-1,0,-1)
If AssignValues = 24 Then
TableCells(AssignValues+3,7) =
FormatNumber(ASAValue(AssignValues), 2,-1,0,-1)
End If
Next

'=======================================================================
========================================'
End If

'=======================================================================
========================================'



'=======================================================================
===='
'===== set the values of the time variables

'=======================================================================
===='
PacificTime = 0
ManilaTime = PacificTime + 1600

'''''''''' Assign Time values to the 3 TO 26 rows, columns 1 and 2 of
the AllInfoMarkets Array ''''''''''
'''''''''' Loop through the ManilaTime Counter starting with 3 until
26 ''''''''''
For TimeCounter = 3 to 26
'''''''''' Assign the X(row) time value to the AllInfoMarkets
Array starting with 3 until 26 ''''''''''
TableCells(TimeCounter,1) = ManilaTime
TableCells(TimeCounter,2) = PacificTime

'''''''''' Increment the PST TimeValue variable ''''''''''
PacificTime = PacificTime + 100
'''''''''' Check for the TimeValueManila ''''''''''
If (ManilaTime >= 0) And (ManilaTime <= 2300) Then
'''''''''' Increment the TimeValue variable ''''''''''
ManilaTime = ManilaTime + 100
End If
If (ManilaTime = 2400) Then
'''''''''' Set TimeValue to zero ''''''''''
ManilaTime = 0
End If

'''''''''' Loop to the next value ''''''''''
Next

'=======================================================================
===='



'=======================================================================
===='
'===== Assign the values to the string variable =====
TableCells(1,1) = "Searched Market :"
TableCells(1,3) = "English Split/Skill Report"
TableCells(1,8) = "Searched Date :"
TableCells(1,10) = strDate
TableCells(1,11) = "UnRecognized VDNs"
TableCells(2,1) = "Manila Time"
TableCells(2,2) = "Pacific Time"
TableCells(2,3) = "Offered"
TableCells(2,4) = "Answered"
TableCells(2,5) = "Abandoned"
TableCells(2,6) = "Aban %"
TableCells(2,7) = "ASA"
TableCells(2,8) = "CPT"
TableCells(2,9) = "CPT1"
TableCells(2,10) = "ASA1"
TableCells(27,1) = "Summary :"

strTableValues = "<TABLE BORDER=1>"

For CounterX = 1 to 27
strTableValues = strTableValues & "<TR>"
For CounterY = 1 to 11
If CounterX = 1 Then
If CounterY = 1 Then
'//===== TableCells(CounterX, CounterY) = "Searched
Market : " =====//
strTableValues = strTableValues & "<TD COLSPAN=2
BGCOLOR=LIGHTBLUE ALIGN=CENTER><B>" & TableCells(CounterX, CounterY) &
"</B></TD>"
ElseIf CounterY = 3 Then
strTableValues = strTableValues & "<TD COLSPAN=5
ALIGN=CENTER>" & TableCells(CounterX, CounterY) & "</TD>"
ElseIf CounterY = 8 Then
'//===== TableCells(CounterX, CounterY) = "Searched
Date:" =====//
strTableValues = strTableValues & "<TD COLSPAN=2
BGCOLOR=LIGHTBLUE ALIGN=CENTER><B>" & TableCells(CounterX, CounterY) &
"</B></TD>"
ElseIf CounterY = 10 Then
strTableValues = strTableValues & "<TD ALIGN=CENTER>" &

what do you mean when you say "when I access it from the network"? you
mean this is on a separate server to the invoking ASP script?

________________________________________
Atrax. MVP, IIS
http://rtfm.atrax.co.uk/

newsflash : Atrax.Richedit 1.0 now released.
http://rtfm.atrax.co.uk/infinitemonkeys/components/Atrax.RichEdit/

*** Sent via Developersdex http://www.developersdex.com ***

Nope, the iis, sql and the asp pages are all on the same server. fyi.
Here's the setup
A = informix server
B = SQL Server
C = website

Now I have created a script program to copy all the data in A and store
it to B, this script program updates/copies records every minute. Then I
created a wsc components that connects to the SQL server, so when i call
the components from asp it works, but when i call an asp which calls a
component that computes multiple tables, this is where the problem
occurs. 'Coz while this component is busy and when i access another asp
page it somehow displays the resource is in use when i unchecked the
cache isapi applications in IIS and when i check it the error that i'm
getting is ran out of memory.

By the way my components are either computing for a single table data or
multiple table data.

Thanks,
Cris



*** Sent via Developersdex http://www.developersdex.com ***