Ir para conteúdo

POWERED BY:

Arquivado

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

criacaoi7

[Resolvido] Erro na Galeria de Fotos

Por , em ASP Clássico

Recommended Posts

criacaoi7    0

criacaoi7
Postado

Oi pessoal, tudo bem.

 

Que erro é este?

 

ADODB.Recordset erro '800a0bcd'

 

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

 

/galeriadefotos/Default.asp, line 41

 

 

Este erro começou depois que eu apaguei a galeria de fotos do meu sistema de fotos.

 

Na linha 41 eu tenho isso:

 

RS.MoveFirst

 

Veja parte do código aonde aparece o erro na página:

 

<%
PagAtual = Request.QueryString("PagAtual")
Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("dados/database.mdb")
Conn.Open DSNtest
Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação
SQL = "SELECT * FROM Galeria ORDER BY ID desc"
RS.Open SQL, conn, 3
Const NumPorPage = 15
Dim PagAtual
IF Request.QueryString("PagAtual") = "" Then
PagAtual = 1 'Primeira página
Else
PagAtual = Request.QueryString("PagAtual")
End If
RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros
RS.MoveFirst 
RS.PageSize = NumPorPage 
Dim TotalPages 
TotalPages = RS.PageCount
RS.AbsolutePage = PagAtual
Count = 0 
i = 0 
DO WHILE NOT RS.EOF And Count < RS.PageSize  'paginacao And Count < RS.PageSize 
if i mod 2<>0 then
cor = "#F4F4F4"
else
cor = "#e1e1e1"
end if 
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado 

<%

PagAtual = Request.QueryString("PagAtual")

Set Conn= server.createobject("adodb.connection")

DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("dados/database.mdb")

Conn.Open DSNtest

Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação

SQL = "SELECT * FROM Galeria ORDER BY ID desc"

RS.Open SQL, conn, 3

 

if not rs.eof then

 

Const NumPorPage = 15

Dim PagAtual

 

IF Request.QueryString("PagAtual") = "" Then

PagAtual = 1 'Primeira página

Else

PagAtual = Request.QueryString("PagAtual")

End If

 

RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros

RS.MoveFirst

RS.PageSize = NumPorPage

Dim TotalPages

TotalPages = RS.PageCount

RS.AbsolutePage = PagAtual

Count = 0

i = 0

DO WHILE NOT RS.EOF And Count < RS.PageSize 'paginacao And Count < RS.PageSize

if i mod 2<>0 then

cor = "#F4F4F4"

else

cor = "#e1e1e1"

end if

end if

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

criacaoi7    0

criacaoi7
Postado

Hargon, vlw pelo post...

 

apareceu este erro agora:

 

Erro de compilação do Microsoft VBScript erro '800a0400'

 

Instrução esperada

 

/galeriadefotos/Default.asp, line 59

 

end if

^

 

Eu tirei o End if, mas tb não deu certo, ele fala que está esperando a função END.

 

Como resolvo?

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Eu só dei um exemplo... você não postou o código inteiro. Faz a adaptação aí.

 

Esse último end if que coloquei deve ficar depois que você fecha o do while.

Compartilhar este post

Link para o post
Compartilhar em outros sites

criacaoi7    0

criacaoi7
Postado

Hargon, vlw pela resposta.

 

O código completo:

 

<html>
<head>
<title>Cido Silva - Sites, softwares e aplicações para web</title>
<meta name="generator" content="Namo WebEditor v5.0">
<script language="JavaScript">
<!--
function na_open_window(name, url, left, top, width, height, toolbar, menubar, statusbar, scrollbar, resizable)
{
  toolbar_str = toolbar ? 'yes' : 'no';
  menubar_str = menubar ? 'yes' : 'no';
  statusbar_str = statusbar ? 'yes' : 'no';
  scrollbar_str = scrollbar ? 'yes' : 'no';
  resizable_str = resizable ? 'yes' : 'no';
  window.open(url, name, 'left='+left+',top='+top+',width='+width+',height='+height+',toolbar='+toolbar_str+',menubar='+menubar_str+',status='+statusbar_str+',scrollbars='+scrollbar_str+',resizable='+resizable_str);
}

// -->
</script>
</head>

