Ir para conteúdo

POWERED BY:

Arquivado

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

douglasmesquita

[Resolvido]  Request.querystring

Por , em ASP Clássico

Recommended Posts

douglasmesquita    0

douglasmesquita
Postado

Bom dia galera, fiz uma página chamada edição anteriores. Nela eu uso um link para uma página asp com a seguinte url

 

http://localhost/aqui/templates/capa.asp?edicao=605

 

Até ai tudo bem porém tá dando erro no meu querystring.

 

* Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)

[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.

/aqui/templates/capa.asp, line 31

 

O que pode tá havendo?

 

capa.asp

<% 
Option Explicit

'Criando variáveis
Dim localbd, meubd, rsNoticias, rsNoticias2, rsOutras, rsedicao, rsSocial, rsAconteceu, RsGrampos, RsEsportes, RsArtigos, Rscapa, RsBanner, rsNoticias3

'Indicando local do Banco de dados
localbd="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("../bd/bd_aqui.mdb")

'Setando conexões
set meubd=server.createobject("adodb.connection")
set rsNoticias=server.createobject("adodb.recordset")
set rsNoticias2=server.createobject("adodb.recordset")
set rsNoticias3=server.createobject("adodb.recordset")
set rsOutras=server.createobject("adodb.recordset")
set rsedicao=server.createobject("adodb.recordset")
set rsSocial=server.createobject("adodb.recordset")
set rsAconteceu=server.createobject("adodb.recordset")
set rsGrampos=server.createobject("adodb.recordset")
set rsEsportes=server.createobject("adodb.recordset")
set rsArtigos=server.createobject("adodb.recordset")
set rsCapa=server.createobject("adodb.recordset")
set rsBanner=server.createobject("adodb.recordset")

meubd.Open localbd

'Esta SELECT irá selecionar as matérias com a última edição cadastrada
rsedicao.open "Select * from noticias order by edicao desc", meubd

'Esta SELECT irá selecionar a manchete da capa
rsNoticias.Open "SELECT * from noticias, noticias_tipo where edicao="&request.querystring("edicao")&" and destaquecapa=2 and codtipo=noticias.tipo", meubd

rsNoticias2.Open "SELECT * from noticias, noticias_tipo where edicao = (select max(edicao) from noticias) and destaquecapa=1 and codtipo=noticias.tipo order by subtitulo", meubd

rsNoticias3.Open "SELECT * from noticias, noticias_tipo where edicao = (select max(edicao) from noticias) and destaquecapa=3 and codtipo=noticias.tipo order by subtitulo", meubd

'Agora selecionaremos todos os outros registros onde o tipo é igual ao da notícia selecionada
rsOutras.Open "SELECT * from noticias where destaquecapa=1 order by subtitulo", meubd

rsSocial.Open "SELECT * from noticias where tipo=13 order by edicao desc", meubd

rsAconteceu.Open "SELECT * from noticias where tipo=1 order by edicao desc", meubd

rsArtigos.Open "SELECT * from noticias where tipo=2", meubd

rsGrampos.Open "SELECT * from noticias where tipo=8 order by edicao desc", meubd

rsEsportes.Open "SELECT * from noticias where tipo=7 order by edicao desc", meubd

'rsCapa.open "Select * from capa where edicao="& rsNoticias("edicao") &" order by edicao desc", meubd

rsBanner.open "Select * from banner", meubd

%>
<html>
<head>
<title>aQui Online</title>
</head>
<link rel="stylesheet" href="../css/capa.css" type="text/css" title="Editorias" media="all"/>
<body>
<span class="style2"></span>
<div id="geral">
  <div id="topo">
		<div id="logo"><img src="../imagens/logo_aqui.jpg" width="200" height="86" border="0" usemap="#Map">
		<map name="Map">
		  <area shape="rect" coords="4,2,197,83" href="index.asp" target="_parent" alt="Página Principal">
		</map>
		</div>
		<div id="banner">
		<div align="center"><img src="<%=rsBanner("banner_grande")%>"></div>
		</div>
	<div id="data">		
		<form method="POST" action="buscar.asp">
		  <div>
	 <span class="traco3">------------------------------------------------------------------------------------------------------------------------------------------------------</span><br>
			Volta Redonda / Barra Mansa - <%=rscapa("data")%> - EdiÇÃo nº <%=rsNoticias("edicao")%> 
		  <span class="traco2">----------------------</span>
		  <input name="Submit" type="submit" value="Busca">
		  <input name="noticias" type="text" size="15">
		  </div>
		</form>
	  <span class="traco3">------------------------------------------------------------------------------------------------------------------------------------------------------</span><br>
	</div>
  </div>
	  <div id="menu1">
		<ul id="menu">
			<li><a href="index.asp">Capa</a></li>
			<li><a href="aconteceu.asp?cod=<%=rsAconteceu("codnoticia")%>">Aconteceu</a></li>
			<li><a href="noticias.asp?tipo=2">Artigos</a></li>
			<li><a href="noticias.asp?tipo=3">Barra Mansa</a></li>
			<li><a href="noticias.asp?tipo=4">Cartas</a></li>
			<li><a href="noticias.asp?tipo=5">CSN</a></li>
			<li><a href="noticias.asp?tipo=6">Especial</a></li>
			<li><a href="esportes.asp?cod=<%=rsEsportes("codnoticia")%>">Esportes</a></li>
			<li><a href="grampos.asp?cod=<%=rsGrampos("codnoticia")%>">Grampos</a></li>
			<li><a href="noticias.asp?tipo=9">Polícia</a></li>
			<li><a href="noticias.asp?tipo=10">Política</a></li>
			<li><a href="noticias.asp?tipo=11">Região</a></li>
			<li><a href="noticias.asp?tipo=12">Rio Claro</a></li>
			<li><a href="social.asp?cod=<%=rsSocial("codnoticia")%>">Social</a></li>
			<li><a href="noticias.asp?tipo=14">Volta Redonda</a></li>
			<li><a href="class/tudoaqui.asp">Classificados</a></li>
			<li><a href="arquivo.asp">Edições Anteriores</a></li>
			<li><a href="expediente.asp">Expediente</a></li>
		</ul>
		<br>
		<div id="semana">
			<span class="semana">EDIÇÃO DA SEMANA</span><br>
			<img src="<%=RsCapa("capa_menor")%>" hspace="0" vspace="5" border="1">
			<a href="<%=Rscapa("capa_pdf")%>">
			<span class="pdf"> 1ª Capa em PDF </span></a>
		</div>
		<div id="publicidade">
			<span class="semana">PUBLICIDADE</span>
			<% 
			while NOT rsBanner.EOF 
			%> 			  
			<img src="<%=rsBanner("banner_menores")%>" vspace="5">
			<%
			rsBanner.movenext
			wend
			%>
		</div>
	</div>
	<div id="conteudo">
	<div id="foto"><img src="<%=rsNoticias("foto")%>" border="1"></div>
		<h1 class="antetitulo"><%=rsNoticias("tipo")%></h1>
		  <h1><a href="<%=rsNoticias("tipo2")%>.asp?cod=<%=rsNoticias("codnoticia")%>"><%=rsNoticias("subtitulo")%></a></h1>
		<p><%=rsNoticias("chamada")%></p>
	</div>
	<div id="box4">
		<h6 class="traco">- - - - - - - - - - - - - - - - - - - - - - - - - - -
			- - - - - - - - - - - - - - - - - - - - - - - - - - - </h6>
		<% 
		  'iremos fazer uma repetição das Notícias
		  while NOT rsNoticias2.EOF 
		%> 			  
		<h1 class="antetitulo"><%=rsNoticias2("tipo")%></h1>
		<h6><a href="<%=rsNoticias2("tipo2")%>.asp?cod=<%=rsNoticias2("codnoticia")%>"><%=rsNoticias2("subtitulo")%></a></h6>
		  <h6 class="traco">- - - - - - - - - - - - - - - - - - - - - - - - - - -
			- - - - - - - - - - - - - - - - - - - - - - - - - - - </h6>
		<%
		rsNoticias2.movenext
		wend
		%>
	  </div>	
		<div id="box2">	
		<% 
		while not rsNoticias3.eof 
		%>
			  <div id="box3">
			<img src="<%=rsNoticias3("chamadas_foto")%>" border="1">
			<h5><a href="<%=rsNoticias3("tipo2")%>.asp?cod=<%=rsNoticias3("codnoticia")%>"><%=rsNoticias3("subtitulo")%></a></h5>
			</div>
		<%
		rsNoticias3.movenext
		wend
		%>
		<br>
		<p>NEWSLETTER</p>
		<label><input name="textfield" type="text" size="23">
		</label>
		</div>
	  <div id="rodape">
	<p>© Jornal aQui. Todos os direitos reservados. Este material não pode ser publicado, reescrito ou redistribuído sem prévia autorização.</p>
	  </div>
</div>		
</body>
</html>
<%
'Fechando as consultas e a conexão
rsNoticias.close
rsEdicao.close
rsOutras.close
meubd.close
	
'Limpando as variáveis
set meubd= nothing
set rsNoticias= nothing
set rsEdicao= nothing
set rsoutras= nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

douglasmesquita    0

douglasmesquita
Postado

Linha 31

 

'Esta SELECT irá selecionar a manchete da capa

rsNoticias.Open "SELECT * from noticias, noticias_tipo where edicao="&request.querystring("edicao")&" and destaquecapa=2 and codtipo=noticias.tipo", meubd

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Acima do rsnoticias.open coloque

 

Response.Write "SELECT * from noticias, noticias_tipo where edicao="&request.querystring("edicao")&" and destaquecapa=2 and codtipo=noticias.tipo"
Response.End
Poste o resultado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

os campos

 

edicao e destaquecapa sao numericos

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

que bom que resolveu

 

abraços

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