Active Server Pages error 'ASP 0113' Script timed out ALGUEM P

[Paschoal Rizzo 0]

Active Server Pages error 'ASP 0113' Script timed out /Default.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. ta dando esse erro e demora pra carregar o site...oq fazer galera da uma força ai....o site é www.omelhordesantaisabel.com.br

[Anderson Roberto 0]

Dá uma olhada no que a página ta executando, pode ser que esteja em um loop infinito.

[Martinelli 0]

Normalmente este erro é causado por erro de lógica no loop.Se estiver com muita dificuldade de encontrar, coloque o código aí para que possamos te ajudar.Martinelli

[Paschoal Rizzo 0]

Normalmente este erro é causado por erro de lógica no loop.Se estiver com muita dificuldade de encontrar, coloque o código aí para que possamos te ajudar.Martinelli

esse codigo é da default.asp

<%'########################################################################################'#----------------------------------------------------------------------------------------'########################################################################################'INÍCIO DO CÓDIGO'Este código está otimizado e roda tanto em Windows 2000/NT/XP/ME/98 quanto em servidores UNIX-LINUX com chilli!ASP%><!-- #include file="topo.asp" --><script>function cadmail(){window.open('cadmail.asp?email='+document.emailx.email.value+'&Opcao='+document.emailx.tipo.value,'email','resizable=no,width=270,height=180,scrollbars=no');		document.emailx.reset()	}	function limpa() {	document.emailx.email.value=''	}	</script><style>SELECT{	BACKGROUND-COLOR: #ffffff;	BORDER-BOTTOM-COLOR: #000000;	BORDER-BOTTOM-STYLE: #666666;	BORDER-LEFT-COLOR: #000000;	BORDER-LEFT-STYLE: #666666;	BORDER-RIGHT-COLOR: #000000;	BORDER-RIGHT-STYLE: #666666;	BORDER-TOP-COLOR: #000000;	BORDER-TOP-STYLE: #666666;	COLOR: #000000;	FONT-FAMILY: Arial, Helvetica, sans-serif;	FONT-SIZE: xx-small;}</style>			<!-- #include file="produto.asp" -->				'<!-- #include file="baixo.asp" -->		 	<%rs.close%>	<%set rs = nothing%>

[Mrweb 0]

Cara na default não tem nada estranho,

Seria interessante você postar as outras tipo produtos.asp e os includes.

 

Uma forma de alternar a mensagem quando executamos tarefas demoradas no servidor é a seguinte.

 

<% server.ScriptTimeout=360%>

Em segundos

[Paschoal Rizzo 0]

Cara na default não tem nada estranho,Seria interessante você postar as outras tipo produtos.asp e os includes.Uma forma de alternar a mensagem quando executamos tarefas demoradas no servidor é a seguinte.

<% server.ScriptTimeout=360%>

Em segundos

ESSE É A PAGINA PRODUTO.ASP