<body bgcolor="#ECE9D8" text="black" link="blue" vlink="purple" alink="red" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<table align="center" width="779" cellpadding="0" cellspacing="0">
	<tr>
		<td width="779" bgcolor="white">																								<p style="line-height:150%; margin-top:0; margin-bottom:0;" align="center">
<%
PagAtual = Request.QueryString("PagAtual")
Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("dados/database.mdb")
Conn.Open DSNtest
Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação
SQL = "SELECT * FROM Galeria ORDER BY ID desc"
RS.Open SQL, conn, 3

if not rs.eof then

	Const NumPorPage = 15
	Dim PagAtual
	
	IF Request.QueryString("PagAtual") = "" Then
		PagAtual = 1 'Primeira página
	Else
		PagAtual = Request.QueryString("PagAtual")
	End If
	
	RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros
	RS.MoveFirst
	RS.PageSize = NumPorPage
	Dim TotalPages
	TotalPages = RS.PageCount
	RS.AbsolutePage = PagAtual
	Count = 0
	i = 0
	DO WHILE NOT RS.EOF And Count < RS.PageSize  'paginacao And Count < RS.PageSize
		if i mod 2<>0 then
			cor = "#F4F4F4"
		else
			cor = "#e1e1e1"
		end if
end if
%>
</p>
<table cellspacing="0" width="100%" bordercolordark="white" bordercolorlight="black" align="center" cellpadding="0">
	<tr>
		<td width="153" rowspan="4" height="131"><p align="center"> 
						<a href="java script:na_open_window('win', 'config/galeria.asp?data=<%=Rs("data")%>', 0, 0, 703, 473, 0, 0, 0, 0, 0)" target="_self"><img src='config/fotos/<%=Rs("Foto")%>' width="150" height="112" border="0"></a>			 </p>
		</td>
		<td width="107">			
<p align="left" style="line-height:100%; margin-top:0; margin-bottom:0;"> 
<font face="Arial" color="#333333"><b><span style="font-size:12pt;">Evento</span></b></font> </p>
</td>
		<td width="325">			
<p align="left" style="line-height:100%; margin-top:0; margin-bottom:0;"> 
<span style="font-size:10pt;"><font face="Arial" color="#0066FF"><%=Rs("Evento")%> 
						</font></span> </p>
</td>
		<td width="194">			
						<p align="center"><a href="config/listargalerias.asp"><span style="font-size:10pt;"><b><font face="Arial" color="red"> Adiministar 
						galerias</font></b></span></a></p>
</td>
	</tr>
	<tr>
		<td width="107">			
<p style="line-height:100%; margin-top:0; margin-bottom:0;" align="left"><font face="Arial" color="#333333"><b><span style="font-size:12pt;">Data</span></b></font></p>
</td>
		<td width="325">			
<p style="line-height:100%; margin-top:0; margin-bottom:0;" align="left"><span style="font-size:10pt;"><font face="Arial" color="#0066FF"><%=Rs("Dia")%>  </font></span></p>
</td>
		<td width="194">			
						<p> </p>
</td>
	</tr>
	<tr>
		<td width="107">			
						<p align="left"><font face="Arial"><span style="font-size:12pt;"><b>Cidade</b></span></font></p>
</td>
		<td width="325">			
<p style="line-height:100%; margin-top:0; margin-bottom:0;" align="left"><span style="font-size:10pt;"><font face="Arial" color="#0066FF"><%=Rs("Cidade")%> </font></span></p>
</td>
		<td width="194">			
						<p> </p>
</td>
	</tr>
	<tr>
		<td width="107">			
						<p align="left"><font face="Arial"><span style="font-size:12pt;"><b>Fotografo</b></span></font></p>
</td>
		<td width="325">			
<p style="line-height:100%; margin-top:0; margin-bottom:0;" align="left"><span style="font-size:10pt;"><font face="Arial" color="#0066FF"><%=Rs("Fotografo")%> </font></span></p>
</td>
		<td width="194">			
						<p align="center"> </p>
</td>
	</tr>
	<tr>
		<td width="779" colspan="4">
			<p style="line-height:50%; margin-top:0; margin-bottom:0;" align="center"> </p>
		</td>
	</tr>
