Error Type:Active Server Pages, ASP 0113 (0x80004005)

**guddu** · guddu, July 8th, 2008 12:29 PM

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** · AOG123, July 8th, 2008 12:46 PM

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** · guddu, July 8th, 2008 12:49 PM

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** · richyrich, July 8th, 2008 01: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** · guddu, July 8th, 2008 01: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** · richyrich, July 8th, 2008 01: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** · guddu, July 8th, 2008 06:42 PM

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

**jmurrayhead** · jmurrayhead, July 8th, 2008 07: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** · guddu, July 8th, 2008 07:18 PM

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

**jmurrayhead** · jmurrayhead, July 9th, 2008 07:18 PM

Were you able to get this sorted, Guddu?

Thread: Error Type:Active Server Pages, ASP 0113 (0x80004005)

LinkBack

Thread Tools

Display

Error Type:Active Server Pages, ASP 0113 (0x80004005)

Similar Threads

Data Type Mismatch in Criteria Expression

Type mismatch: HTMLEncode

SQL Server Views

Date Last Modified for ASP Pages

Bookmarks

Bookmarks

Posting Permissions