<%Set rs9 = Server.CreateObject("ADODB.Recordset")rs9.Open "SELECT * FROM produtos WHERE destaque='s'" , abredb, adOpenStatic, adLockReadOnlyrmax=rs9.recordcount	if rs9.eof or rs9.bof then		mostrar_produto_destaque_fachada="Nao"	rs9.close	set rs9 = nothing	end if	t=Timer	Randomize t	rnum = Int(RND * rmax)	rs9.move rnum	set atualizar = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs9("idprod")&";")'Produto 1set rs = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' AND estoque='s';")if rs.eof or rs.bof thenrs.closeset rs = nothingset atualizar = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")set rs = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' AND estoque='s';")if rs.eof or rs.bof thenrs.closeset rs = nothingset atualizar = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")set rs = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' AND estoque='s';")end ifelseset atualizar = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs("idprod")&" AND estoque='s';")end if'Produto 2set rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" AND estoque='s';")if rs2.eof or rs2.bof thenrs2.closeset rs2 = nothingset atualizar2 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")set rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" AND estoque='s';")if rs2.eof or rs2.bof thenrs2.closeset rs2 = nothingset atualizar2 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")set rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" AND estoque='s';")end ifelseset atualizar2 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs2("idprod")&" AND estoque='s';")end if'Produto 3set rs3 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" AND estoque='s';")if rs3.eof or rs3.bof thenrs3.closeset rs3 = nothingset atualizar3 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")set rs3 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" AND estoque='s';")if rs3.eof or rs3.bof thenrs3.closeset rs3 = nothingset atualizar3 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")set rs3 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" AND estoque='s';")end ifelseset atualizar3 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs3("idprod")&" AND estoque='s';")end if'Produto 4set rs4 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" AND estoque='s';")if rs4.eof or rs4.bof thenrs4.closeset rs4 = nothingset atualizar4 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")set rs4 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" AND estoque='s';")if rs4.eof or rs4.bof thenrs4.closeset rs4 = nothingset atualizar4 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")set rs4 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> '"&rs("idprod")&"' and idprod <> '"&rs2("idprod")&"' and idprod <> '"&rs3("idprod")&"' AND estoque='s';")end ifelseset atualizar4 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs4("idprod")&" AND estoque='s';")end if'Produto 5set rs5 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" AND estoque='s';")if rs5.eof or rs5.bof thenrs5.closeset rs5 = nothingset atualizar5 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")set rs5 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" AND estoque='s';")if rs5.eof or rs5.bof thenrs5.closeset rs5 = nothingset atualizar5 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")set rs5 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" AND estoque='s';")end ifelseset atualizar5 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs5("idprod")&" AND estoque='s';")end if'Produto 6set rs6 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" AND estoque='s';")if rs6.eof or rs6.bof thenrs6.closeset rs6 = nothingset atualizar6 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")set rs6 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" AND estoque='s';")if rs6.eof or rs6.bof thenrs6.closeset rs6 = nothingset atualizar6 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")set rs6 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" AND estoque='s';")end ifelseset atualizar6 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs6("idprod")&" AND estoque='s';")end if'Produto 7set rs7 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" and idprod <> "&rs6("idprod")&" AND estoque='s';")if rs7.eof or rs7.bof thenrs7.closeset rs7 = nothingset atualizar7 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")set rs7 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" and idprod <> "&rs6("idprod")&" AND estoque='s';")if rs7.eof or rs7.bof thenrs7.closeset rs7 = nothingset atualizar7 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")set rs7 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" and idprod <> "&rs6("idprod")&" AND estoque='s';")end ifelseset atualizar7 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs7("idprod")&" AND estoque='s';")end if'Produto 8set rs8 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" and idprod <> "&rs6("idprod")&" and idprod <> "&rs7("idprod")&" AND estoque='s';")if rs8.eof or rs8.bof thenrs8.closeset rs8 = nothingset atualizar8 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")set rs8 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" and idprod <> "&rs6("idprod")&" and idprod <> "&rs7("idprod")&" AND estoque='s';")if rs8.eof or rs8.bof thenrs8.closeset rs8 = nothingset atualizar8 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")set rs8 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" and idprod <> "&rs6("idprod")&" and idprod <> "&rs7("idprod")&" AND estoque='s';")end ifelseset atualizar8 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs8("idprod")&" AND estoque='s';")end if'Produto 9set rs99 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" and idprod <> "&rs6("idprod")&" and idprod <> "&rs7("idprod")&" and idprod <> "&rs8("idprod")&" AND estoque='s';")if rs99.eof or rs99.bof thenrs99.closeset rs99 = nothingset atualizar99 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")set rs99 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" and idprod <> "&rs6("idprod")&" and idprod <> "&rs7("idprod")&" and idprod <> "&rs8("idprod")&" AND estoque='s';")if rs99.eof or rs99.bof thenrs99.closeset rs99 = nothingset atualizar99 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")set rs99 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" and idprod <> "&rs6("idprod")&" and idprod <> "&rs7("idprod")&" and idprod <> "&rs8("idprod")&" AND estoque='s';")end ifelseset atualizar99 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs99("idprod")&" AND estoque='s';")end ifintProdID1 = rs("idprod")intProdID2 = rs2("idprod")intProdID3 = rs3("idprod")intProdID4 = rs4("idprod")intProdID5 = rs5("idprod")intProdID6 = rs6("idprod")intProdID7 = rs7("idprod")intProdID8 = rs8("idprod")intProdID9 = rs9("idprod")intProdID99 = rs99("idprod")'Formatação dos preços dos produtosprecito1 = formatNumber(rs("preco"), 2)precito2 = formatNumber(rs2("preco"), 2)precito3 = formatNumber(rs3("preco"), 2)precito4 = formatNumber(rs4("preco"), 2)precito5 = formatNumber(rs5("preco"), 2)precito6 = formatNumber(rs6("preco"), 2)precito7 = formatNumber(rs7("preco"), 2)precito8 = formatNumber(rs8("preco"), 2)precito9 = formatNumber(rs9("preco"), 2)precito99 = formatNumber(rs99("preco"), 2)%><!-- #include file="destaque_i.asp" --><% End If %><div align="center">  <!-- #include file="produto_i.asp" --></div>//////////////////////////////////////////////////////////////ESSA É A PAGINA produto_i.asp<table width="100%"  border="0" align="center" cellpadding="8" cellspacing="8">  <tr align="center" valign="top">	<td width="145" height="145" valign="bottom"><!-- #include file="produto1.asp" --></td>	<td width="145" height="145" valign="bottom"><!-- #include file="produto2.asp" --></td>	<td width="145" height="145" valign="bottom"><!-- #include file="produto3.asp" --></td>  </tr></table><table width="100%"  border="0" align="center" cellpadding="8" cellspacing="8">  <tr align="center" valign="top">	<td width="145" height="145" valign="bottom"><!-- #include file="produto4.asp" --></td>	<td width="145" height="145" valign="bottom"><!-- #include file="produto5.asp" --></td>	<td width="145" height="145" valign="bottom"><!-- #include file="produto6.asp" --></td>  </tr></table><table width="100%"  border="0" align="center" cellpadding="8" cellspacing="8">  <tr align="center" valign="top">	<td width="145" height="145" valign="bottom"><!-- #include file="produto7.asp" --></td>	<td width="145" height="145" valign="bottom"><!-- #include file="produto8.asp" --></td>	<td width="145" height="145" valign="bottom"><!-- #include file="produto9.asp" --></td>  </tr></table><%'Fecha as tabelasrs.closeset rs=nothingrs2.closeset rs2=nothingrs3.closeset rs3=nothingrs4.closeset rs4=nothingrs5.closeset rs5=nothingrs6.closeset rs6=nothingrs7.closeset rs7=nothingrs8.closeset rs8=nothingrs99.closeset rs99=nothing%>//////////////////////////////////////////////////////////////////////ESSA É A PAGINA destaque_i.asp<script language="JavaScript" type="text/JavaScript"><!--function MM_reloadPage(init) {  //reloads the window if Nav4 resized  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {	document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();}MM_reloadPage(true);//--></script><div align="center"><br>  <table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#cccccc">	<tr> 	  <td bgcolor="#FFFFFF"> <% If mostrar_produto_destaque_fachada="Sim" and intProdID9<>"" then %> 	<tr> 	  <td width="100%" height="0" bgcolor="#cccccc" > <%'############################   INÍCIO DO PRODUTO DESTAQUE   ##############################' Esta área mostra um produto em destaque acima dos produtos da vitrine.' Adaptacao do codigo feito por jusivansjc@yahoo.com.br%> <table width="100%" BORDER="0" CELLPADDING="0" CELLSPACING="1" style="BORDER: whithe 1px dotted; cellSpacing=1 cellPadding=1 width=213 border=0">		  <tr> 			<td bgcolor="<%=fontebranca%>"> 			  <form action="comprar.asp" method="post" name="comprar9"><table BORDER="0" CELLSPACING="1" CELLPADDING="3"> 				<tr> 				  <td bgcolor="<%=fontebranca%>"> 					<% If len(cstr(rs9.fields("imgra")))<3 then imgra="img_nao_disp.gif" else imgra=rs9.fields("imgra")  end if%><table align=center width="100%" cellspacing="1" cellpadding="1"> 					<tr> 					  <td width="435" align="center" height=180><a href="produtos.asp?produto=<%=rs9.fields("idprod")%>"  onMouseOut="window.status='';return true;" onMouseOver="window.status='+ Detalhes';return true;" style="color:"<%=fontebranca%>";text-decoration:none;"><img src="produtos/<%=imgra%>" width="180" border="0"></a></td>					  <td align="left" valign=center width=643><font style=font-size:13px;font-family:<%=fonte%>><b><font color=<%=fontepreta%>><%=rs9.fields("nome")%></font></b><font color=<%=fontepreta%>><br>						<br>						<b><%=strLg29%></b> <FONT face="arial, helvetica" color=#0000ff size=2><B> <%= strlgmoeda & " " & precito9%></b></font><br>						<br>						<b><%=strLg28%></b> 						<% '***  Verifica se tem Estoque do Produto 9 (Produto Destaque)						set rs_estoque9 = abredb.execute("SELECT estoque FROM estoque WHERE idproduto="&rs9.fields("idprod")&";")						if not rs_estoque9.eof then						estoque_atual_9=rs_estoque9("estoque")						end if						rs_estoque9.close						set rs_estoque9 = nothing						 %>						<%if estoque_atual_9 > 0 then response.write " " & strLg26 else response.write " " & strLg27 end if%>						<br>						<b>Entrega:</b>   <%=application("diasentrega")%> 						dias(s) + transporte 						<div align=right><br>						  <input type="hidden" name="intProdID" value="<%= intProdID9 %>">						  <input type="hidden" name="intQuant" value=1>						  <%if estoque_atual_9 > 0 then response.write "<a href=""java script: document.comprar9.submit();""><img src="&dirlingua&"/imagens/comprar_2.gif border=0 alt='"& strLg276 & "' onMouseOut=""window.status='';return true;"" onMouseOver=""window.status='"& strLg276 & "';return true;""></a>  " end if%>						  <a href="produtos.asp?produto=<%=rs9.fields("idprod")%>"  onMouseOut="window.status='';return true;" onMouseOver="window.status='+ Detalhes';return true;" style="color:"<%=fontebranca%>";text-decoration:none;"><img src=<%=dirlingua%>/imagens/detalhes.gif border="0"></a></div>						</font></font></td>			  </form></tr>		</table> 	<tr> 	  <td height="0" bordercolor="#00CC99" bgcolor="#336699" ><img src="linguagens/portuguesbr/imagens/destaques.gif" width="163" height="28"> 	</table>    </table>  <%'############################   FIM DO PRODUTO DESTAQUE   ##############################%></td></tr> </td> </tr> </table> </div>

