problema con replace(testo, vbcrlf, "<br>")

[nikselva]

qualcuno sa come aiutarmi a risolvere un problema???
ho fatto una pagina news dove appare del testo preso da db.
se metto "replace(testo, vbcrlf, "
")" in un RS funziona, se lo copio negli altri che sono nella pagina mi da errore, come posso risolvere???
questo è il codice della pagina:
<table width="760" height="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="248" bgcolor="#ffffff" class="testo_news2" valign="top" style="border:1px solid #000000;">
<% if not rsNews.EOF then %>
<span class="data_news"><%=(rsNEWS.Fields.Item("data").V alue)%></span></br>

<% Response.Write(rsNEWS.Fields.Item("titolo").Value) %></br>
<% dim testo
testo = rsNEWS("testo")
testo = replace(testo, vbcrlf, "
")
response.write(testo)

rsNEWS.MoveNext
end if %></td>
<td height="200" align="center" valign="top">[img]../img/layout/stemma-NEWS.jpg[/img]</td>

<td width="242" bgcolor="#ffffff" class="testo_news2" valign="top" style="border:1px solid #000000;">
<% if not rsNews.EOF then %>
<span class="data_news"><%=(rsNEWS.Fields.Item("data").V alue)%></span></br>

<% Response.Write(rsNEWS.Fields.Item("titolo").Value) %></br>
<% Response.Write(rsNEWS.Fields.Item("testo").Value)
rsNEWS.MoveNext
end if %></td>
</tr>
<tr>
<td colspan="3" valign="top"></td>
</tr>
<tr>
<td colspan="3" valign="top">
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="370" valign="top" bgcolor="#ffffff" class="testo_news2" style="border:1px solid #000000;">
<% if not rsNews.EOF then %>
<span class="data_news"><%=(rsNEWS.Fields.Item("data").V alue)%></span></br>

<% Response.Write(rsNEWS.Fields.Item("titolo").Value) %></br>
<% Response.Write(rsNEWS.Fields.Item("testo").Value)
rsNEWS.MoveNext
end if %></td>
<td width="20" valign="top"></td>
<td width="370" valign="top" bgcolor="#ffffff" class="testo_news2" style="border:1px solid #000000;">
<% if not rsNews.EOF then %>
<span class="data_news"><%=(rsNEWS.Fields.Item("data").V alue)%></span></br>

<% Response.Write(rsNEWS.Fields.Item("titolo").Value) %>
</br>
<% Response.Write(rsNEWS.Fields.Item("testo").Value)
rsNEWS.MoveNext
end if %>
</span></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="3" valign="top"></td>
</tr>
</table>

vi prego aiutatemi

[Roby140569]

Che errore ti dà?

[nikselva]

L'errore è:
Errore di compilazione di Microsoft VBScript (0x800A0411)
Nome ridefinito
/sito/news/news.asp, line 128, column 4
dim testo

il pezzo di codice che è coinvolto nell'esecuzione delle news che da errore è:

<% if not rsNews.EOF then %>
<span class="data_news"><%=(rsNEWS.Fields.Item("data").V alue)%></span></br>

<% Response.Write(rsNEWS.Fields.Item("titolo").Value) %></br>
<% dim testo
testo = rsNEWS("testo")
testo = replace(testo, vbcrlf, "
")
response.write(testo)

rsNEWS.MoveNext
end if %></td>
<td height="200" align="center" valign="top">[img]../img/layout/stemma-NEWS.jpg[/img]</td>

<td width="242" bgcolor="#ffffff" class="testo_news2" valign="top" style="border:1px solid #000000;">
<% if not rsNews.EOF then %>
<span class="data_news"><%=(rsNEWS.Fields.Item("data").V alue)%></span></br>

<% Response.Write(rsNEWS.Fields.Item("titolo").Value) %></br>
<% dim testo
testo = rsNEWS("testo")
testo = replace(testo, vbcrlf, "
")
response.write(testo)
rsNEWS.MoveNext

[Alethesnake]

Hai dimensionato due volte la variabile testo

[nikselva]

quindi come devo fare???

[zoom]

dai un nome diverso alla seconda variabile testo...
oppure togli il dim testo alla seconda assegnazione...

[nikselva]

ZOOM mi hai risolto la vita!!!
grazie