Erro na hora de consultar o campo categoria...

[ivoce 0]

Oi pessoal, estou enfrentando mais um problema e espero ser o último... acontece que está dando este erro na minha index, observem... ADODB.Recordset error '800a0cc1' Item cannot be found in the collection corresponding to the requested name or ordinal. /news1/index_novo.asp, line 45A linha 45 exibe isso...RS2_Tema(Aux) = RS2("categorias")O mais engraçado é que o mesmo código, exceto com o 2, na SQL1 funciona normal, mas esse dois dá esse problema, e claro ele existe na tabela "descricao" e está com o nome "categoria". Notem que está categorias na linha 45 porqu ele mixa com uma outra tabela e idêntifica a categoria, tipo esporte, etc... eu já teestei botando, tirando nomes, e ainda dá este erro... como eu disse acho engraçado que a sql funciona normal, mas a dois dá esse pepino... podem me ajudar a resolver esta situação difícil...Obrigado...Vejam abaixo o trecho do código que apresenta o defeito>> Código<<<%'***********************************************************************'***********************************************************************SQL = "SELECT Top 12 noticias.ID, noticias.categoria, noticias.descricao, noticias.data, noticias.hora, noticias.foto, categorias.categorias FROM noticias, categorias WHERE categorias.ID=noticias.categoria ORDER BY noticias.ID DESC"Set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQL, Dados, 3, 3Cont = RS.RecordCountAux = 1Dim RS_Tema(12), RS_Data(12), RS_Hora(12), RS_Foto(12), RS_Descricao(12), RS_Link(12)While (Aux < Cont) RS_Tema(Aux) = RS("categorias") RS_Data(Aux) = RS("data") RS_Hora(Aux) = RS("hora") RS_Foto(Aux) = "imagens/" & RS("foto") If Ucase(Cstr(RS_Foto(Aux))) = "NEWS1/IMAGENS/N" then RS_Foto(Aux) = "imagens/semfoto.gif" End if RS_Descricao(Aux) = RS("descricao") RS_link(Aux) = "view.asp?id=" & RS("ID")Aux = Aux + 1RS.MoveNextWendSQL2 = "SELECT Top 1 destaque.ID, destaque.categoria, destaque.titulo, destaque.descricao, destaque.data, destaque.foto, destaque.descricaofoto, destaque.foto2, destaque.descricaofoto2, categorias.categorias as auxcategorias FROM destaque, categorias WHERE categorias.ID=destaque.categoria ORDER BY destaque.ID DESC"Set RS2 = Server.CreateObject("ADODB.Recordset") RS2.Open SQL2, Dados, 3, 3Cont = 2Aux = 1Dim RS2_Tema(2), RS2_Data(2), RS2_Titulo(2), RS2_Foto(2), RS2_Descricao(2), RS2_Link(2)While (Aux < Cont) RS2_Tema(Aux) = RS2("categorias") RS2_Titulo(Aux) = RS2("titulo") RS2_Data(Aux) = RS2("data") RS2_Foto(Aux) = "imagens/destaque/" & RS2("foto") & ".jpg" If Ucase(Cstr(RS2_Foto(Aux))) = "IMAGENS/DESTAQUE/N" then RS2_Foto(Aux) = "imagens/destaque/semfoto.gif" End if RS2_Descricaofoto(Aux) = RS2("descricaofoto") RS2_Descricao(Aux) = RS2("descricao") RS2_link(Aux) = "view.asp?id=" & RS2("ID")Aux = Aux + 1RS2.MoveNextWend%>

[ska_ska 0]

não seria categoria sem S

[Mário Monteiro 179]

o blema é que você usou um aliasAS auxcategorias entao deve mudar ali paraauxcategorias tente ai