ESPERO Q POSSA M AJUDAR AMIGO É URGENTE

[Martinelli 0]

Amigo... dando uma olhada por cima notei duas coisas, que não sei se poderíam causar o teu problema mas... é interessante corrigir.

 

1ª - Não se usa ";" no final das String SQL. Você utiliza em todas.

2ª - notei que os teus Ifs estão meio duplicados... meio redundantes.

 

'Produto 1set rs = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' AND estoque='s';")if rs.eof or rs.bof then	rs.close	set rs = nothing	set atualizar = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")	set rs = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' AND estoque='s';")---->> if rs.eof or rs.bof then		rs.close		set rs = nothing		set atualizar = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")		set rs = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' AND estoque='s';")	end if   <<----else		set atualizar = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs("idprod")&" AND estoque='s';")end if'Produto 2set rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" AND estoque='s';")	if rs2.eof or rs2.bof then		rs2.close		set rs2 = nothing		set atualizar2 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")		set rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" AND estoque='s';")---->>  if rs2.eof or rs2.bof then			rs2.close			set rs2 = nothing			set atualizar2 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")			set rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" AND estoque='s';")		end if   <<----	end ifelse	set atualizar2 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs2("idprod")&" AND estoque='s';")end if

Note onde está o símbolo "---->>" ... os dois Ifs verificam fazem a mesma verificação porém, um está dentro do outro... ou seja, você verifica e verifica novamente... sem sentido, certo?? Daí fica constantemente fechando e abrindo a RS... Isto está em todo o teu código e provavelmente vai estourar a memória.

 

