Salve ragazzi, ho creato questo scriptino per estrapolare una frase da un intero testo. L'ho creto per integrarlo in un sistema di news, il punto é che non mi da errori, ma bensì non mi restituisce nulla. Ho provato ad inserire del trash code, e ne risulta che la variabile strX arriva vuota destinazione, e non capisco perché... date un occhio a questa parte di codice e aiutatemi se potete, grazie mille (strCommento ha un contenuto, non vi posto il codice che c'é prima perché é troppo lungo, quello so cmq che é giusto):

Dim strWhat, intNum, intZenit, strX

strWhat = False
intNum = 150

Do While strWhat = True

intZenit = intNum - 1

strX = Left(strCommento, intNum)
If Mid(strX, intZenit, intNum) = "." Then
strWhat = True
End If
intNum = intNum + 1
Loop
%>
<tr>
<td bgcolor="#FFFFFF"><font size="2" face="Arial Unicode MS"><%Response.Write Replace(strX, VbCrLf, "<BR>")%></font></td>
</tr>
</table>

---

Modificato da Sh4nK il 25 settembre 2004 02.47 -