Erro com categoria(Estado)

marciolvs · Julho 16, 2008

Pessoal to com um probleminha...

O problema é: www.setagri.com.br/site/listaimoveis.asp quando escolho um estado ele me lista como se tudo fosse somente de uma cidade e na verdade não é...

Não consegui resolver.

Peço que alguém me de uma mão.

Segue Codigo

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>
<link href="tabless.css" rel="stylesheet" type="text/css">
<!-- #include file="sistema/conexao2.asp"-->
<%
estado = request("txtcategoria")

'response.Write(estado)
'response.End()

Dim conexaodb
IF request("txtcategoria") = "" Then
	'nada
ELSE


'aqui vou fazer o sistema de contar geral do estado escolhido..

	'listo geral
	countsql = "select count(*) as totalimoveis From Produtos WHERE categoria="&estado
	call abreconexao						
	set rsa = conexaodb.execute(countsql)
	'listo certificados
	countsql2 = "select count(*) as totalcertificado From Produtos WHERE status = 'Certificado pelo INCRA' and categoria="&estado
	call abreconexao						
	set rs2 = conexaodb.execute(countsql2)
	'listo protocolado
	countsql3 = "select count(*) as totalgeorreferenciado From Produtos WHERE status = 'Protocolado em fase de certificacao no INCRA' and categoria="&estado
	call abreconexao						
	set rs3 = conexaodb.execute(countsql3)											  
	
	'somo total da área
	sql = "select sum(area) as total_area from Produtos WHERE categoria="&estado
	set rs4 = conexaodb.execute(SQL)

%>

