asp timeout Limite da Memória Intermédia de Resposta excedido

razs · Fevereiro 11, 2016

Boas, tenho esta pagina que me da Limite da Memória Intermédia de Resposta excedido, já verifiquei tudo e nao percebo de onde vem, alguem consegue ver alguma coisa?

O erro certo é:

Objeto resposta erro 'ASP 0251 : 80004005'

Limite da Memória Intermédia de Resposta excedido

/Index.asp, linha 0

A execução da página ASP fez com que a Memória Intermédia de Resposta excedesse o respetivo limite configurado.

<%
id="1" 'Identifica o id
Server.ScriptTimeout = 7500
Response.Flush

'Verfifica se existe ligação a net
Dim intStatus, objHTTP
Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )

    objHTTP.Open "GET", "http://www.google.com/", False
    objHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MyApp 1.0; Windows NT 5.1)"

    On Error Resume Next

    objHTTP.Send
    intStatus = objHTTP.Status

    On Error Goto 0
Response.Flush
	If intStatus = 200 Then ' se existe ligacao a net entao define variaveis para conexao a db online
			
			Internet = "sim"
			nomebd = "painel"
			userdb = "root"
			passdb = "pass"
			servidor = "xxx.xxx.xx.xxx"	 

	Else	' se nao existe ligacao a net entao define variaveis para conexao a db local
			internet = "nao"
			nomebd = "painel"
			userdb = "root"
			passdb = "pass"
			servidor = "localhost"	

	End If

Set intStatus = Nothing
Set objHTTP = Nothing
Response.Flush
			
			'faz a ligacao com a bd
			dim conn
			Set conn = Server.CreateObject("ADODB.Connection")
			on error resume next
			conn.ConnectionString = "Driver={MYSQL ODBC 5.1 DRIVER};Server="&servidor&";Port=3306;Database="&nomebd&";Uid="&userdb&";Pwd="&passdb&";"  ' liga a bd
			conn.Open() 
				if err.number <> 0 then
					Response.Write "<br>Ocorreu o seguinte erro: "&Err.Description&", Source: "&Err.Source&"<br><br>"
				end if
				on error goto 0	
			
			
			'faz os selects das tabelas todas
			set textos = conn.Execute("select * from texto where id='"&id&"' ")	
			set videos = conn.Execute("select * from videos where id='"&id&"' ")	
			set noticias = conn.Execute("select * from noticias where id='"&id&"' ")				 
			set weather = conn.Execute("select * from weather where id='"&id&"' ")
			set ids= conn.Execute("select * from id where id='"&id&"' ")
			
			if textos.eof=true or videos.eof=true or weather.eof=true or ids.eof=true or noticias.eof=true then
				response.Write("<script>alert('Ocorreu um erro.\nObrigado');</script>")
			end if
Response.Flush			
%>

<!doctype html>
<html>
<head>
<title></title>
<meta charset="utf-8"/>

<link rel="stylesheet" href="style.css" type="text/css"/>
<script src="http://api.html5media.info/1.1.5/html5media.min.js"></script>
 
<script type="text/javascript">
function display_c(){
var refresh=1000; // Refresh rate in milli seconds
mytime=setTimeout('display_ct()',refresh)
}

function addZero(i) {
    if (i < 10) {
        i = "0" + i;
    }
    return i;
}

function display_ct() {
var strcount
var x = new Date()
var x1=x.getMonth() + "/" + x.getDate() + "/" + x.getYear();
x1 = addZero(x.getHours())+ ":" +addZero(x.getMinutes());
document.getElementById('ct').innerHTML = x1;

tt=display_c();

} 
</script>



</head>
<body onload=display_ct();>

<%
'configurações
logo=ids.fields("header") 
video="tv"
Response.Flush
%>

<div id="header" style="display: block;overflow: auto;position: relative;width: 100%;">
		<div id="h2" style="float: left;position: relative;width: 67.4%;height:25.5%;z-index:500;">
			<img src="img/<%=logo%>" >
		</div>
		
<!----------------------------------------------------------------------- Weather ---------------------------------------------------------------------------------------------------------------------------------->			
		<div id="head_text" style="z-index: 100; position: absolute;width:100%; overflow: hidden;">
			<%if internet="sim" then response.write weather.fields("cod") end if%>
		</div>
<!----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------->		
</div>

