Link Quebrado Que Não é Quebrado?!

[taipan]

Tenho um site em Asp, confeccionado por um WebDesign "profissional". Ocorre um problema com ele. Embora os engenhos de busca consigam indexar todo o conteúdo do site, ao se clicar nos links obtidos nas buscas obtem-se aquela mensagem: "A página não pode ser exibida". Veja o exemplo do link abaix

http://www.lucrativa.com.br/index.asp?id=11768

Acontece que trafegando por dentro do site é possível chegar a esta mesma página sem problemas.

Já reclamei com o desenvolvedor, há mais de um mês. Acho que ele não sabe como resolver.

Espero que alguém aqui possa me orientar para que consiga uma solução.

Obrigado a quem der palpites!

------------------------

presidente prudente

maçonaria

prudente

[.Andreia.]

A página que retorna os resultados é index.asp, existe essa página? (creio que seja a mesma da página inicial).

Tem que ver no Banco de dados também, se chama da tabela certa, se a chave é mesmo id,...

[fercosmig]

o erro que apareceu aqui pra mim foi

ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/log.asp, line 17

http://www.lucrativa.com.br/index.asp?id=11768

não está encontrando nada com este id

o id começa com 16600 cada refresh dado o mesmo link que tinha id=16600 passa a ser 16601, ...2...3...4...5...

abraços

[.Andreia.]

Ah eu não tinha visto esse erro porque no meu estava marcado "mostrar mensagens de erro http amigáveis" sem querer.

então passa o código do log.asp

[taipan]

Gente,

Taí o log.asp. Espero que seja possível solucionar este "mistério".

Obrigado a vocês dois.

<!--#include file="conexao.asp"-->

<%

id = request.QueryString("id")

pagina = request.ServerVariables("URL")

'vDateTime = Day(Date) & "/" & Month (Date) & "/" & Year (date) & " " & Time

vDateTime = Now

if id = "" then

ip = request.ServerVariables("REMOTE_ADDR")

conexao.execute("insert into acessos (ip_ace) values ('"&ip&"') ")

set rsID = conexao.execute("select top 1 cod_ace from acessos where ip_ace = '"&ip&"' order by cod_ace desc")

id = rsID("cod_ace")

conexao.execute("insert into paginas (cod_ace, nome_pag, in_pag) values ("&id&", '"&pagina&"', '"&vDateTime&"')")

else

set rsCod = conexao.execute("select top 1 cod_pag, in_pag from paginas where cod_ace = "&id&" order by cod_pag desc")

cod = rsCod("cod_pag")

segundos = datediff("s", rsCod("in_pag"), now)

conexao.execute("update paginas set time_pag = "&segundos&" where cod_pag ="&cod)

conexao.execute("insert into paginas (cod_ace, nome_pag, in_pag) values ("&id&", '"&pagina&"', '"&vDateTime&"')")

Set rsPesq = conexao.execute("select * from paginas where cod_pag ="&cod)

vPagina = rsPesq ("nome_pag")

Set rsPesq = conexao.execute("select * from manutencoes where pagina = '"& vPagina & "'")

vPagConf = "/perguntasfrequentes-resp.asp"

vPagConf2 = "/sites/lucrativa/perguntasfrequentes-resp.asp"

vPagSol = "/solucoes3.asp"

vPagSol2 = "/sites/lucrativa/solucoes3.asp"

vPergunta = Session ("Pergunta")

vSol = Session ("Solucao")

IF vPagina = vPagConf or vPagina = vPagConf2 THEN

conexao.execute("insert into acessosperguntas (cod_ace, pergunta, in_pag, time_pag) values ("&id&", '"&vpergunta&"', '"&vDateTime&"',"&segundos&")")

END IF

IF vPagina = vPagSol or vPagina = vPagSol2 THEN

conexao.execute("insert into acessossolucoes (cod_ace, pergunta, in_pag, time_pag) values ("&id&", '"&vsol&"', '"&vDateTime&"',"&segundos&")")

END IF

IF rsPesq.EOF = TRUE THEN

vNum = 1

conexao.execute("insert into manutencoes (pagina, manutencoes) values ('"&vPagina&"', "&vNum&")")

ELSE

vNum = rsPesq ("manutencoes") + 1

conexao.execute("update manutencoes set manutencoes = "&vnum&" where pagina ='"&vPagina&"'")

END IF

end if

'conexao.close

%>

[dark0]

olá meu brother, beleza?

Cara, seguinte..

O erro que eu vi, de BOF ou EOF, é porque nada foi encontrado na instrução sql.

Para não mostrar isso, logo após você executar o select, faça um IF simples, para testar se foram encontrados dados no banco.

Se nada for encontrado, no lugar do erro de programação, você coloca um response.write com uma mensagem personalizada por voce..

Veja só..

<!--#include file="conexao.asp"-->

<%

id = request.QueryString("id")

pagina = request.ServerVariables("URL")

'vDateTime = Day(Date) & "/" & Month (Date) & "/" & Year (date) & " " & Time

vDateTime = Now

if id = "" then

ip = request.ServerVariables("REMOTE_ADDR")

conexao.execute("insert into acessos (ip_ace) values ('"&ip&"') ")

set rsID = conexao.execute("select top 1 cod_ace from acessos where ip_ace = '"&ip&"' order by cod_ace desc")

id = rsID("cod_ace")

conexao.execute("insert into paginas (cod_ace, nome_pag, in_pag) values ("&id&", '"&pagina&"', '"&vDateTime&"')")

else

set rsCod = conexao.execute("select top 1 cod_pag, in_pag from paginas where cod_ace = "&id&" order by cod_pag desc")

if rs.eof = true then

response.write "Erro ao buscar valor.."

response.end

end if

cod = rsCod("cod_pag")

segundos = datediff("s", rsCod("in_pag"), now)

conexao.execute("update paginas set time_pag = "&segundos&" where cod_pag ="&cod)

conexao.execute("insert into paginas (cod_ace, nome_pag, in_pag) values ("&id&", '"&pagina&"', '"&vDateTime&"')")

Set rsPesq = conexao.execute("select * from paginas where cod_pag ="&cod)

vPagina = rsPesq ("nome_pag")

Set rsPesq = conexao.execute("select * from manutencoes where pagina = '"& vPagina & "'")

vPagConf = "/perguntasfrequentes-resp.asp"

vPagConf2 = "/sites/lucrativa/perguntasfrequentes-resp.asp"

vPagSol = "/solucoes3.asp"

vPagSol2 = "/sites/lucrativa/solucoes3.asp"

vPergunta = Session ("Pergunta")

vSol = Session ("Solucao")

IF vPagina = vPagConf or vPagina = vPagConf2 THEN

conexao.execute("insert into acessosperguntas (cod_ace, pergunta, in_pag, time_pag) values ("&id&", '"&vpergunta&"', '"&vDateTime&"',"&segundos&")")

END IF

IF vPagina = vPagSol or vPagina = vPagSol2 THEN

conexao.execute("insert into acessossolucoes (cod_ace, pergunta, in_pag, time_pag) values ("&id&", '"&vsol&"', '"&vDateTime&"',"&segundos&")")

END IF

IF rsPesq.EOF = TRUE THEN

vNum = 1

conexao.execute("insert into manutencoes (pagina, manutencoes) values ('"&vPagina&"', "&vNum&")")

ELSE

vNum = rsPesq ("manutencoes") + 1

conexao.execute("update manutencoes set manutencoes = "&vnum&" where pagina ='"&vPagina&"'")

END IF

end if

'conexao.close

%>