Faça estes ajustes e veja se resolve em algo.

 

Martinelli

[Paschoal Rizzo 0]

Amigo... dando uma olhada por cima notei duas coisas, que não sei se poderíam causar o teu problema mas... é interessante corrigir.1ª - Não se usa ";" no final das String SQL. Você utiliza em todas.2ª - notei que os teus Ifs estão meio duplicados... meio redundantes.

'Produto 1set rs = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' AND estoque='s';")if rs.eof or rs.bof then	rs.close	set rs = nothing	set atualizar = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")	set rs = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' AND estoque='s';")---->> if rs.eof or rs.bof then		rs.close		set rs = nothing		set atualizar = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")		set rs = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' AND estoque='s';")	end if   <<----else		set atualizar = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs("idprod")&" AND estoque='s';")end if'Produto 2set rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" AND estoque='s';")	if rs2.eof or rs2.bof then		rs2.close		set rs2 = nothing		set atualizar2 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")		set rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" AND estoque='s';")---->>  if rs2.eof or rs2.bof then			rs2.close			set rs2 = nothing			set atualizar2 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")			set rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" AND estoque='s';")		end if   <<----	end ifelse	set atualizar2 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs2("idprod")&" AND estoque='s';")end if

Note onde está o símbolo "---->>" ... os dois Ifs verificam fazem a mesma verificação porém, um está dentro do outro... ou seja, você verifica e verifica novamente... sem sentido, certo?? Daí fica constantemente fechando e abrindo a RS... Isto está em todo o teu código e provavelmente vai estourar a memória.Faça estes ajustes e veja se resolve em algo.Martinelli

