originale in vb.net
codice:
        Dim szMessaggio$ = "

Arma virumque cano, Troiae qui primus ab oris</p>

Italiam fato profugus Laviniaque venit</p>"
        Dim szMioTest$ = "TESTO DA INSERIRE" 'Me.TextBox1.Text
        Dim szRisultato$ = ""
        Dim iPosition% = szMessaggio.IndexOf("</p>") + 4
        szRisultato = szMessaggio.Substring(0, iPosition) & szMioTest & szMessaggio.Substring(iPosition)

        Me.Label1.Text = Server.HtmlEncode(szRisultato)
convertito in vbscript
codice:
dim szMessaggio, szMioTest, szRisultato, iPosition
szMessaggio = "

Arma virumque cano, Troiae qui primus ab oris</p>

Italiam fato profugus Laviniaque venit</p>"
szMioTest = "TESTO DA INSERIRE"
szRisultato = ""
iPosition = instr(1, szMessaggio, "</p>") + 4
szRisultato = mid(szMessaggio, 1, (iPosition - 1)) & szMioTest & mid(szMessaggio, iPosition)
response.Write server.HTMLEncode(szRisultato)
Naturalmente la traduzione non può migliorare l'originale che mi lascia un poco perplesso.
Ho utilizzato HTMLEncode solo per vedere il risultato nello schermo.

:master: