Q Q Conteceu?

[crucifier]

hail murders!

tipw eu peguei um negocinhu pronto aih pra aparece tipw primera linha cor cinza segunda cinza escuro..tercera cinza quarta cinza escuro..e assim por diante...mai não deu muito certo..vo posta aih o codigo:

y=1
Do while not rs.eof
  if y mod 2 = 0 then  
     cor = "#f3f3f3"
  else
     cor = "#CCCCCC"
  end if
  y = y+1

	response.write "<tr bgcolor=" & cor & ">"
	response.write "<td><div align=center><img src="&miniatura&" width=47 height=47 style=border: 3px double #000000 /></div></td>"
	response.write "<td><div align=center>"& id &"</div></td>"
    response.write "<td><div align=center>"&categoria&"</div></td>"
    response.write "<td><div align=center>"&titulo&"</div></td>"
    response.write "<td><div align=center>"&descricao&"</div></td>"
    response.write "<td><div align=center>"
    response.write "<table width=""100%"" border=0 cellspacing=0 cellpadding=0>"
    response.write "<tr>"
    response.write "<td><div align=center><img src=http://www.filht.com.br/administracao/images/icon_alterar.gif width=18 height=27 /></div></td>"
    response.write "<td><div align=center><img src=http://www.filht.com.br/administracao/images/icon_excluir.gif width=22 height=23 /></div></td>"
    response.write "<td><div align=center><img src=http://www.filht.com.br/administracao/images/icon_visualizar.gif width=20 height=19 /></div></td>"
	response.write "</tr>"
    response.write "</table>"
    response.write "</div></td>"
	response.write "</tr>"

response.write "</table>"

  Rs.MoveNext
loop

mas ele da erro na linha 94...e a linha 94 é a parte q ta escrito loop

porq q ta acontecenu isso?=(

[JCMPJ]

Qual é a mensagem de erro?

O erro pode estar em outra parte do código.

[.Andreia.]

Eu testei aqui e funciona, se está dando erro no Loop, dae pode ser prob em outra parte do codigo, como disse o JCMPJ.

E tava em liquidação os response.write ? hehehe...brincadeira, mas é mais bunitinho fechar e abrir as tags <% %>, já sendo abusada, mudei tá.

Outra observação, se os valores id, categoria,titulo e descricao... vem do banco então tem que ser rs("id"), rs("titulo"),...

e outra coisinha tb, o ultimo <table> você fecha depois do loop tá.

[crucifier]

vo posta meu codigo intero então...não consigui achar o erro ainda...

a primera parte do codigo antes do %> é do não guardar negocio de cache...vo posta ele interinhu aih:

continua dando erro na linha do loop

        <%Response.Expiresabsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache" %>
<%
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
          DSNtemp=dsntemp & "DBQ=" & server.mappath("textos.mdb")
          sqlstmt = "SELECT * FROM textos ORDER BY id DESC"
          Set rs = Server.CreateObject("ADODB.Recordset")
          rs.Open sqlstmt, DSNtemp, 3, 3
  rs.Move Request.QueryString("id")
TotalRecs = rs.recordcount
x = 0
For x = 1 to 9999
	If rs.eof then
  Exit For


id = rs("id")
miniatura = rs("miniatura")
categoria = rs("categoria")
titulo = rs("titulo")
descricao = rs("descricao")

y=1
Do while not rs.eof
 if y mod 2 = 0 then  
    cor = "#f3f3f3"
 else
    cor = "#CCCCCC"
 end if
 y = y+1

response.write "<tr bgcolor=" & cor & ">"
response.write "<td><div align=center><img src="&miniatura&" width=47 height=47 style=border: 3px double #000000 /></div></td>"
response.write "<td><div align=center>"& id &"</div></td>"
   response.write "<td><div align=center>"&categoria&"</div></td>"
   response.write "<td><div align=center>"&titulo&"</div></td>"
   response.write "<td><div align=center>"&descricao&"</div></td>"
   response.write "<td><div align=center>"
   response.write "<table width=""100%"" border=0 cellspacing=0 cellpadding=0>"
   response.write "<tr>"
   response.write "<td><div align=center><img src=http://www.filht.com.br/administracao/images/icon_alterar.gif width=18 height=27 /></div></td>"
   response.write "<td><div align=center><img src=http://www.filht.com.br/administracao/images/icon_excluir.gif width=22 height=23 /></div></td>"
   response.write "<td><div align=center><img src=http://www.filht.com.br/administracao/images/icon_visualizar.gif width=20 height=19 /></div></td>"
response.write "</tr>"
   response.write "</table>"
   response.write "</div></td>"
response.write "</tr>"

response.write "</table>"

 Rs.MoveNext
loop
%>

o erro dado foi:

Error Type:

Microsoft VBScript compilation (0x800A03F6)

Expected 'End'

/administracao/textos/view.asp, line 56

[fercosmig]

For x = 1 to 9999

If rs.eof then

Exit For

não ví o Next e o end if

abraços

[.Andreia.]

Primeiro, você tem que colocar o rs depois do while, antes ele só vai pegar o primeiro registro. então altera ae:

[JCMPJ]

E tava em liquidação os response.write ?  hehehe...brincadeira, mas é mais bunitinho fechar e abrir as tags <% %>,

Andreia,

Daquele jeito melhora e muito a performance do código. Pode até ser mais bonitinho, e bem mais facil de escrever e entender depois, mas vale considerar a perda de performance.

Quanto a isso:

If rs.eof then
Exit For

Pode até ficar sem o END IF, mas tem que ficar em um só linha

Não custa testar. Pelo jeito esse erra o problema.

[]'s

Ah tem também o NEXT que não ta aparecendo, como disse a Andreia.

Editado Novembro 5, 2005 por JCMPJ

[.Andreia.]

vo testar então pra ve a diferença... mas mesmo assim acho que fica melhor de visualizar. Mas vl pelo tok.

Tudo que postei aqui eu testei na minha maquina, e está funcionando certinho as cores nas linhas.

A questao deve ser o next mesmo

[crucifier]

deu erro na linha 11 agora...

a linha 11 é onde está:

rs.Open sqlstmt, DSNtemp, 3, 3

[JCMPJ]

Então posta a mensagem de erro.

Que fica mais facil.

Ele deve estar reclamando está linha:

DSNtemp.Open

Ainda tem mais:

Tem que criar o objeto Connection

Set DSNtemp = server.createobject("adodb.connection")

[crucifier]

deu certo o codigo lá..fiz não sei que gambiarra lá q deu certo

e o verdadeiro problema sabem onde era?

inclusao.asp

a pagina de inclusao não tava funfanu direito eu achu..ele acusava q tinha incluido no bd mas não tinha..o bd tava vazio...achu q é por isso que tava dando tantos erros..mas daih eu consigui reverter a situação..valeu pela força gente..