<%	  
	SQL = "SELECT * FROM produtos WHERE categoria="&estado&" and status='Certificado pelo INCRA' order by subcategoria ASC"
	'Response.Write(SQL)
	'Response.End()
	CALL Abreconexao
	SET rs = conexaodb.execute(sql)
	%>
	<%
	SQL = "SELECT * FROM produtoscategorias WHERE id ="&estado
	CALL Abreconexao
	SET rscateg = conexaodb.execute(sql)
	%>
	
	<span class="texto_pag"><strong>Total de imóveis Georreferenciados no Estado de <%=rscateg("nome")%></strong></span>
	 <table width="565" border="0" cellpadding="0" cellspacing="1" class="texto_pag">
	  <tr>
		<td width="164" bgcolor="#D6D3CE" class="texto_pag"><div align="center">Imóveis Georreferenciados: </div></td>
		<td width="137" bgcolor="#D6D3CE" class="texto_pag"><div align="center">Certificados</div></td>
		<td width="127" bgcolor="#D6D3CE" class="texto_pag"><div align="center">Protocolados</div></td>
		<td width="143" bgcolor="#D6D3CE" class="texto_pag"><div align="center">Área Total: </div></td>
	  </tr>
	  <tr>
		<td bgcolor="F5F5F5"><div align="center"><font color="#FF0000"><%=rsa("totalimoveis")%></font></div></td>
		<td bgcolor="F5F5F5"><div align="center"><font color="#FF0000"><%=rs2("totalcertificado")%></font></div></td>
		<td bgcolor="F5F5F5"><div align="center"><font color="#FF0000"><%=rs3("totalgeorreferenciado")%></font></div></td>
		<td bgcolor="F5F5F5"><div align="center"><font color="#FF0000"><%IF rs4("total_area") = 0 then %><%else%><%=FormatNumber(rs4("total_area"),2)%><%end if%></font></div></td>
	  </tr>
   </table>
   <br>
   	<span class="texto_pag"><strong>Lista de imóveis Certificados pelo INCRA do Estado de <%=rscateg("nome")%></strong></span>
	<table width="565" border="0" cellpadding="0" cellspacing="1" class="texto_pag">
	  <tr>
		<td width="97" bgcolor="F5F5F5" class="texto_pag">Municipio</td>
		<td width="94" bgcolor="F5F5F5" class="texto_pag">Nome Imóvel</td>
		<td width="93" bgcolor="F5F5F5" class="texto_pag">Proprietário</td>
		<td width="90" bgcolor="F5F5F5" class="texto_pag">Codigo INCRA</td>
		<td width="92" bgcolor="F5F5F5" class="texto_pag">Matricula</td>
		<td width="99" bgcolor="F5F5F5" class="texto_pag">N° Certificação</td>
	  </tr>
	  <%
	  IF NOT RS.EOF THEN
	   WHILE NOT rs.eof%>
	   <%
		SQL = "SELECT * FROM produtossubcategorias WHERE categoria ="estado
		CALL Abreconexao
		SET rssubcateg = conexaodb.execute(sql)
		%>
	  <tr>
		<td><%=rssubcateg("nome")%></td>
		<td><%=rs("nome")%></td>
		<td><%=rs("proprietario")%></td>
		<td><%=rs("codigoincra")%></td>
		<td><%=rs("matricula")%></td>
		<td><%=rs("ncertificado")%></td>
	  </tr>
	  <%
	  rs.movenext
	  WEND
	  set rs = nothing
	  %>
	  <%ELSE%>
	  <tr>
		  <td colspan="6"> </td>
	  </tr>
	  <tr>
		  <td colspan="6"><center><font color="#FF0000">Nenhum Imóvel cadastrado com este ESTADO.</font></center></td>
	  </tr>
	  <%END IF%>  
	  <tr>
		<td> </td>
		<td> </td>
		<td> </td>
		<td> </td>
		<td> </td>
		<td> </td>
	  </tr>
	</table>
	
	<br>
	
	<span class="texto_pag"><strong>Lista de Imóveis Procolados em fase de certificação no INCRA do Estado de <%=rscateg("nome")%></strong><br>
	</span>
	<%
	SQL2 = "SELECT * FROM produtos WHERE categoria="&estado&" and status='Protocolado em fase de certificacao no INCRA' order by subcategoria ASC"
	CALL abreconexao
	SET rs = conexaodb.execute(sql2)
	%>
	<%
	if SQL2 = "" then
	
	END IF%>
	<table width="565" border="0" cellpadding="0" cellspacing="1" class="texto_pag">
	  <tr>
		<td width="97" bgcolor="F5F5F5" class="texto_pag">Munícipio</td>
		<td width="94" bgcolor="F5F5F5" class="texto_pag">Nome Imóvel</td>
		<td width="93" bgcolor="F5F5F5" class="texto_pag">Proprietário</td>
		<td width="90" bgcolor="F5F5F5" class="texto_pag">Codigo INCRA</td>
		<td width="92" bgcolor="F5F5F5" class="texto_pag">Matricula</td>
		<td width="99" bgcolor="F5F5F5" class="texto_pag">N° Certificação</td>
	  </tr>
	  <%
	  IF NOT RS.EOF THEN
	   WHILE NOT rs.eof%>
	  <tr>
		<td><%=rssubcateg("nome")%></td>
		<td><%=rs("nome")%></td>
		<td><%=rs("proprietario")%></td>
		<td><%=rs("codigoincra")%></td>
		<td><%=rs("matricula")%></td>
		<td><%=rs("ncertificado")%></td>
	  </tr>
	  <%
	  rs.movenext
	  WEND
	  set rs = nothing
	  %>
	  <%ELSE%>
	  <tr>
		  <td colspan="6"> </td>
	  </tr>
	  <tr>
		  <td colspan="6"><center><font color="#FF0000">Nenhum Imóvel cadastrado com este ESTADO.</font></center></td>
	  </tr>
	  <%END IF%>
	  <tr>
		<td> </td>
		<td> </td>
		<td> </td>
		<td> </td>
		<td> </td>
		<td> </td>
	  </tr>
	</table>
	
<%END IF%>

Agradeço desde já.

Marcio L. Vercanti.

iPratica - Um Novo Conceito em WEB

champignoncpg · Julho 16, 2008

Oi amigo tudo bemmm, to tentando te ajudar aki, mas ta dificil entender o cod pelo tamanho....

coloque somente a parte chave da duvida..... e explica melhor oq você quer tbm q num deu pra entender direito....

vlww

marciolvs · Julho 16, 2008

Oi amigo tudo bemmm, to tentando te ajudar aki, mas ta dificil entender o cod pelo tamanho....

coloque somente a parte chave da duvida..... e explica melhor oq você quer tbm q num deu pra entender direito....

vlww

segue:

<%
estado = request("txtcategoria")

'response.Write(estado)
'response.End()

Dim conexaodb
IF request("txtcategoria") = "" Then
	'nada
ELSE


