Replace

fazeredo2002 · Agosto 3, 2005

na exibicao

seria tipo assim

você seleciona as mensagens e imprimi elas dentro de um laço de repeticao

WHILE NOT RS.EOF

response.write responde & "<br>"

RS.MOVENEXT

WEND

<{POST_SNAPBACK}>

Pessoal, ainda estou com o problema!

Estou usando o dream pra gerar os códigos (talvez isso seja o maior problema)...

Coloquei um campo chamado "User" para na hora de postar o usuário escolher um boneco.

Somente esse campo eu transformei em variável:

Então eu usei o replace (PELO AMOR DE DEUS, ME DIGAM SE ESTÁ CORRETO)

boneco = rs("campo")

boneco = replace(boneco, "(1)", "<img src=imagens/user/1.gif>")

boneco = replace(boneco, "(2)", "<img src=imagens/user/2.gif>")

... assim por diante até boneco, "(15)"...

segue o código que exibe na tela:

<%

While ((Repeat1__numRows <> 0) AND (NOT rsMsgs.EOF))

%>

<% If Not rsMsgs.EOF Or Not rsMsgs.BOF Then %>

</font></div></td>

<%= DoDateTime((rsMsgs.Fields.Item("data").Value), 2, -1) %> <br>

<%=(rsMsgs.Fields.Item("Email").Value)%></font></td>

</tr>

<% End If ' end Not rsMsgs.EOF Or NOT rsMsgs.BOF %>

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

rsMsgs.MoveNext()

Wend

%>

explore · Agosto 3, 2005

tem um parenteses a mais ai!errado:<%=(boneco))%>certo:<%=boneco%>

fazeredo2002 · Agosto 3, 2005

tem um parenteses a mais ai!errado:<%=(boneco))%>certo:<%=boneco%>

<{POST_SNAPBACK}>

Ei explorer!Tá errado só aqui, no meu código não.Cara, na página na hora de exibir, todos os campos exibem os dados perfeitos, menos a minha variável que pega somente o primeiro registro e repete no demais. Tem alguma dica pra me ajudar? Estou 4 noites sem dormir por causa disso, tenham dó de mimolha como está: http://www.nationinformatica.com.br/mural/mural.aspgrato.

explore · Agosto 3, 2005

Cara naum vi erro ali! eu postei e escrevi os emotion e saiu um diferete do outro!!!!

fazeredo2002 · Agosto 3, 2005

Cara naum vi erro ali! eu postei e escrevi os emotion e saiu um diferete do outro!!!!

<{POST_SNAPBACK}>

