VBScript --> ASP Classico

[Dr AsP]

Ciao a tutti,

devo convertire da VBScript ad ASP Classico il seguente script:

Dim szMessaggio As String = TextBox1.Text '<== contenuto della Tua stringa dal db
        Dim szMioTest As String = TextBox2.Text '<== questo è il testo che devo inserire
        Dim szRisultato As String '<== questo conterrà il risultato finale

        Dim iPosition As Integer = szMessaggio.IndexOf("</p>") + 4 '<== posizione in cui inserire il mio testo

        szRisultato = szMessaggio.Substring(0, iPosition) '<== copio tutto fino alla fine del tag
        szRisultato = szRisultato + szMioTest + szMessaggio.Substring(iPosition, szMessaggio.Length - iPosition) '<== inserisco la stringa che mi interessa
        Label1.Text = szRisultato '<== mostra del risultato

mi è stato consigliato così:

<%
Dim szMessaggio, szMioTest, szRisultato, iPosition
szMessaggio= "Difficile capire 

un Paese dove</p>

 la stessa cosa è chiamata</p> al Nord uccello e al Sud pesce."
szMioTest = "testo da inserire"
        iPosition = inStr(szMessaggio,"</p>") + 4
        szRisultato = mid(szMessaggio, 1, iPosition)  
        szRisultato = szRisultato & szMioTest & mid(szMessaggio, iPosition, (len(szMessaggio - iPosition)))
        ' nella pagina, nel punto in cui deve apparire il contenuto di szRisultato metti:        
        response.write szRisultato
%>

...ma non funge.

Sapete dirmi dove sbaglio?

[sms]

ehm ehm

[Dr AsP]

opssss......

[pietro09]

originale in vb.net

        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

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:

[Dr AsP]

Sei un grande Pietro!!

Funziona benissimo!!