Problemas Com Código

#1 D-Style

12 Horas

Usuários
133 posts

Sexo:Não informado

Posted 06/06/2004, 14:31

E ai galera! Ainda estou com problemas no meu código... É uma galeria de imagens, onde eu especifico no banco de dados o número da primeira e da última foto a serem exibidas. O código:

<!-- #INCLUDE FILE="inc.asp" -->
<!-- #INCLUDE FILE="AdminINC.asp" -->
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dsn

mySQL1 = "SELECT * from Festa where FestaID = " & request.querystring("FestaID") & ""
set rs = conn.execute(mysql1)
%>
<%
FestaID = request.querystring("FestaID")

Set Myconn = Server.CreateObject("ADODB.Connection")
Myconn.Open dsn
SET MYTABLE= SERVER.CREATEOBJECT("ADODB.RECORDSET")
mySQL = "select * from Fotos WHERE FestaID = " & request.querystring("FestaID") & ""

iPageSize = AdminRS.fields("NoResults")

If Request.QueryString("pagina") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("pagina"))
End If

mytable.PageSize = iPageSize
mytable.CacheSize = iPageSize
mytable.open mysql,myconn,3
iPageCount = mytable.PageCount

If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

mytable.AbsolutePage = iPageCurrent
%><head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body bgcolor="#ddeeff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" bgproperties="fixed">
<%
For I = 0 To mytable.Fields.Count - 1
Next 

iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not mytable.EOF

primeira = mytable.fields("primeira")
ultima = mytable.fields("ultima")
foto = primeira
while not foto = ultima
%>
<table border="0" cellspacing="0" cellpadding="0" align="center">
<tr> 
 <td bgcolor="#66CCFF" align="center"><a href="foto.asp?FestaID=<%= FestaID %>&id=<%= mytable.fields("id").value %>" target="Principal"><img src="<%= rs.fields("Secao") %>/<%= rs.fields("Ano") %>/<%= rs.fields("Mes") %>/<%= rs.fields("Dia") %>/<%=foto%>.jpg" border="0"></a></td>
</tr>
<tr> 
 <td height=10 align="center"><font class="linker">----------------</font></td>
</tr>
</table>
<% foto=foto+1
Wend 
loop %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#0066CC"> 
  <td width="50%" align="center" bgcolor="#000099"> 
    <%If iPageCurrent > 1 Then
%>
    <a href="mini.asp?FestaID=<%= FestaID %>&pagina=<%= iPageCurrent - 1 %>"><img src="imagens/anterior.gif" border="0"></a> 
    <%
End If %>
  </td>
  <td width="50%" align="center" bgcolor="#000099"><font color="#211852" face="Arial"> 
    <%
If iPageCurrent < iPageCount Then
%>
    <a href="mini.asp?FestaID=<%= FestaID %>&pagina=<%= iPageCurrent + 1 %>"><img src="imagens/proxima.gif" border="0"></a> 
    <%
End If %>
    </font></td>
</tr>
<tr>
  <td height="6" colspan="2" align="center"><img src="../Imagens/PIXEL.GIF" width="1" height="1"></td>
</tr>
<tr bgcolor="#66CCFF"> 
  <td colspan="2" align="center"> 
    <%
For I = 1 To iPageCount
If I = iPageCurrent Then
%>
    <font class="festa">[<%= I %>]</font> 
    <%
Else
%>
    <a class="linker" href="mini.asp?FestaID=<%= FestaID %>&pagina=<%= I %>"><%= I %></a> 
    <%
End If
Next %>
  </td>
</tr>
</table>
<%
AdminRS.close
%>

E o erro:

Tipo de erro:
Active Server Pages, ASP 0113 (0x80004005)
O tempo máximo de execução de um script foi excedido. Você pode alterar esse limite especificando um novo valor para a propriedade Server.ScriptTimeout ou alterando o valor nas ferramentas de administração do IIS.
/albuns/fotos/mini.asp

O que eu devo fazer?