<!----------------------------------------------------------------------- Marque ---------------------------------------------------------------------------------------------------------------------------------->
<div id="wrapper" style="margin-top:-5%;display: block;position: relative;width: 100%;height: 80%;z-index:-1;">
		
		<div id="w2" style="float:right;display: block;position: relative;width:30%;height:700px;margin-top:15px;z-index:510;">
			<div class="container">
				<div class="demo-1 well" style="text-align:center;height:100%;font-size:45px;font-weight: bold;">
					
					<%
						do while not textos.eof=true
							response.write "|<span class='badge'>"&textos.fields("textos")&"</span>" 
						loop
					%> 
				
		
			</div>
		</div>
		
		<script src="http://code.jquery.com/jquery-2.1.4.min.js"></script>
		<script src="jquery.auto-text-rotating.js"></script>
		<script>
		$('.demo-1').atrotating({type: 'html'});
		</script>

</div>
<!---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------->			


		<div id="w1" style="height:710px;width:67%;padding:0px;">
			<%
			if video="tv" and internet="sim" then
				response.write videos.fields("cod")
			else
			%>
				   
				   
					<figure id="video_player">
							<div id="video_container">
								<video controls="controls" poster="http://demosthenes.info/assets/images/vid-glacier.jpg" autoplay>
									<source src="http://demosthenes.info/assets/videos/glacier.mp4" type="video/mp4">
									<source src="http://demosthenes.info/assets/videos/glacier.webm" type="video/webm">
								</video>
							</div>
						
												
						<%	
						Response.Flush
							' dim fs,fo,x
							' set fs=Server.CreateObject("Scripting.FileSystemObject")
							' set fo=fs.GetFolder("C:\inetpub\wwwroot\Painel_Informativo\videos\")
							
							' setfir="class='currentvid'"
							
							' for each x in fo.files
							' xName = replace (x.name,"."&fs.GetExtensionName(x.Name), "" )							
							' %>
								
								' <a href="\videos\<%=xName%>.mp4" type="video/mp4" <%=setfir%>>
									' <img src="http://demosthenes.info/assets/images/vid-glacier.jpg" alt="<%=Ucase(xName)%>">
								' </a>
							' <%
							' setfir=""
							' next

							' set fo=nothing
							' set fs=nothing
						%>
												
						<figcaption>
							  <a href="http://demosthenes.info/assets/videos/glacier.mp4" class="currentvid">
								<img src="http://demosthenes.info/assets/images/vid-glacier.jpg" alt="Athabasca Glacier">
							  </a>
							  <a href="http://demosthenes.info/assets/videos/lake.mp4">
								<img src="http://demosthenes.info/assets/images/vid-lake.jpg" alt="Athabasca Lake">
							  </a>
							  <a href="http://demosthenes.info/assets/videos/mountain.mp4">
								<img src="http://demosthenes.info/assets/images/vid-mountain.jpg" alt="Mountain">
							  </a>
						</figcaption>
					</figure>
			  
			<%end if%>	
		</div>
</div>

<div id="footer" style="clear: both;display: block;width: 100%;height: 10%;">

		<div id="f1" style="float: right;position: relative;width: 31%;	height: 100%;z-index:520;font-size:45px;text-align: center;padding-top:40px;color:darkgrey;font-weight: bold;">
			<%Response.Write(ExibeData(now())) %>
		</div>
	
			
		<div id="f2" style="float: left;position: relative;width: 68%;height: 100%;z-index:520;">
		
				<!-- start sw-rss-feed code --> 
					<script type="text/javascript"> 
					<!-- 
					rssfeed_url = new Array(); 
					<%
					x=1
					do while not noticias.eof=true
					%>
					rssfeed_url[<%=x%>]="<%=noticias.fields("url")%>"; 
					<%
					x=x+1
					loop%>  
					rssfeed_frame_width="1150"; 
					rssfeed_frame_height="150"; 
					rssfeed_scroll="on"; 
					rssfeed_scroll_step="15"; 
					rssfeed_scroll_bar="off"; 
					rssfeed_target="_blank"; 
					rssfeed_font_size="29"; 
					rssfeed_font_face=""; 
					rssfeed_border="off"; 
					rssfeed_css_url=""; 
					rssfeed_title="off"; 
					rssfeed_title_name=""; 
					rssfeed_title_bgcolor="transparent"; 
					rssfeed_title_color="#fff"; 
					rssfeed_title_bgimage="http://"; 
					rssfeed_footer="off"; 
					rssfeed_footer_name="rss feed"; 
					rssfeed_footer_bgcolor="#fff"; 
					rssfeed_footer_color="#333"; 
					rssfeed_footer_bgimage="http://"; 
					rssfeed_item_title_length="150"; 
					rssfeed_item_title_color="black"; 
					rssfeed_item_bgcolor="transparent"; 
					rssfeed_item_bgimage="http://"; 
					rssfeed_item_border_bottom="on"; 
					rssfeed_item_source_icon="off"; 
					rssfeed_item_date="off"; 
					rssfeed_item_description="on"; 
					rssfeed_item_description_length="520"; 
					rssfeed_item_description_color="black"; 
					rssfeed_item_description_link_color="black"; 
					rssfeed_item_description_tag="off"; 
					rssfeed_no_items="0"; 
					rssfeed_cache = "aa115714cc4a2358ba9b311141cde101"; 
					//--> 
					</script> 
					<script type="text/javascript" src="http://feed.surfing-waves.com/js/rss-feed.js"></script> 
		
		
		</div>

