Erro 800a01a8

[jefmolino]

Num consigo identificar o erro aki:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

recRS2.Open "Select*From cad where id='"&Request.QueryString("id")&"'", conexao, 3, 3

[.Andreia.]

testei aqui e funcionou. Você já tentou imprimir as variáveis e a consulta SQL ?

[jefmolino]

humm... o problema é quando eu passo o valor do id na URL, ali q da erro...

eskeci d falar ... quando num passa nd na url, ele não da erro mesmo e exibe td certinho

[.Andreia.]

Você tá abrindo a conexao duas vezes, eu testei aqui e funcionou veja:

[jefmolino]

[.Andreia.]

O erro agora pra mim aparece porque você colocou ELSE e ELSE em sequencia, neste trecho:

if recRS.eof And recRS.bof Then

response.write "<b>Nenhum Comentário efetuado</b>"

else

sqlRS = "Select*From cad where id='"&Request.QueryString("id")&"'"

recRS = conexao.execute(sqlrs)

response.write "<b>" & recRS("data") & " -- " & recRS("titulo") & "</b><br />"

response.write "<i>" & recRS("autor") & "</i><br />"

variavel = Replace(recRS("desc"),VbCrLf,"<br />")

response.write variavel

Else

[jefmolino]

foi mal, cortei o if

[.Andreia.]

jefmolino, pra mim está funcionando. Imprime a consulta sql pra ver o que está saindo.

O erro aponta o banco de dados, veja se id no seu BD é texto porque na consulta você atribuiu como texto

[jefmolino]

axei o problema... ia te dizer, mas você praticamente respondeu