EU DEVERIA FAZER OQ AI RETIRAR OS ";" É ISSO?E você DISSE SOBRE OS IF... EU DEVERIA RETIRAR ELES? MAIS QUAL DELES?

[Salgado 4]

Sobre o ";" nas SQL você pode mantê-los, o ; é padrão da linguagem TSQL e em alguns SGBDs ele é obrigatório, no SQLServer e o Access não são, mas são opcionais e em nada altera na execução.

 

Com relação à lentidão o seu código possui muitos Selects e Updates, isso pode estar ocasionando a lentidão no sistema como um todo, verifique se não é possível otimizar esse código para reduzi-lo.

[Paschoal Rizzo 0]

Sobre o ";" nas SQL você pode mantê-los, o ; é padrão da linguagem TSQL e em alguns SGBDs ele é obrigatório, no SQLServer e o Access não são, mas são opcionais e em nada altera na execução.Com relação à lentidão o seu código possui muitos Selects e Updates, isso pode estar ocasionando a lentidão no sistema como um todo, verifique se não é possível otimizar esse código para reduzi-lo.

AMIGO você RETIRARIA OQ NO MEU CODIGO ?DA UMA CLARIADA PQ N SOU MTO BOM EM ASPSE você PUDER AJUDAR AGRADEÇO

[explore 3]

Cara é oq o Martinelli falo. você abre e Fecha muitos RS.você po cuztomizar seu codigo tirando muito das condiçoes repetidas que você fez.

[Paschoal Rizzo 0]

Cara é oq o Martinelli falo. você abre e Fecha muitos RS.você po cuztomizar seu codigo tirando muito das condiçoes repetidas que você fez.

O PROBLEMA É QUE EU NÃO SEI QUAL POSSO TIRAR, TEM COMO você ME DAR UMA ORIENTAÇÃO AMIGO ?

[Salgado 4]

Não poste com a tecla Caps Lock acionada.

[Martinelli 0]

Cara é oq o Martinelli falo. você abre e Fecha muitos RS.

 

você po cuztomizar seu codigo tirando muito das condiçoes repetidas que você fez.

