Atribuição de Valores diferentes

[Fausto 0]

Ae galera td beleza?Meu problema é o seguinte:Preciso recuperar os 5 ultimos registros de 3 colunas de uma tabela do Access e exibir esses registros em partes distintas da página.como faço isso?Exite uma maneira de atribuir os valores de cada coluna à uma única variável com vários elementos tipo: var_codigo(5) ?Valew pela força!

[WebASP 0]

Cara e facil e so dar o select e depois jogar dentro de um vetor qual esta sendo a dificuldade ?

[Fausto 0]

a dificuldade é a seguinte:não consigo desenvolver o scrip para essa rotina... o select está da seguinte forma:Noticia = "SELECT TOP 5 CodPromo, Titulo, NomeCia From PromoAereo WHERE PrecoUSD = 0 AND PrecoEURO = 0 AND PrecoREAL = 0 ORDER BY CodPromo DESC"Set NoticiaSql = Conexao.Execute(Noticia)como crio e insiro as informações em um vetor??

[WebASP 0]

<%Dim Vator()Redim Vator(5)Vator(0) = 111Vator(1) = 222Vator(2) = 333Vator(3) = 444Vator(4) = 555Vator(5) = 666For x = Lbound(Vator) To Ubound(Vator)response.write Vator(x) &"<br>"Next%>

[JucaMaster 0]

tenho uma rotina parecida Dim strTituloT1_1,strImagemT1_1,strDescricaoT1_1 Dim strTituloT1_2,strImagemT1_2,strDescricaoT1_2 Dim strTituloT2_1,strDescricaoT2_1 Dim strTituloT2_2,strDescricaoT2_2 Dim strTituloT3_1,strDescricaoT3_1 Dim contador contador = 0 If objRS.EOF then Response.Write("Não exite notícias cadastradas") Else do While not objRS.Eof and contador <=2 '=============================================================================================== '===========================Tipo 1============================================================== If strTituloT1_1 = "" and objRS("tipo_noticia") = "1" then strTituloT1_1 = objRS("assunto") strImagemT1_1 = objRS("imagem_noticia") strDescricaoT1_1 = objRS("noticia") ElseIf strTituloT1_1 <> "" and objRS("tipo_noticia") = "1" then strTituloT1_2 = objRS("assunto") strImagemT1_2 = objRS("imagem_noticia") strDescricaoT1_2 = objRS("noticia") End If contador = contador +1 objRS.movenext : Loop contador = 0 End If objRS.MoveFirst'==============================================================================================='====================================tipo 2 '==================================================== strSql = "" objRS = "" strSql = "select * from tb_news where tipo_noticia = '2' order by id desc" Set objRS = Conn.EXECUTE(strSql) If objRS.EOF then Response.Write("Não exite notícias cadastradas") Else do While not objRS.Eof and contador <=2 If strTituloT2_1 = "" and objRS("tipo_noticia") = "2" then strTituloT2_1 = objRS("assunto") strDescricaoT2_1 = objRS("noticia") ElseIf strTituloT2_1 <> "" and objRS("tipo_noticia") = "2" then strTituloT2_2 = objRS("assunto") strDescricaoT2_2 = objRS("noticia") End If contador = contador +1 objRS.movenext : Loop objRS.MoveFirst End If ' Ficou meio bagunçado copia e cola em uma rquivo a parte e tenta entender, qq coisa posta aí

[Fausto 0]

WebASPeu estou tentando usar o script q você passou mas o q está aparecendo é somente o ultimo registro devo substiuir o valor de cada elemento da variável pelo q?tipo:Vator(0) = NoticiaSql("CodPromo")Vator(1) = NoticiaSql("CodPromo")Vator(2) = NoticiaSql("CodPromo")Vator(3) = NoticiaSql("CodPromo")Vator(4) = NoticiaSql("CodPromo")Vator(5) = NoticiaSql("CodPromo")imagino q fiz besteira pq só aparece o ultimo registro

[Salgado 4]

Adaptando:

<%Dim Vator()

 

´Toda a parte do Select vai aqui

 

Contador = CInt(NoticiaSQL.RecordCount)

Redim Vator(Contador)

 

For x = 0 To Contador

  Vator(x) = NoticiaSQL("CodPromo")

  NoticiaSQL.MoveNext

Next

 

For x = Lbound(Vator) To Ubound(Vator)

  response.write Vator(x) &"<br>"

Next%>

Teste e veja se funciona!

[JucaMaster 0]

Não se esqueçam do While not objRS.eofobjRS.movenextLoop É por isso que só está pegando o primeiro registro