</table>
<p style="line-height:150%; margin-top:0; margin-bottom:0;" align="center">
<%
i = i+1
Count = Count + 1
RS.MoveNext
LOOP
%>
<%
Response.Write("<B><font color=""#006600"" size=""2"" face=""Arial""><strong> Página " & PagAtual & " de " & TotalPages & " </strong></font></B> - ")   
var01 = Len(PagAtual)
var02 = var01 - 1 
var03 = Left(PagAtual,var02)
var04 = Right(PagAtual,1)
var05 = var03 & 0
IF var04 <> 0 THEN 
inicial = var05 + 1
final = inicial + 9  
ELSE
inicial = var05 - 9  
final = var05
END IF
indice_i = var04 - 1
indice_f = 10 - var04 
If CInt(final) > CInt(TotalPages) Then final = TotalPages
IF PagAtual > 1 THEN 
Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">") 
Response.Write("<a href='listargalerias.asp?PagAtual=" &  1 & "'>")
Response.Write("<img src='config/images/primeira.gif'border='0' alt='Primeira página'>") 
Response.Write("</a></font></B>  ")
Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") 
Response.Write("<a href='listargalerias.asp?PagAtual=" & PagAtual - 1 & "'>")
Response.Write ("<img src='config/images/anterior.gif' border='0' alt='Página anterior'>") 
Response.Write("</a></font></B>  ")
IF PagAtual > 10 THEN
Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") 
Response.Write("<a href='listargalerias.asp?PagAtual=" & inicial - 1 & "'>")
Response.Write("...") 
Response.Write("</a></font></B>  ")
ELSE
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
Response.Write("....") 
Response.Write("</font></B>  ")
END IF
Else
Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">") 
Response.Write("<img src='config/images/primeira.gif' border='0' alt='Primeira página'>") 
Response.Write("</font></B>  ")
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
Response.Write("<img src='config/images/anterior.gif' border='0' alt='Página anterior'>") 
Response.Write("</font></B>  ")
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
Response.Write("...") 
Response.Write("</font></B>  ")
End If
For i = inicial To final
If CInt(i)=CInt(PagAtual) Then
Response.Write "<font color=""#660066"" size=""1"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font>  "
END IF
If CInt(i) < CInt(PagAtual) Then
Response.Write "<font color=""#660066"" size=""1"" face=""Arial""><a href='listargalerias.asp?PagAtual=" & i & "'>" & i & "</a></font> "
END IF
If CInt(i) > CInt(PagAtual) Then
Response.Write "<font color=""#660066"" size=""1"" face=""Arial""><a href='listargalerias.asp?PagAtual=" & i & "'>" & i & "</a></font> "
END IF
Next
IF CInt(PagAtual) <> CInt(TotalPages) THEN 
p1 = Left(PagAtual,var02) 
p2 = Left(TotalPages,var02)
p3 = Left(TotalPages,var02) & 0
IF (p1 > PagAtual) or ((PagAtual <= 10) and (TotalPages > 10)) THEN 
Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
Response.Write("<a href='listargalerias.asp?PagAtual=" & final + 1 & "'>")
Response.Write("...")
Response.Write("</a></font></B>  ") 
ELSE
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
Response.Write("...") 
Response.Write("</font></B>  ")
END IF
Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
Response.Write("<a href='listargalerias.asp?PagAtual=" & PagAtual + 1 & "'>")
Response.Write("<img src='config/images/proxima.gif' border='0' alt='Próxima página'>")
Response.Write("</a></font></B>  ") 
Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">")
Response.Write("<a href='listargalerias.asp?PagAtual=" & TotalPages & "'>")
Response.Write("<img src='config/images/ultima.gif' border='0' alt='Ultima página'>")
Response.Write("</a></font></B>  ")		
ELSE
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
Response.Write("...") 
Response.Write("</font></B>  ")
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
Response.Write("<img src='config/images/proxima.gif' border='0' alt='Próxima página'>") 
Response.Write("</font></B>  ")
Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">")
Response.Write("<img src='config/images/ultima.gif' border='0' alt='Ultima página'>") 
Response.Write("</font></B>  ")
End If 
Rs.Close  
Set RS = Nothing
Conn.Close	  
Set Conn = Nothing   %></p>
		</td>
	</tr>
</table>
<p> </p>
</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito