Consulta....não Consigo Mostrar Campo

[Guest Gi]

Ola,

Estou com um problema besta de iniciante....tenho uma pagina busca.asp, onde busca hoteis...tem a opção do usuario colocar nome, qual categoria, em qual estado e tal...depois de colocar esses dados ele me gera a resposta dos registros encontrados...ate ai esta tudo certo...porem agora quero que ele mostre mais um campo que esta no banco de dados (localizado na tabela com com o nome com_txt_foto1). Porem não consigo...se coloco isso na primeira consulta (COM.COM_TXT_FOTO1 AS FOTO1) ele me retorna que nenhum registro foi encontrado..onde estou errando??? o que preciso fazer?

Segue codigo

<%

option explicit

dim Conn, rsQuery, SQLString

dim dsResultado, i, dsCab, dsCategoria, dsCategoriaCheck, dsFoto1

%>

<!--#include file="includes/Conn.asp"-->

<%

Set rsQuery = Server.CreateObject("ADODB.RecordSet")

SQLString = "SELECT CAT.CAT_TXT_DESCRICAO AS CATEGORIA, COM.COM_NUM_CODIGO AS CODIGO, COM_TXT_NOME AS NOME, COM.COM_TXT_BAIRRO AS BAIRRO, COM.COM_TXT_ESTADO AS ESTADO ,COM.COM_TXT_CIDADE AS CIDADE FROM CAT, COM WHERE"

If Len(Trim(Request.form("keyword"))) <> 0 then

SQLString = SQLString&" COM.COM_TXT_NOME LIKE '%"&Request.form("keyword")&"%' AND"

End If

If Request.form("idCat") <> "all" then

SQLString = SQLString&" CAT.CAT_NUM_CODIGO = "&Request.form("idCat")&" AND CAT.CAT_NUM_CODIGO = COM.CAT_NUM_CODIGO"

Else

SQLString = SQLString&" CAT.CAT_NUM_CODIGO = COM.CAT_NUM_CODIGO"

End If

If Request.form("dsBairro") <> "all" then

SQLString = SQLString&" AND COM.COM_TXT_BAIRRO = '"&Request.form("dsBairro")&"'"

End If

If Request.form("dsCidade") <> "all" then

SQLString = SQLString&" AND COM.COM_TXT_CIDADE = '"&Request.form("dsCidade")&"'"

End If

If Request.form("dsEstado") <> "all" then

SQLString = SQLString&" AND COM.COM_TXT_ESTADO = '"&Request.form("dsEstado")&"'"

End If

SQLString = SQLString&" AND COM.COM_FL_ATIVO = '1' GROUP BY CAT.CAT_TXT_DESCRICAO, COM.COM_TXT_BAIRRO, COM.COM_TXT_CIDADE, COM.COM_TXT_ESTADO, COM.COM_TXT_NOME, COM.COM_NUM_CODIGO ORDER BY 1,2 ASC"

On Error Resume Next

rsQuery.Open SQLstring, Conn

dsResultado = ""

dsCategoriaCheck = ""

'paginacao

n_page=request("n_page")

If n_page="0" Then n_page = 1

response.write n_page

rsQuery.PageSize=1

'fim paginacao

If rsQuery.EoF Then

dsCab = "<font face=""verdana"" size=""1""><b>Não foram encontrados resultados para a sua busca!"

Else

i = 0

'paginacao

rsQuery.AbsolutePage = Cint(n_page)

contador=0

response.write rsQuery.AbsolutePage

'fim paginacao

while not rsQuery.EoF

contador=contador+1

dsCategoria = rsQuery("CATEGORIA")

If dsCategoria <> dsCategoriaCheck Then

dsResultado = dsResultado&"<font face=""verdana"" size=""1"" color=003366><b>"&dsCategoria&"</b></font>"

End If

i = (i + 1)

dsResultado = dsResultado & "<tr><td><font face=""verdana"" size=""1"" color=#003366><b><a href=""dspMostraDet.asp?idEst="&rsQuery("CODIGO")&""" target=""_self"">"&rsQuery("NOME")&"</a> </b><br> "&rsQuery("BAIRRO")&"<br>"&rsQuery("CIDADE")&" - "&rsQuery("ESTADO")&" <br></font><table width=600 border=0><tr><td><a href=""dspMostraDet.asp?idEst="&rsQuery("CODIGO")&""" target=""_self""><img src=http://www.site.com.br/site/img/detalhes.gif border=0></a></td><td><img src=http://www.site.com.br/site/img/reservar.gif></td></tr></table></td></tr><br><br>"

dsCategoriaCheck = dsCategoria

rsQuery.Movenext

wend

'paginacao

For navega=1 to rsQuery.PageCount

If navega= Cint(n_page) Then

response.write navega

Else

response.write " "& "<a href=lista.asp?n_page="&navega&">"&navega&"</a>"& " "

End If

Next

response.write "<br><br>"

anterior=n_page-1

proxima=n_page+1

If not anterior = 0 Then

response.write "<a href=lista.asp?n_page="&anterior&">Anterior</a>"

End If

If proxima < navega Then

response.write "&nbsp<a href=lista.asp?n_page="&proxima&">Próxima</a>"

End If

If i = 1 Then

dsCab = "<font face=""verdana"" size=""1""><b>Foi encontrado "&i&" registro para a sua busca!"

Else

dsCab = "<font face=""verdana"" size=""1""><b>Foram encontrados "&i&" registros para a sua busca!"

End If

End If

'fim paginacao

rsQuery.Close

Conn.Close

Set rsQuery = Nothing

Set Conn = Nothing

%>

[negociadorweb]

Sugiro que você comente a linha do seu código que impede que o erro seja exibido

"On Error Resume Next".

Feito isso, poste o erro gerado aki. Assim fica mais fácil de ver o que tá dando errado.

[]'s

[Guest Gi]

Não esta dando erro...mudei um pouco o script...fiz uma nova consulta para mostrar o campo com_txt_foto1....agora esta chamando porem esta me trazendo todos os campos...quero que mostre somente os campos relacionados a consulta

<%

option explicit

dim Conn, rsQuery, SQLString

dim dsResultado, i, dsCab, dsCategoria, dsCategoriaCheck, dsFoto1

%>

<!--#include file="includes/Conn.asp"-->

<%

Set rsQuery = Server.CreateObject("ADODB.RecordSet")

SQLString = "SELECT CAT.CAT_TXT_DESCRICAO AS CATEGORIA, COM.COM_NUM_CODIGO AS CODIGO, COM_TXT_NOME AS NOME, COM.COM_TXT_BAIRRO AS BAIRRO, COM.COM_TXT_ESTADO AS ESTADO ,COM.COM_TXT_CIDADE AS CIDADE FROM CAT, COM WHERE"

If Len(Trim(Request.form("keyword"))) <> 0 then

SQLString = SQLString&" COM.COM_TXT_NOME LIKE '%"&Request.form("keyword")&"%' AND"

End If

If Request.form("idCat") <> "all" then

SQLString = SQLString&" CAT.CAT_NUM_CODIGO = "&Request.form("idCat")&" AND CAT.CAT_NUM_CODIGO = COM.CAT_NUM_CODIGO"

Else

SQLString = SQLString&" CAT.CAT_NUM_CODIGO = COM.CAT_NUM_CODIGO"

End If

If Request.form("dsBairro") <> "all" then

SQLString = SQLString&" AND COM.COM_TXT_BAIRRO = '"&Request.form("dsBairro")&"'"

End If

If Request.form("dsCidade") <> "all" then

SQLString = SQLString&" AND COM.COM_TXT_CIDADE = '"&Request.form("dsCidade")&"'"

End If

If Request.form("dsEstado") <> "all" then

SQLString = SQLString&" AND COM.COM_TXT_ESTADO = '"&Request.form("dsEstado")&"'"

End If

SQLString = SQLString&" AND COM.COM_FL_ATIVO = '1' GROUP BY CAT.CAT_TXT_DESCRICAO, COM.COM_TXT_BAIRRO, COM.COM_TXT_CIDADE, COM.COM_TXT_ESTADO, COM.COM_TXT_NOME, COM.COM_NUM_CODIGO ORDER BY 1,2 ASC"

'On Error Resume Next

rsQuery.Open SQLstring, Conn

dsResultado = ""

dsCategoriaCheck = ""

If rsQuery.EoF Then

dsCab = "<font face=""verdana"" size=""1""><b>Não foram encontrados resultados para a sua busca!"

Else

i = 0

while not rsQuery.EoF

dsCategoria = rsQuery("CATEGORIA")

If dsCategoria <> dsCategoriaCheck Then

dsResultado = dsResultado&"<font face=""verdana"" size=""1"" color=003366><b>"&dsCategoria&"</b></font>"

End If

i = (i + 1)

dsResultado = dsResultado & "<tr><td><font face=""verdana"" size=""1"" color=#003366><b><a href=""dspMostraDet.asp?idEst="&rsQuery("CODIGO")&""" target=""_self"">"&rsQuery("NOME")&"</a> </b><br> "&rsQuery("BAIRRO")&"<br>"&rsQuery("CIDADE")&" - "&rsQuery("ESTADO")&" <br></font><table width=600 border=0><tr><td><a href=""dspMostraDet.asp?idEst="&rsQuery("CODIGO")&""" target=""_self""><img src=http://www.meubebezinho.com.br/site/img/detalhes.gif border=0></a></td><td><img src=http://www.meubebezinho.com.br/site/img/reservar.gif></td></tr></table></td></tr><br><br>"

dsCategoriaCheck = dsCategoria

rsQuery.Movenext

wend

If i = 1 Then

dsCab = "<font face=""verdana"" size=""1""><b>Foi encontrado "&i&" registro para a sua busca!"

Else

dsCab = "<font face=""verdana"" size=""1""><b>Foram encontrados "&i&" registros para a sua busca!"

End If

End If

Set rsQuery = Server.CreateObject("ADODB.RecordSet")

SQLString = "SELECT * FROM COM "

On Error Resume Next

rsQuery.Open SQLstring, Conn

while not rsQuery.EoF

response.write rsQuery("com_num_codigo")

'response.write rsQuery("com_txt_foto1")

rsQuery.Movenext

wend

rsQuery.Close

Conn.Close

Set rsQuery = Nothing

Set Conn = Nothing

%>