Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

HiTech-SP

Active Server Pages error 'ASP 0113'

Recommended Posts

Abaixo o código:

 

<%

Set c = Server.CreateObject("ADODB.Connection")

c.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/dados/bancodedados.mdb") & ";"

 

cod=Request.QueryString("f")

 

Set rs = c.execute("SELECT * FROM FORUM WHERE t=" & cod)

%>

<html>

<body>

<table width="76%" border="0" cellspacing="1" cellpadding="2">

<tr bgcolor="#CCCCCC">

<td width="44%"> <div align="center"><font color="#666666"><strong><font size="2" face="Courier New, Courier, mono">Tópicos</font></strong></font></div></td>

<td width="13%"> <div align="center"><font color="#666666"><strong><font size="2" face="Courier New, Courier, mono">Respostas</font></strong></font></div></td>

<td width="9%"> <div align="center"><font color="#666666"><strong><font size="2" face="Courier New, Courier, mono">Autor</font></strong></font></div></td>

<td width="11%"> <div align="center"><font color="#666666"><strong><font size="2" face="Courier New, Courier, mono">Visitas</font></strong></font></div></td>

<td width="23%"> <div align="center"><font color="#666666"><strong><font size="2" face="Courier New, Courier, mono">Última

Mensagem </font></strong></font></div></td>

</tr>

 

<%

 

do while not rs.eof

 

Set user = c.execute("SELECT * FROM USERS WHERE id=" & cod)

 

%>

 

<tr bgcolor="#CCCCCC">

<td width="4%"><img src="ico/house.gif" width="16" height="16"></td>

<td width="4%"><img src="ico/icon_connect.gif" width="16" height="16"></td>

<td width="36%"><font color="#333333" size="2" face="Courier New, Courier, mono">Assunto</font></td>

<td><div align="center"><font size="2" face="Courier New, Courier, mono"><%'bolarcodigo%></font></div></td>

<td><div align="center"><font size="2" face="Courier New, Courier, mono"></font></div></td>

<td><div align="center"><font size="2" face="Courier New, Courier, mono"><%response.write(rs("visitas"))%></font></div></td>

<td><div align="center"><font size="2" face="Courier New, Courier, mono"></font></div></td>

</tr>

<%

 

loop

rs.close

user.close

Set c = nothing

%>

</table>

 

 

 

O erro que aparece no browser:

Active Server Pages error 'ASP 0113'

Script timed out

 

/verforum2.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.

 

Onde eu errei ?? ;)

Download do banco de dados : http://www26.brinkster.com/danilofr/db/ban...ancodedados.mdb

Agradeço a atenção !!

HiTech-SP

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tenta estas mudanças:

<%

 

while not rs.eof <-- aqui retire o do

 

Set user = c.execute("SELECT * FROM USERS WHERE id=" & cod) <-- ñ entendi pra que isso? pode retirar

%>

 

<tr bgcolor="#CCCCCC">

<td width="4%"><img src="ico/house.gif" width="16" height="16"></td>

<td width="4%"><img src="ico/icon_connect.gif" width="16" height="16"></td>

<td width="36%"><font color="#333333" size="2" face="Courier New, Courier, mono">Assunto</font></td>

<td><div align="center"><font size="2" face="Courier New, Courier, mono">

<%=bolarcodigo%> <-- aqui você tá tentando escrever essa variável? tira o ' e coloca =

</font></div></td>

<td><div align="center"><font size="2" face="Courier New, Courier, mono"></font></div></td>

<td><div align="center"><font size="2" face="Courier New, Courier, mono">

<%=(rs("visitas"))%><-- aqui você tá tentando escrever essa variável? tira o response.write e coloca =

</font></div></td>

<td><div align="center"><font size="2" face="Courier New, Courier, mono"></font></div></td>

</tr>

<%

rs.movenext

wend <--mude o Loop

 

rs.close

set rs = nothing <--- esvasiando o rs

<b>user.close</b> <--- como retiramos lá em cima tira aqui

c.close <--- fechando a conexão

Set c = nothing

%>

 

tenta e vê sa da certo.

Valeu?

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.