</div>


<script>

var video_player = document.getElementById("video_player");
video = video_player.getElementsByTagName("video")[0],
video_links = video_player.getElementsByTagName("figcaption")[0],
source = video.getElementsByTagName("source"),
link_list = [],
vidDir = "http://demosthenes.info/assets/videos/",
currentVid = 0,
allLnks = video_links.children,
lnkNum = allLnks.length;
video.removeAttribute("controls");
video.removeAttribute("poster");

(function() {
function playVid(index) {
 video_links.children[index].classList.add("currentvid");
    source[1].src = vidDir + link_list[index] + ".webm";  
	source[0].src = vidDir + link_list[index] + ".mp4";
    currentVid = index;
    video.load();
	video.play();
}

for (var i=0; i<lnkNum; i++) {
var filename = allLnks[i].href;
link_list[i] = filename.match(/([^\/]+)(?=\.\w+$)/)[0];
(function(index){
        allLnks[i].onclick = function(i){
        i.preventDefault();  
		for (var i=0; i<lnkNum; i++) {
		allLnks[i].classList.remove("currentvid");
		}
		playVid(index);
        }    
    })(i);
}
video.addEventListener('ended', function () {
    allLnks[currentVid].classList.remove("currentvid");
    if ((currentVid + 1) >= lnkNum) { nextVid = 0 } else { nextVid = currentVid+1 }
    playVid(nextVid);
})

video.addEventListener('mouseenter', function() {
    video.setAttribute("controls","true");
})

video.addEventListener('mouseleave', function() {
    video.removeAttribute("controls");
})

var indexOf = function(needle) {
    if(typeof Array.prototype.indexOf === 'function') {
        indexOf = Array.prototype.indexOf;
    } else {
        indexOf = function(needle) {
            var i = -1, index = -1;
			for(i = 0; i < this.length; i++) {
                if(this[i] === needle) {
                    index = i;
                    break;
                }}
            return index;
        };}
    return indexOf.call(this, needle);
};
 	var focusedLink = document.activeElement;
 	index = indexOf.call(allLnks, focusedLink);
 	
document.addEventListener('keydown', function(e) {
if (index) {
	var focusedElement = document.activeElement;
    if (e.keyCode == 40 || e.keyCode == 39) { // down or right cursor
    var nextNode = focusedElement.nextElementSibling;
    if (nextNode) { nextNode.focus(); } else { video_links.firstElementChild.focus(); }
    }
   if (e.keyCode == 38 || e.keyCode == 37) { // up or left cursor
    var previousNode = focusedElement.previousElementSibling;
    if (previousNode) { previousNode.focus(); } else { video_links.lastElementChild.focus(); }
    }
 }
});

})();  


</script>



</body>
</html>

<%
Response.Flush


		Function ExibeData(data)
		  dia_semana = WeekDay(data)
		  Select Case dia_semana
		  Case 1 : dia_semana = "Domingo"
		  Case 2 : dia_semana = "Segunda"
		  Case 3 : dia_semana = "Terça"
		  Case 4 : dia_semana = "Quarta"
		  Case 5 : dia_semana = "Quinta"
		  Case 6 : dia_semana = "Sexta"
		  Case 7 : dia_semana = "Sábado"
		  End Select
		  mes = Month(data)
		  Select Case mes
		  Case 1 : mes = "Janeiro"
		  Case 2 : mes = "Fevereiro"
		  Case 3 : mes = "Março"
		  Case 4 : mes = "Abril"
		  Case 5 : mes = "Maio"
		  Case 6 : mes = "Junho"
		  Case 7 : mes = "Julho"
		  Case 8 : mes = "Agosto"
		  Case 9 : mes = "Setembro"
		  Case 10 : mes = "Outubro"
		  Case 11 : mes = "Novembro"
		  Case 12 : mes = "Dezembro"
		  End Select
		  ExibeData = dia_semana &",<br> "& Day(Date()) & " de " & mes & " de " & Year(data)
		End Function
		
		
'Fecha ligações a bd		
Set textos = Nothing
Set videos = Nothing
Set weather = Nothing
Set ids= Nothing
Set noticias = Nothing
conn.Close
Response.Flush
%>

Entrar

Arquivado

asp timeout Limite da Memória Intermédia de Resposta excedido

Recommended Posts

razs 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Consulta SQL dentro de outra consulta

Data igual do facebook

Fazer busca no Banco de dados usando vários critério

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante