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

[Paschoal Rizzo 0]

Pessoal eu vi um monte de dicas que colocaram....eu gostari a de saber oq eu faço agora ja tentei todasalguem pode me ajudar a editar essa pagina com as dicas que foram dadas?segue abaixo 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>