Ei pessoal! Desculpa a amolação, mas é o que eu disse... na página principal (http://www.nationinformatica.com.br/mural/mural.asp) está aparecendo um bonequinho repetido (morte). Se vcs postarem novamente outro boneco, vai subistituir o boneco "morte" pelo que você colocar. Isso é o erro... testem lá e me ajudem...

Fabiano.

explore · Agosto 3, 2005

Entendi:

Tenta Assim:

ASP

[*] <%boneco = rs("campo")%>

[*]

[*]<%

[*]

[*]While ((Repeat1__numRows <> 0) AND (NOT rsMsgs.EOF))

[*]boneco = replace(boneco, "(1)", "<img src=imagens/user/1.gif>")

[*]%>

[*]

[*]<% If Not rsMsgs.EOF Or Not rsMsgs.BOF Then %>

[*]

[*]<tr bgcolor="#FFFFFF">

[*]<td width="3%"><div align="center"><font color="#336699" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=boneco%><br>

[*]</font></div></td>

[*]

[*]<td width="25%"><font color="#336699" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=(rsMsgs.Fields.Item("De").Value)%></strong><br>

[*]<%= DoDateTime((rsMsgs.Fields.Item("data").Value), 2, -1) %> <br>

[*]<%=(rsMsgs.Fields.Item("Email").Value)%></font></td>

[*]

[*]<td nowrap><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(rsMsgs.Fields.Item("Para").Value)%></font></td>

[*]<td><font color="#336699" size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="mural_resposta.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "Id=" &

[*]rsMsgs.Fields.Item("Id").Value %>"><%=(rsMsgs.Fields.Item("assunto").Value)%></a></font></td>

[*]

[*]<td height="2"><div align="center"><font color="#336699" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(rsMsgs.Fields.Item("CountOfid").Value)%></font></div></td>

[*]</tr>

[*]

[*]<%

[*]rs.MoveNext

[*]boneco = replace(boneco, "(2)", "<img src=imagens/user/2.gif>")

[*]boneco = replace(boneco, "(3)", "<img src=imagens/user/3.gif>")

[*]boneco = replace(boneco, "(4)", "<img src=imagens/user/4.gif>")

[*]'até o 15

[*]End If

[*]%>

[*]

[*]<%

[*]Repeat1__index = Repeat1__index + 1

[*]Repeat1__numRows = Repeat1__numRows - 1

[*]rsMsgs.MoveNext

[*]Wend

[*]%>

Qualquer coisa posta ai!

fazeredo2002 · Agosto 3, 2005

Não assobiou explorerTipo de erro:ADODB.Recordset (0x800A0BCD)BOF ou EOF são verdadeiros, ou o registro atual foi excluído.valeu.

explore · Agosto 3, 2005

tira o essa linha de dentro o WHILE!boneco = replace(boneco, "(1)", "<img src=imagens/user/1.gif>")

explore · Agosto 3, 2005

Acho que você terá que fazer uma verificação ai!!!!

Mário Monteiro · Agosto 3, 2005

pra evitar este erro você deve testar o recordset pra ver se ainda ha registros a serem exibidos

fazeredo2002 · Agosto 3, 2005

pra evitar este erro você deve testar o recordset pra ver se ainda ha registros a serem exibidos

<{POST_SNAPBACK}>

Beleza Galera, ainda estou com o problema, mas estou gostando da ajuda...

Fabiano.

Na hora que assobiar eu falo.

Mário, tem 3 registros a minha tabela e o rs está funcionando.

Explorer vou tirar a linha e verificar

valeu

Mário Monteiro · Agosto 3, 2005

sim o rs ta funcionando mas se você não tratar quando ele termina ou tentar usar ele fora do tratamento estes erros ocorrerão com frequencia

explore · Agosto 3, 2005

Verifica tipo assim:if not rs.eof thenend ifow você faz um While!

fazeredo2002 · Agosto 3, 2005

tira o essa linha de dentro o WHILE!boneco = replace(boneco, "(1)", "<img src=imagens/user/1.gif>")

<{POST_SNAPBACK}>

Explorer, só essa linha que está errada?Valeu Mário, vou tentar fazer isso que você disse...Essa parada tem que hoje!

Mário Monteiro · Agosto 3, 2005

tira o essa linha de dentro o WHILE!boneco = replace(boneco, "(1)", "<img src=imagens/user/1.gif>")

<{POST_SNAPBACK}>

Explorer, só essa linha que está errada?Valeu Mário, vou tentar fazer isso que você disse...Essa parada tem que hoje!
<{POST_SNAPBACK}>

OK e a proposito não vi erro nesta linha...em que linha ta acusando o erro??

explore · Agosto 3, 2005

No caso tratando o Erro pode deixar ela la mesmo!!

explore · Agosto 3, 2005

tenta la:

ASP

[*]<%boneco = rs("campo")%>

[*]<%

[*]

[*]While ((Repeat1__numRows <> 0) AND (NOT rsMsgs.EOF))

[*] if not rs.eof then

[*]boneco = replace(boneco, "(1)", "<img src=imagens/user/1.gif>")

[*]

[*]%>

[*]

[*]<% If Not rsMsgs.EOF Or Not rsMsgs.BOF Then %>

[*]

[*]<tr bgcolor="#FFFFFF">

[*]

[*]<td width="3%"><div align="center"><font color="#336699" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=boneco%><br>

[*]

[*]</font></div></td>

[*]

[*]<td width="25%"><font color="#336699" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=(rsMsgs.Fields.Item("De").Value)%></strong><br>

[*]

[*]<%= DoDateTime((rsMsgs.Fields.Item("data").Value), 2, -1) %> <br>

[*]

[*]<%=(rsMsgs.Fields.Item("Email").Value)%></font></td>

[*]

[*]<td nowrap><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(rsMsgs.Fields.Item("Para").Value)%></font></td>

[*]

[*]<td><font color="#336699" size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="mural_resposta.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "Id=" &

[*]

[*]rsMsgs.Fields.Item("Id").Value %>"><%=(rsMsgs.Fields.Item("assunto").Value)%></a></font></td>

[*]

[*]<td height="2"><div align="center"><font color="#336699" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(rsMsgs.Fields.Item("CountOfid").Value)%></font></div></td>

[*]

[*]</tr>

[*]

[*]<%

[*]

[*]rs.MoveNext

[*]

[*]boneco = replace(boneco, "(2)", "<img src=imagens/user/2.gif>")

[*]

[*]boneco = replace(boneco, "(3)", "<img src=imagens/user/3.gif>")

[*]

[*]boneco = replace(boneco, "(4)", "<img src=imagens/user/4.gif>")

[*]

[*]'até o 15

[*]

[*]End If

[*] end if

[*]%>

[*]

[*]<%

[*]

[*]Repeat1__index = Repeat1__index + 1

[*]

[*]Repeat1__numRows = Repeat1__numRows - 1

[*]

[*]rsMsgs.MoveNext

[*]

[*]Wend

[*]

[*]%>

fazeredo2002 · Agosto 3, 2005

tira o essa linha de dentro o WHILE!

boneco = replace(boneco, "(1)", "<img src=imagens/user/1.gif>")

<{POST_SNAPBACK}>

Explorer, só essa linha que está errada?

Valeu Mário, vou tentar fazer isso que você disse...

Essa parada tem que hoje!

<{POST_SNAPBACK}>

OK e a proposito não vi erro nesta linha...

em que linha ta acusando o erro??

<{POST_SNAPBACK}>

Desculpe minha ousadia, mas posso passar um código limpo pra vcs me darem a dica? Já pensei em desistir dessa parada, mas eu sou brasileiro e não desisto nunca! Vai hoje essa parada (estou 5 noites sem dormir, não consigo nem pensar mais)...

ASP

[*]

[*]<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

[*]

[*]<%

[*]Dim rsMsgs

[*]Dim rsMsgs_numRows

[*]

[*]Set rsMsgs = Server.CreateObject("ADODB.Recordset")

[*]rsMsgs.ActiveConnection = MM_Mural_STRING

[*]rsMsgs.Source = "SELECT * FROM Mural"

[*]rsMsgs.CursorType = 0

[*]rsMsgs.CursorLocation = 2

[*]rsMsgs.LockType = 1

[*]rsMsgs.Open()

[*]

[*]rsMsgs_numRows = 0

[*]%>

[*]<html>

[*]<head>

[*]<title>Untitled Document</title>

[*]<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

[*]</head>

[*]

[*]<body>

[*]<%=(rsMsgs.Fields.Item("Usuario").Value)%>

[*]</body>

[*]</html>

[*]<%

[*]rsMsgs.Close()

[*]Set rsMsgs = Nothing

[*]%>

[*]

No código acima, preciso colocar a seguinte relação de replaces:

boneco = rsMsgs("Usuario")

boneco = replace(boneco, "(1)", "<img src=imagens/user/1.gif>)"

boneco = replace(boneco, "(2)", "<img src=imagens/user/2.gif>)"

... até o 15.

depois exibir o boneco no lugar de: <%=(rsMsgs.Fields.Item("Usuario").Value)%>

Se vcs fossem mulher daria um beijo na boca...

explore · Agosto 3, 2005

você mudo o RS??/Antes:boneco = rs("campo")Depois:boneco = rsMsgs("Usuario")

Mário Monteiro · Agosto 3, 2005

agora ficou bonitotroca<%=(rsMsgs.Fields.Item("Usuario").Value)%> por<%WHILE NOT rsMsgs.EOFboneco = rsMsgs("Usuario")boneco = replace(boneco, "(1)", "<img src=imagens/user/1.gif>)"boneco = replace(boneco, "(2)", "<img src=imagens/user/2.gif>)"response.write boneco & "<BR>"rsMsgs.MOVENEXTWEND%>

Arquivado

Replace

Recommended Posts

fazeredo2002 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

explore 3

Compartilhar este post

Link para o post

Compartilhar em outros sites

fazeredo2002 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

explore 3

Compartilhar este post

Link para o post

Compartilhar em outros sites

fazeredo2002 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

explore 3

Compartilhar este post

Link para o post

Compartilhar em outros sites

fazeredo2002 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

explore 3

Compartilhar este post

Link para o post

Compartilhar em outros sites

explore 3

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

fazeredo2002 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

explore 3

Compartilhar este post

Link para o post

Compartilhar em outros sites

fazeredo2002 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

explore 3

Compartilhar este post

Link para o post

Compartilhar em outros sites

explore 3

Compartilhar este post

Link para o post

Compartilhar em outros sites

fazeredo2002 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

explore 3

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179