O PROBLEMA É QUE EU NÃO SEI QUAL POSSO TIRAR, TEM COMO você ME DAR UMA ORIENTAÇÃO AMIGO ?

 

Lembra daqueles indicadores "--->>" que coloquei na primeira resposta??

Eles indicam o código que está duplicado.

 

OU seja....

 

Se você tem:

 

'Produto 2

set rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" AND estoque='s';")

aaif rs2.eof or rs2.bof then

aaaars2.close

aaaaset rs2 = nothing

aaaaset atualizar2 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")

aaaaset rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" AND estoque='s';")

aaaaif rs2.eof or rs2.bof then

aaaaaars2.close

aaaaaaset rs2 = nothing

aaaaaaset atualizar2 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")

aaaaaaset rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" AND estoque='s';")

aaaaend if

aaaaend if <-- end if sobrando

aaelse

aaaaset atualizar2 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs2("idprod")&" AND estoque='s';")

aaend if

Note que o bloco em negrito é idêntico ao bloco principal. Você vai tirar e ficará com:

 

'Produto 2

set rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" AND estoque='s';")

aaif rs2.eof or rs2.bof then

aaaars2.close

aaaaset rs2 = nothing

aaaaset atualizar2 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")

aaaaset rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" AND estoque='s';")

aaelse

aaaaset atualizar2 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs2("idprod")&" AND estoque='s';")

aaend if

Entendeu??

 

Isto para CADA UM dos produtos.

 

Martinelli

[Paschoal Rizzo 0]

Cara é oq o Martinelli falo. você abre e Fecha muitos RS.

 

você po cuztomizar seu codigo tirando muito das condiçoes repetidas que você fez.

O PROBLEMA É QUE EU NÃO SEI QUAL POSSO TIRAR, TEM COMO você ME DAR UMA ORIENTAÇÃO AMIGO ?

 

Lembra daqueles indicadores "--->>" que coloquei na primeira resposta??

Eles indicam o código que está duplicado.

 

OU seja....

 

Se você tem:

 

'Produto 2

set rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" AND estoque='s';")

aaif rs2.eof or rs2.bof then

aaaars2.close

aaaaset rs2 = nothing

aaaaset atualizar2 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")

aaaaset rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" AND estoque='s';")

aaaaif rs2.eof or rs2.bof then

aaaaaars2.close

aaaaaaset rs2 = nothing

aaaaaaset atualizar2 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")

aaaaaaset rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" AND estoque='s';")

aaaaend if

aaaaend if <-- end if sobrando

aaelse

aaaaset atualizar2 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs2("idprod")&" AND estoque='s';")

aaend if

Note que o bloco em negrito é idêntico ao bloco principal. Você vai tirar e ficará com:

 

'Produto 2

set rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" AND estoque='s';")

aaif rs2.eof or rs2.bof then

aaaars2.close

aaaaset rs2 = nothing

aaaaset atualizar2 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';")

aaaaset rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" AND estoque='s';")

aaelse

aaaaset atualizar2 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs2("idprod")&" AND estoque='s';")

aaend if

Entendeu??

 

Isto para CADA UM dos produtos.

 

Martinelli

 

Obrigado pela dica, vou tentar fazer isso e ver se muda...

[explore 3]

tipo esse trexo aqui:if rs8.eof or rs8.bof then rs8.close set rs8 = nothing set atualizar8 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';") set rs8 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" and idprod <> "&rs6("idprod")&" and idprod <> "&rs7("idprod")&" AND estoque='s';")if rs8.eof or rs8.bof then rs8.close set rs8 = nothing set atualizar8 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';") set rs8 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" and idprod <> "&rs6("idprod")&" and idprod <> "&rs7("idprod")&" AND estoque='s';")end ifelseend ifreduza para issoif rs8.eof or rs8.bof then rs8.close set rs8 = nothing set atualizar8 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s';") set rs8 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" and idprod <> "&rs6("idprod")&" and idprod <> "&rs7("idprod")&" AND estoque='s';")else set atualizar8 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs8("idprod")&" AND estoque='s';") end ifUma pergunta no seu codigo existe uma linnha assim?on error resume nextpq se existir é uma das causas da lentidão, pq olha isso:aqui você verifica if rs8.eof or rs8.bof thense for fim de arquivo você destroi e fecha o recordsetrs8.closeset rs8 = nothinge mais em baixo você verifica ele novamente, mais como você vai verificar o mesmo recordset que já foi fechado e destroido?de uma oilha se você possui o on error resume next.falo