Abraços!

#2 Bob

Usuários
536 posts

Sexo:Masculino

Posted 06/06/2004, 17:11

Tente aumentando o tempo, o padrão se não me engano é 90s.
O sintaxe é a seguinte:

Server.ScriptTimeout = tempo (em segundos)

Em tempo você alterar pra algum valor.

#3 usuariodaweb

Novato no fórum

Usuários
24 posts

Sexo:Não informado

Posted 06/06/2004, 18:54

Tive um problema assim esses dias, mas foi pq o arquivo Connections.asp não estava em um dir especificado, então criei uma pasta "conections", aí não deu mais esse erro de tempo de execução.

Abraços,

Kátia Moreno
"O importante não é saber, é tentar aprender."
Busca Online
Só Scripts

#4 D-Style

12 Horas

Usuários
133 posts

Sexo:Não informado

Posted 06/06/2004, 19:11

Eu aumentei o tempo, mas continuou aparecendo o mesmo problema... E o arquivo de conexão com o banco (inc.asp) está correto.

Tipo, será que não tem nada errado no código? Pq por mais q eu coloque 5 minutos, eu não queria que demorasse tanto assim pra carregar... Fica chato pra quem está acessando...

Tipo, eu só queria mesmo fazer com que o arquivo "puxasse" do bd todos os números entre os números que eu especificar nos campos "PRIMEIRA" e "ULTIMA".

Ex.: PRIMEIRA = 140, ULTIMA = 146

Daí exibiria os arquivos 140, 141, 142... 146

Só não estou conseguindo isso... Porque do jeito q eu estou usando o código hoje, eu tenho que adicionar no bd número por número, e ele já está com mais de 8mb de peso... Além do mais, é um saco adicionar um por um

Conto com a ajuda de vcs...

Abraços!

#5 D-Style

12 Horas

Usuários
133 posts

Sexo:Não informado

Posted 07/06/2004, 16:33

Alguem pode ajudar?

Abraços!

#6 Info_Tec

Servo do DEUS VIVO!

Usuários
398 posts

Sexo:Não informado
Localidade:Entre a cadeira e o teclado
Interesses:Jesus, minha esposa e filha.<br>ASP, Lógica de programação, Projeto de Estradas, $$$ que tô precisando!

Posted 07/06/2004, 17:00

Seu Do While está em Loop infinito. Você não deu .MoveNext ele está direto em um só registro.

A cada minuto está mais perto.
Aceite JESUS como seu único e suficiente salvador!
_ -_-

_-
Fórum HOSANAS, venha conversar e se engrandecer com a palavra de DEUS.
Host: ASPECTO, Hospedagem ASP com qualidade e bom preço.

#7 D-Style

12 Horas

Usuários
133 posts

Sexo:Não informado

Posted 08/06/2004, 10:20

Seu Do While está em Loop infinito. Você não deu .MoveNext ele está direto em um só registro.

Eu coloquei o .movenext, mas agora está dando outro erro:

Tipo de erro:
ADODB.Field (0x80020009)
BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.
/albuns/fotos/mini.asp

O código está assim agora:

<!-- #INCLUDE FILE="inc.asp" -->
<!-- #INCLUDE FILE="AdminINC.asp" -->
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dsn

mySQL1 = "SELECT * from Festa where FestaID = " & request.querystring("FestaID") & ""
set rs = conn.execute(mysql1)
Server.ScriptTimeout = 180
%>
<%
FestaID = request.querystring("FestaID")

	Set Myconn = Server.CreateObject("ADODB.Connection")
	Myconn.Open dsn
	SET MYTABLE= SERVER.CREATEOBJECT("ADODB.RECORDSET")
	mySQL = "select * from Fotos WHERE FestaID = " & request.querystring("FestaID") & ""

iPageSize = AdminRS.fields("NoResults")

If Request.QueryString("pagina") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("pagina"))
End If

mytable.PageSize = iPageSize
mytable.CacheSize = iPageSize
mytable.open mysql,myconn,3
iPageCount = mytable.PageCount

