Erro De Timeout

[shikamaru]

Esta dando o seguinte erro quando eue stou carregando um script bem simples

Active Server Pages error 'ASP 0113'

Script timed out

/bernoulli/acesso/aluno/disciplinas.asp

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. 

<% Session("strDominio")= "/bernoulli/" %>
<!--#include file="../../admin/includes/config.inc"-->
<!--#include file="../../admin/includes/rot_db.inc"-->
<!--#include file="../../admin/includes/rot_registros.inc"-->
<!--#include file="../../admin/includes/rot_msgerros.inc"-->



<% 
	Dim turmaTest
	Dim pode

	turmaTest = "select turma, p.serie serie from profturmas p join admin a on a.turma_id = p.id where (p.serie = 'e' or p.serie = 'i' or p.serie = '3' or p.serie = '5' or p.serie = '6'  or p.serie = '7'  or p.serie = '8'  or p.serie = '1'  or p.serie = '2') and a.id="&session("bernoulli_login")(0)
	call consultaSQL(pode,turmaTest)

   While not pode.EOF 
  if (pode("serie") = "5") then
  	response.Redirect("5_serie.asp")
  End if
  
  if (pode("serie") = "6") then
  	response.Redirect("6_serie.asp")	
  End if
  
  if  (pode("serie") = "7") then
  	response.Redirect("7_serie.asp")
  End if	
  
  if (pode("serie") = "8") then
  	response.Redirect("8_serie.asp")
  End if	
  
  if (pode("serie") = "1") then
  	response.Redirect("1_ano.asp")
  End if
  
  if (pode("serie") = "2") then
  	response.Redirect("2_ano.asp")
  End if
  
  if (pode("serie") = "3") then
  	response.Redirect("3_ano.asp")
  End if
 Wend  
 %>
  
  

[.Andreia.]

muda lá