[Paschoal Rizzo 0]

Eu fiz isso e deu um erro assim:expect end esperado.'end'default.asp linha 45////////////////////////////////////////////////////////////////já mudei tirei as rotinas repetidas...segue o codigo da pagina produto.asp - ja editado<%Set rs9 = Server.CreateObject("ADODB.Recordset")rs9.Open "SELECT * FROM produtos WHERE destaque='s'" , abredb, adOpenStatic, adLockReadOnlyrmax=rs9.recordcount if rs9.eof or rs9.bof then mostrar_produto_destaque_fachada="Nao" rs9.close set rs9 = nothing end if t=Timer Randomize t rnum = Int(RND * rmax) rs9.move rnum set atualizar = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs9("idprod")&" ;")'Produto 1set rs = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' AND estoque='s' ;")if rs.eof or rs.bof thenrs.closeset rs = nothingset atualizar = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s' ;")set rs = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' AND estoque='s' ;")if rs.eof or rs.bof thenrs.closeelseset atualizar = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs("idprod")&" AND estoque='s' ;")end if'Produto 2set rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" AND estoque='s' ;")if rs2.eof or rs2.bof thenrs2.closeset rs2 = nothingset atualizar2 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s' ;")set rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" AND estoque='s' ;")if rs2.eof or rs2.bof thenrs2.closeelseset atualizar2 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs2("idprod")&" AND estoque='s' ;")end if'Produto 3set rs3 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" AND estoque='s' ;")if rs3.eof or rs3.bof thenrs3.closeset rs3 = nothingset atualizar3 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s' ;")set rs3 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" AND estoque='s' ;")if rs3.eof or rs3.bof thenrs3.closeelseset atualizar3 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs3("idprod")&" AND estoque='s' ;")end if'Produto 4set rs4 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" AND estoque='s' ;")if rs4.eof or rs4.bof thenrs4.closeset rs4 = nothingset atualizar4 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s' ;")set rs4 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" AND estoque='s' ;")if rs4.eof or rs4.bof thenrs4.closeset atualizar4 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs4("idprod")&" AND estoque='s' ;")end if'Produto 5set rs5 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" AND estoque='s' ;")if rs5.eof or rs5.bof thenrs5.closeset rs5 = nothingset atualizar5 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s' ;")set rs5 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" AND estoque='s' ;")if rs5.eof or rs5.bof thenrs5.closeset atualizar5 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs5("idprod")&" AND estoque='s' ;")end if'Produto 6set rs6 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" AND estoque='s' ;")if rs6.eof or rs6.bof thenrs6.closeset rs6 = nothingset atualizar6 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s' ;")set rs6 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" AND estoque='s' ;")if rs6.eof or rs6.bof thenrs6.closeelseset atualizar6 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs6("idprod")&" AND estoque='s' ;")end if'Produto 7set rs7 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" and idprod <> "&rs6("idprod")&" AND estoque='s' ;")if rs7.eof or rs7.bof thenrs7.closeset rs7 = nothingset atualizar7 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s' ;")set rs7 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" and idprod <> "&rs6("idprod")&" AND estoque='s' ;")if rs7.eof or rs7.bof thenrs7.closeelseset atualizar7 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs7("idprod")&" AND estoque='s' ;")end if'Produto 8set rs8 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" and idprod <> "&rs6("idprod")&" and idprod <> "&rs7("idprod")&" AND estoque='s' ;")if rs8.eof or rs8.bof thenrs8.closeset rs8 = nothingset atualizar8 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s' ;")set rs8 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" and idprod <> "&rs6("idprod")&" and idprod <> "&rs7("idprod")&" AND estoque='s' ;")if rs8.eof or rs8.bof thenrs8.closeelseset atualizar8 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs8("idprod")&" AND estoque='s' ;")end if'Produto 9set rs99 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" and idprod <> "&rs6("idprod")&" and idprod <> "&rs7("idprod")&" and idprod <> "&rs8("idprod")&" AND estoque='s' ;")if rs99.eof or rs99.bof thenrs99.closeset rs99 = nothingset atualizar99 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s' ;")set rs99 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" and idprod <> "&rs6("idprod")&" and idprod <> "&rs7("idprod")&" and idprod <> "&rs8("idprod")&" AND estoque='s' ;")if rs99.eof or rs99.bof thenrs99.closeelseset atualizar99 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs99("idprod")&" AND estoque='s' ;")end ifintProdID1 = rs("idprod")intProdID2 = rs2("idprod")intProdID3 = rs3("idprod")intProdID4 = rs4("idprod")intProdID5 = rs5("idprod")intProdID6 = rs6("idprod")intProdID7 = rs7("idprod")intProdID8 = rs8("idprod")intProdID9 = rs9("idprod")intProdID99 = rs99("idprod")'Formatação dos preços dos produtosprecito1 = formatNumber(rs("preco"), 2)precito2 = formatNumber(rs2("preco"), 2)precito3 = formatNumber(rs3("preco"), 2)precito4 = formatNumber(rs4("preco"), 2)precito5 = formatNumber(rs5("preco"), 2)precito6 = formatNumber(rs6("preco"), 2)precito7 = formatNumber(rs7("preco"), 2)precito8 = formatNumber(rs8("preco"), 2)precito9 = formatNumber(rs9("preco"), 2)precito99 = formatNumber(rs99("preco"), 2)%><!-- #include file="destaque_i.asp" --><% End If %><div align="center"> <!-- #include file="produto_i.asp" --></div>

