[thelist] Effcient ASP Script?

[Ferruh Mavituna]

For timeout use;

	Server.ScriptTimeout = 10000

For perfomrnace you can use ADO PageSize;

	RsName.PageSize = 2000

It will increase your performance dramaticly.
Also do not Use "SELECT * FROM" type fields one by one "SELECT field1,
field2, field3"...

TOP will not increase your performance. (Speacially for Access)

Additional info;

Use "timer" for your performance tests

	Dim
	x = timer
	-----------ASP Scripts....

	Response.Write timer - x

Use;
Response.Buffer = True

I have some experience in this kind of operations.
You can checkout http://ferruh.mavituna.com/emailgrabber.asp ( - Beta bulk
e-mail insert ...)
This tips must help you !


who // Ferruh Mavituna aka soul
wht // _UN.EGO


-----Original Message-----
From: thelist-admin at lists.evolt.org [mailto:thelist-admin at lists.evolt.org]On
Behalf Of Adam Slesinger
Sent: Monday, November 25, 2002 10:45 PM
To: thelist at lists.evolt.org
Subject: [thelist] Effcient ASP Script?


Hi folks!

I am writing a page that selects all records with company names and then
updates the type of those records if they are the first 2000 records.  The
database has a total of 13,000 records.  When I run this on my server, it
takes a long time, and then times out.

My 1st questions is, how can I keep any script in general from timing out?

My 2nd question is - is my code efficient?  I wouldn't think that it would
take so long for this process to run, but it only gets through about 1400
records before the timeout happens.

Any help is appreciated!

Thanks,
adam

set conn = server.createObject("ADODB.Connection")
conn.open Session("connection")
set rstemp = server.createobject("ADODB.Recordset")

SQL = "SELECT * FROM registrants WHERE company <> ''"
rstemp.open SQL, conn

do while not rstemp.eof
    strCount= strCount+ 1

    if strCount <= 2000 and strCount > 0 then
        'Update Type
        set typeUpdate= conn.execute("UPDATE registrants SET type= 1 WHERE
company = '" & rstemp("company") & "'")
    end if

rstemp.moveNext
loop

conn.close
set conn = nothing
--
* * Please support the community that supports you.  * *
http://evolt.org/help_support_evolt/

For unsubscribe and other options, including the Tip Harvester
and archives of thelist go to: http://lists.evolt.org
Workers of the Web, evolt !