Discuss "Error Type:Active Server Pages, ASP 0113 (0x80004005)" in the ASP Development forum.

guddu · #1 July 8th, 2008, 11:29 AM

hi
below is my code.

Code:

<%
Option Explicit
Server.ScriptTimeout=900
Response.Expires = 0
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"

'Declare Global variable
Dim strQueueName,intSenderID,intRecipientID,intDocType  
Dim objRouteCalculator
Dim rsQueuePath
Dim strParent,strSpace,intDeep,i,lCounter
Dim splitPQ	
'Dim splitEQ	
'Dim splitRQ

If(Request.QueryString("ID") = 1)Then
   Select case Left(Request.QueryString("QueueName"),3)
		case "pq_"
			splitPQ= Split(Trim(Request.QueryString("QueueName")),"pq_")	
			strQueueName = "lq_"& Left(splitPQ(1),Len(splitPQ(1))-2) 
		case "eq_"	
			'splitEQ= Split(Trim(Request.QueryString("QueueName")),"eq_")	
			strQueueName = Replace(Trim(Request.QueryString("QueueName")),"eq_","lq_") ' "lq_"& Left(splitEQ(1),Len(splitEQ(1))) 
		case "rq_"
			'splitRQ= Split(Trim(Request.QueryString("QueueName")),"rq_")	
			strQueueName = Replace(Trim(Request.QueryString("QueueName")),"rq_","lq_") '"lq_"& Left(splitRQ(1),Len(splitRQ(1))) 
	End Select
	intSenderID = CLng(Request.QueryString("SenderID"))
	intRecipientID = CLng(Request.QueryString("RecipientID"))
	intDocType = CLng(Request.QueryString("DocType"))
Else
	strQueueName = Trim(Request.Form("cboQueueToRouteFrom"))
	intSenderID = CLng(Request.Form("txtSenderID"))
	intRecipientID = CLng(Request.Form("txtRecipientID"))
	intDocType = CLng(Request.Form("txtDocType"))
End If 

On Error Resume Next 
Set objRouteCalculator = Server.CreateObject("ProcessMapChecker.ProcessMap")
Set rsQueuePath = objRouteCalculator.CalcRoute(intSenderID,intRecipi  entID,intDocType,strQueueName)

intDeep = 0
strParent = ""
lCounter = 0
If Not rsQueuePath.EOF  Then
	Response.Write "<Table witdth='100%' cellSpacing='0' cellPadding='0' align='left' border='1'>"  
	While Not rsQueuePath.EOF
		If (strParent <> rsQueuePath("Parent")) Or rsQueuePath("Parent") = "" Then
			intDeep = intDeep + 1
			strParent = rsQueuePath("Parent")
		End If
		Response.Write "<TR class=""Row" & lCounter Mod 2 & """><TD Width='100%'>" 		
		For i = 1 To (5 * rsQueuePath("Depth"))
			Response.write "&nbsp;"
		Next
		lCounter = lCounter + 1
		Response.write rsQueuePath("Text") & "</TD></TR>"
		
		
		rsQueuePath.MoveNext
	Wend 
	Response.Write "</Table>"  	
Else
	Response.write "<Table align=""center""><tr><td><font color=""Red""><b>Sorry !! Record not found</b></font></td></tr></Table>"
End If 
Set rsQueuePath = Nothing
Set objRouteCalculator  = Nothing
%>
<HTML>
<HEAD>
<TITLE>Queue Process Map</TITLE>
<Link Rel="StyleSheet" HRef="..\..\Main.css" Type="text/css">	
</HEAD>
<BODY>
</BODY>
</HTML>

its working fine.but problem is i m getting some time below error.can anybody tell me what could be cause?At iis i changed my script time out 900 seconds
i debugged my vb code.there i m not getting any problem.

Thanks.

Code:

Error Type:
Active Server Pages, ASP 0113 (0x80004005)
The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.
/Plugins/ProcessMapChecker/QueueProcessMap.asp

AOG123 · #2 July 8th, 2008, 11:46 AM

Hi, there is a good link here, with 3 options.

PRB: "Script Time Out" Error in Active Server Pages (ASP)

I'd guess you need to use the Server.ScriptTimeOut property to programmatically increase the ScriptTimeOut property value.

guddu · #3 July 8th, 2008, 11:49 AM

Thanks for reply.u can see in my code i m already using this Server.ScriptTimeout=900
and already gone through that link.but no luck.

richyrich · #4 July 8th, 2008, 12:03 PM

Try commenting out the on error resume next line.

Most probably there's some error that is not being shown and then the page is timing out.

guddu · #5 July 8th, 2008, 12:09 PM

RR--> I have already that.but no Specific error message shown.i tell what problem i m facing.when i access this page first time it loads page perfectly.and after some time again i try to load this page in that case i get error.for same information putting in my form its works some time and some time gives error.

richyrich · #6 July 8th, 2008, 12:36 PM

How do you get it working again?

If you remove the On Error Resume Next line, does it still just give the time out error or something different?

guddu · #7 July 8th, 2008, 05:42 PM

rr i m at home.2morrow i will post all details.any way thanks a lot.

jmurrayhead · #8 July 8th, 2008, 06:12 PM

Guddu,

Look at all your looping (i.e. For Next... and Do While...)

Ensure that these aren't infinite loops and can terminate. That is often a cause for script timeouts.

Definitely verify the value of (5 * rsQueuePath("Depth")).

Also, I see you're checking for EOF:

Code:

If Not rsQueuePath.EOF  Then

It's a good idea to check for BOF, also:

Code:

If Not rsQueuePath.EOF And Not rsQueuePath.BOF Then

guddu · #9 July 8th, 2008, 06:18 PM

hey J thanks for your suggestion.i will give try to all said by u.

jmurrayhead · #10 July 9th, 2008, 06:18 PM

Were you able to get this sorted, Guddu?

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Data Type Mismatch in Criteria Expression	alansidman	Microsoft Access	1	April 9th, 2008 04:33 PM
[Error] Type mismatch: HTMLEncode	Rebelle	ASP Development	20	March 28th, 2008 09:30 AM
SQL Server Views	theChris	Microsoft SQL Server	3	March 23rd, 2008 07:35 PM
[ASP/VBScript] Date Last Modified for ASP Pages	mehere	Code Samples	0	March 21st, 2008 12:20 PM

Discuss "Error Type:Active Server Pages, ASP 0113 (0x80004005)" in the ASP Development forum.

ASP Development - Learn coding practices and tips to get the best out of your Active Server Pages (ASP). The Classic ASP forum is for ASP/VBScript and ASP/JScript applications.