[Martinelli 0]

Bom... olhando rapidamente já vi alguns erros...

 

Em alguns lugares está sobrando código (não foi apagado tudo que é necessário) e em outros foi apagado código errado.

Segue abaixo 2 exemplos:

 

'Produto 3

set rs3 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" AND estoque='s' ;")

if rs3.eof or rs3.bof then

aars3.close

aaset rs3 = nothing

aaset atualizar3 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s' ;")

aaset rs3 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" AND estoque='s' ;")

aaif rs3.eof or rs3.bof then

aaaars3.close <-- está sobrando no teu código

else

aaset atualizar3 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs3("idprod")&" AND estoque='s' ;")

end if

 

'Produto 4

set rs4 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" AND estoque='s' ;")

if rs4.eof or rs4.bof then

aars4.close

aaset rs4 = nothing

aaset atualizar4 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok' AND estoque='s' ;")

aaset rs4 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" AND estoque='s' ;")

aaif rs4.eof or rs4.bof then

aaaars4.close <-- está sobrando no teu código

else <-- está faltando no teu código

aaset atualizar4 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs4("idprod")&" AND estoque='s' ;")

end if

Dê uma olhada no código que enviei como exemplo e procure manter as mesmas linhas.

 

Martinelli

[Eduardo Penna 0]

Boa tarde amigos.Dei uma passada de olho rápida e posso estar enganado mas o que foi dito com relação a redundância dos if's, acho que está errado.Notem, ele faz um SELECT, verifica o início ou término do recordset, se ok ele faz um UPDATE na mesma tabela e depois o mesmo SELECT para depois fazer a mesma verificação. No primeiro SELECT as informações estão de um jeito e no segundo (após o UPDATE) de outro.Nem vi para que isso server, mas não está redundante.O problema do script.timeout deve ser pela extensão do código e a quantidade de acessos a base que ele faz. Seria o caso de olhar o código como um todo e enxugar, como foi dito.AbraçoPassei o olho novamente e entendi o que foi dito. Está correto. Favor desconsiderar minha resposta anterior.Abraço

[Paschoal Rizzo 0]

Olá estou confuso agora mto...alguem pode me add no msn: tdb_todogostoso@hotmail.comai conversamos;...grato