'aqui vou fazer o sistema de contar geral do estado escolhido..

	'listo geral
	countsql = "select count(*) as totalimoveis From Produtos WHERE categoria="&estado
	call abreconexao						
	set rsa = conexaodb.execute(countsql)
	'listo certificados
	countsql2 = "select count(*) as totalcertificado From Produtos WHERE status = 'Certificado pelo INCRA' and categoria="&estado
	call abreconexao						
	set rs2 = conexaodb.execute(countsql2)
	'listo protocolado
	countsql3 = "select count(*) as totalgeorreferenciado From Produtos WHERE status = 'Protocolado em fase de certificacao no INCRA' and categoria="&estado
	call abreconexao						
	set rs3 = conexaodb.execute(countsql3)											  
	
	'somo total da área
	sql = "select sum(area) as total_area from Produtos WHERE categoria="&estado
	set rs4 = conexaodb.execute(SQL)

%>

<%	  
	SQL = "SELECT * FROM produtos WHERE categoria="&estado&" and status='Certificado pelo INCRA' order by subcategoria ASC"
	'Response.Write(SQL)
	'Response.End()
	CALL Abreconexao
	SET rs = conexaodb.execute(sql)
	%>
	<%
	SQL = "SELECT * FROM produtoscategorias WHERE id ="&estado
	CALL Abreconexao
	SET rscateg = conexaodb.execute(sql)
	%>
	
	<span class="texto_pag"><strong>Total de imóveis Georreferenciados no Estado de <%=rscateg("nome")%></strong></span>
	 <table width="565" border="0" cellpadding="0" cellspacing="1" class="texto_pag">
	  <tr>
		<td width="164" bgcolor="#D6D3CE" class="texto_pag"><div align="center">Imóveis Georreferenciados: </div></td>
		<td width="137" bgcolor="#D6D3CE" class="texto_pag"><div align="center">Certificados</div></td>
		<td width="127" bgcolor="#D6D3CE" class="texto_pag"><div align="center">Protocolados</div></td>
		<td width="143" bgcolor="#D6D3CE" class="texto_pag"><div align="center">Área Total: </div></td>
	  </tr>
	  <tr>
		<td bgcolor="F5F5F5"><div align="center"><font color="#FF0000"><%=rsa("totalimoveis")%></font></div></td>
		<td bgcolor="F5F5F5"><div align="center"><font color="#FF0000"><%=rs2("totalcertificado")%></font></div></td>
		<td bgcolor="F5F5F5"><div align="center"><font color="#FF0000"><%=rs3("totalgeorreferenciado")%></font></div></td>
		<td bgcolor="F5F5F5"><div align="center"><font color="#FF0000"><%IF rs4("total_area") = 0 then %><%else%><%=FormatNumber(rs4("total_area"),2)%><%end if%></font></div></td>
	  </tr>
   </table>
   <br>
	   <span class="texto_pag"><strong>Lista de imóveis Certificados pelo INCRA do Estado de <%=rscateg("nome")%></strong></span>
	<table width="565" border="0" cellpadding="0" cellspacing="1" class="texto_pag">
	  <tr>
		<td width="97" bgcolor="F5F5F5" class="texto_pag">Municipio</td>
		<td width="94" bgcolor="F5F5F5" class="texto_pag">Nome Imóvel</td>
		<td width="93" bgcolor="F5F5F5" class="texto_pag">Proprietário</td>
		<td width="90" bgcolor="F5F5F5" class="texto_pag">Codigo INCRA</td>
		<td width="92" bgcolor="F5F5F5" class="texto_pag">Matricula</td>
		<td width="99" bgcolor="F5F5F5" class="texto_pag">N° Certificação</td>
	  </tr>
	  <%
	  IF NOT RS.EOF THEN
	   WHILE NOT rs.eof%>
	   <%
		SQL = "SELECT * FROM produtossubcategorias WHERE categoria ="estado
		CALL Abreconexao
		SET rssubcateg = conexaodb.execute(sql)
		%>
	  <tr>
		<td><%=rssubcateg("nome")%></td>
		<td><%=rs("nome")%></td>
		<td><%=rs("proprietario")%></td>
		<td><%=rs("codigoincra")%></td>
		<td><%=rs("matricula")%></td>
		<td><%=rs("ncertificado")%></td>
	  </tr>
	  <%
	  rs.movenext
	  WEND
	  set rs = nothing
	  %>
	  <%ELSE%>
	  <tr>
		  <td colspan="6"> </td>
	  </tr>
	  <tr>
		  <td colspan="6"><center><font color="#FF0000">Nenhum Imóvel cadastrado com este ESTADO.</font></center></td>
	  </tr>
	  <%END IF%>

Entrar

Arquivado

Erro com categoria(Estado)

Recommended Posts

marciolvs 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

champignoncpg 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

marciolvs 1

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