If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

mytable.AbsolutePage = iPageCurrent
%><head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body bgcolor="#ddeeff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" bgproperties="fixed">
<%
For I = 0 To mytable.Fields.Count - 1
Next 

iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not mytable.EOF

primeira = mytable.fields("primeira")
ultima = mytable.fields("ultima")
foto = primeira
while not foto = ultima
%>
<table border="0" cellspacing="0" cellpadding="0" align="center">
<tr> 
  <td bgcolor="#66CCFF" align="center"><a href="foto.asp?FestaID=<%= FestaID %>&id=<%= mytable.fields("id").value %>" target="Principal"><img src="<%= rs.fields("Secao") %>/<%= rs.fields("Ano") %>/<%= rs.fields("Mes") %>/<%= rs.fields("Dia") %>/<%=foto%>.jpg" border="0"></a></td>
</tr>
<tr> 
  <td height=10 align="center"><font class="linker">----------------</font></td>
</tr>
</table>
<% foto=foto+1
Wend 

RS.MOVENEXT

loop %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 <tr bgcolor="#0066CC"> 
   <td width="50%" align="center" bgcolor="#000099"> 
     <%If iPageCurrent > 1 Then
%>
     <a href="mini.asp?FestaID=<%= FestaID %>&pagina=<%= iPageCurrent - 1 %>"><img src="imagens/anterior.gif" border="0"></a> 
     <%
End If %>
   </td>
   <td width="50%" align="center" bgcolor="#000099"><font color="#211852" face="Arial"> 
     <%
If iPageCurrent < iPageCount Then
%>
     <a href="mini.asp?FestaID=<%= FestaID %>&pagina=<%= iPageCurrent + 1 %>"><img src="imagens/proxima.gif" border="0"></a> 
     <%
End If %>
     </font></td>
 </tr>
 <tr>
   <td height="6" colspan="2" align="center"><img src="../Imagens/PIXEL.GIF" width="1" height="1"></td>
 </tr>
 <tr bgcolor="#66CCFF"> 
   <td colspan="2" align="center"> 
     <%
For I = 1 To iPageCount
If I = iPageCurrent Then
 %>
     <font class="festa">[<%= I %>]</font> 
     <%
Else
 %>
     <a class="linker" href="mini.asp?FestaID=<%= FestaID %>&pagina=<%= I %>"><%= I %></a> 
     <%
End If
Next %>
   </td>
 </tr>
</table>
<%
AdminRS.close
%>

E agora, o que eu devo fazer?

Abraços!

#8 Info_Tec

Servo do DEUS VIVO!

Usuários
398 posts

Sexo:Não informado
Localidade:Entre a cadeira e o teclado
Interesses:Jesus, minha esposa e filha.<br>ASP, Lógica de programação, Projeto de Estradas, $$$ que tô precisando!

Posted 08/06/2004, 12:09

Pelo que notei você tem uns 3 RecordSet's nesse script, dá uma verificada com calma nele, pois ainda tem RecordSet sem .MoveNext.

A cada minuto está mais perto.
Aceite JESUS como seu único e suficiente salvador!
_ -_-

_-
Fórum HOSANAS, venha conversar e se engrandecer com a palavra de DEUS.
Host: ASPECTO, Hospedagem ASP com qualidade e bom preço.

#9 D-Style

12 Horas

Usuários
133 posts

Sexo:Não informado

Posted 08/06/2004, 13:47

Pelo que notei você tem uns 3 RecordSet's nesse script, dá uma verificada com calma nele, pois ainda tem RecordSet sem .MoveNext.

Cara, não estou conseguindo mesmo! Dá pra vc dar uma clareada nisso ae?

Abraços!

#10 D-Style

12 Horas

Usuários
133 posts

Sexo:Não informado

Posted 09/06/2004, 09:39

Alguma ajuda???

Abraços!

1 user(s) are reading this topic

Entrar