Problema maluco na recuperação de dados

sylar_head · Dezembro 22, 2007

Fiz uma consulta numa tabela chamada "parceiros" mas na pagina fica dando erro

Erro:

Tipos incompatíveis: 'response.Write'

Mas quando eu atualizo a pagina do erro, a página é exibida corretamente

Segue abaixo o codigo da pagina:

<!--#include file="conectando.asp"-->
<% data = date()
data1 = FormatDateTime(data,1) %>
<%ComandoSQL = "SELECT COUNT(id) AS total FROM banners"

Set bd = bostateste.Execute(ComandoSQL)

randomize() 

numero = Int(bd("total") *Rnd) + 1

ComandoSQL = "SELECT top "&numero&"  * FROM banners"

Set bd = bostateste.Execute(ComandoSQL)

bd.Move numero - 1

query = "SELECT COUNT(id) AS total FROM parceiros"
set ras = server.CreateObject("adodb.recordset")
ras.open query, bostateste
randomize() 

a = Int(ras("total") *Rnd) + 1

query = "SELECT top "&a&"  * FROM parceiros"
Set ras = server.CreateObject("adodb.recordset")
ras.open query, bostateste
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Filhotes e Cia - A melhor Opção para Sua Companhia</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-image:  url(../../Meus%20documentos/Filhotes%20e%20cia/bg_geral.jpg);
}
.style1 {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
	color: #000000;
}
.style5 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; }
.style9 {font-family: Arial, Helvetica, sans-serif; font-size: 10px; color: #000000; }
-->
</style>
</head>
<body alink="">
<table width="780" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000066">
  <tr>
	<td><img src="imagens/topo.jpg" width="778" height="242"></td>
  </tr>
  <tr>
  
  <td valign="top" bgcolor="#FFFFFF">
  <table width="778" border="0" cellpadding="0" cellspacing="0">
	<tr>
	  <td height="25" background="imagens/barra_sup.jpg"><div align="right" class="style1">Natal ,<%=data1%></div></td>
	</tr>
  </table>
  <table width="778" border="0" cellpadding="0" cellspacing="0">
	<tr>
	
	<td width="210" valign="top"><!--#include file="menu.asp"--></td>
	<td valign="top">
	<table width="100%" border="0" cellspacing="1">
	  <tr>
		<td><img src="imagens/bg_favoritos.jpg" width="569" height="38"></td>
	  </tr>
	</table>
	<table width="100%" border="0">
	  <tr>
	  
	  <td width="74%" align="center" valign="top"><table width="100%" border="0" align="center" cellspacing="1">
		  <tr>
			<td align="center" valign="middle"><img src="imagens/banner_grande.jpg" width="400" height="60"></td>
		  </tr>
		</table>
		<table width="100%" border="0" cellspacing="1">
		  <tr>
			<td colspan="2"><img src="imagens/topo_classificados.jpg" width="161" height="32"></td>
		  </tr>
		  <tr>
			<td colspan="2" align="left" valign="middle"><span class="style5">Aqui você encontra aquele filhote que estava procurando, caso não encontre, você pode fazer uma reserva de filhote a Filhotes e Cia.</span></td>
		  </tr>
		  <tr>
			<td colspan="2" align="right" valign="middle"><p><br>
				  </p>
			  <p>
				<% 
'Efetuando a conexão com a base de dados criada -----------------------
dim bostateste
'--------------------------------------------------------------------------

'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo,
'pois vamos utilizar algumas funções deste objeto 
dim RS
Set RS = Server.CreateObject("adodb.recordset")

RS.PageSize = 10 'quantidade de registros por página. Você pode alterar sem conforme precise.

'Vamos fazer a busca na tabela contatos
dim SQL
SQL = "select * from classificados" 
RS.Open SQL,bostateste,3,3

'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor 
'que zero, se é maior que o número total de páginas, etc.
IF RS.EOF then 
   Response.Write "nenhum registro encontrado"
   Response.End 'paramos o programa
ELSE
   'Definindo em qual pagina o visitante está
   IF Request.QueryString("pagina")="" then 
	  dim intpagina
	  intpagina=1 
   ELSE
	  IF cint(Request.QueryString("pagina"))<1 then
		 intpagina=1 
	  ELSE
		 IF cint(Request.QueryString("pagina"))> RS.PageCount then 
			intpagina=RS.PageCount 
		 ELSE
			intpagina=Request.QueryString("pagina")
		 END IF
	  END IF
   END IF
END IF
'Fim das verificações de exceções

'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta 
RS.AbsolutePage=intpagina

' Inicia o contador que vai controlar os registros mostrados
dim intrec
intrec=0

'Enquanto o contador for menor que a quantidade de registros mostrados ou
' não for o final do arquivo 
While intrec < RS.PageSize and not RS.EOF %>
			  </p></td>
		  </tr>
		</table>
		<table width="100%" border="0" cellspacing="1">
		  <tr>
			<td width="9%" class="style1"><a href="detalhesclassificados.asp?cod=<%=rs("cid")%>"><img src="fotos/<%=rs("foto01")%>" width="38" height="36" border="0"></a></td>
			<td width="77%" align="left" valign="top" class="style9"><%=rs("predescricao")%></td>
			<td width="14%" align="right" valign="top" class="style9"><a href="pagina=<%=intpagina + 1%>"> </a></td>
		  </tr>
		</table>
		<table width="100%" border="0" cellspacing="1">
		  <tr>
			<td align="right" valign="middle"><% RS.MoveNext

   ' Acrescenta +1 ao contador
   intrec=intrec+1 
   'Se for EOF (fim de arquivo), imprimir branco na tela
   IF RS.EOF then 
	  response.write " " 
   END IF
Wend 'fim do loop

%>
			   </td>
		  </tr>
		</table>
		<table width="245" border="0">
		  <tr>
			<td width="109" height="40"><%
IF intpagina > 1 then 
%>
			  <a href="classificados.asp?pagina=<%=intpagina-1%>"><img src="imagens/bt_anterior.jpg" width="90" height="20" border="0"></a></td>
			<td width="126"><% 
END IF

'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página 
IF strcomp(intpagina,RS.PageCount) <> 0 then 
%>
			  <a href="classificados.asp?pagina=<%=intpagina + 1%>"><img src="imagens/bt_proxima.jpg" width="90" height="20" border="0"></a></td><%end if%>
		  </tr>
		</table>
		<p></a><a href="pagina=<%=intpagina + 1%>""></a></p></td>
	  <td width="26%" align="center" valign="top">
	  <table width="100%" border="0" align="center">
		<tr>
		  </a>
		  </p>
		  <a href="parceiro.asp?id=<%=ras("id")%>"><img src="banners/<%=ras("banner")%>" width="140" height="60" border="0"></a>
		</td>
		
		</tr>
		<% ras.movenext %>
		<tr>
		  </p>
		  <a href="parceiro.asp?id=<%=ras("id")%>"><img src="banners/<%=ras("banner")%>" width="140" height="60" border="0"></a>
		</td>
		
		</tr>
		<% ras.movenext %>
		<tr> </tr>
		<tr>
		  <td align="center" valign="top"><a href=" parceiro.asp?id=<%=ras("id")%>"><img src="banners/<%=ras("banner")%>" width="38" height="3" border="0"></a></td>
		</tr>
		<% ras.movenext %>
		<tr>
		  <td align="center" valign="top"><a href="parceiro.asp?id=<%=ras("id")%> "><img src="banners/<%=ras("banner")%>" width="140" height="60" border="0"></a></td>
</tr>
		<tr>
		  <% ras.movenext %>
		  <td align="center" valign="top"><a href="parceiro.asp?id=<%=ras("id")%>"><img src="banners/<%=ras("banner")%>" width="140" height="60" border="0"></a></td>
		</tr>
		<% ras.movenext %>
		<tr>
		  <td align="center" valign="top"><a href="parceiro.asp?id=<%=ras("id")%>"><img src="banners/<%=ras("banner")%>" width="140" height="60" border="0"></a></td>
		</tr>
		<% ras.movenext %>
		<tr>
		  <td align="center" valign="top"><a href="parceiro.asp?id=<%=ras("id")%>"><img src="banners/<%=ras("banner")%>" width="140" height="60" border="0"></a></td>
		</tr>
		<% ras.movenext %>
	  </table>
	  </td>
	  
	  </tr>
	  
	</table>
	</td>
	
	</tr>
	<% set rs = nothing 
bostateste.close %>
  </table>
  <table width="781" height="19" border="0" cellpadding="0" cellspacing="0">
	<tr>
	  <td width="781" height="19" bgcolor="#FF9999"><div align="right" class="style1">
		  <div align="center">Copyright © 2007 - Todos os direitos reservados a Filhotes e Cia. <br>
			Produzido por Real Informática</div>
		</div></td>
	</tr>
  </table>
  </td>
  
  </tr>
  
</table>
</body>
</html>

Seria problema na conexao ?

DSerma · Dezembro 22, 2007

Utilize assim:

Response.Write("Olá mundo !")

Não se esqueça de colocar os parenteses...

Teste ai.. e qlqr coisa da um berro...

Abraços...

Ted k' · Dezembro 22, 2007

creio eu que, os parenteses não influênciam em nada:

agora em qual dos response.wirte que está dando o erro?

Mário Monteiro · Dezembro 23, 2007

parenteses nao é obrigatorio nao

Entrar

Arquivado

Problema maluco na recuperação de dados

Recommended Posts

sylar_head 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

DSerma 19

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante