dividere i due testo

[puffetto]

vorrei dividere in due un testo ricavato da un db per poter inserire nel mezzo un banner mi potete aiutare a realizzare una cosa del genere senza troncare le parole?

ho provato così ma mi tronca le parole:


<%
tuaStringa="ciao vecchio amico come va bene vecchia amica"
CT = len(tuaStringa)
div=cInt(CT/2)
rest=cInt(CT-div)
parte_a=Left(tuaStringa,div)
parte_b=right(tuaStringa,rest)
%>

<%=parte_a%>


BANNER


<%=parte_b%>

[optime]

fa' un esempio di cio' che vuoi ottenere

[puffetto]

es:
ciao vecchio amico come

BANNER

va vecchia amica

[optime]

e quale sarebbe il criterio? perche' spezzi proprio li'?

[puffetto]

il criterio dovrebbe essere il seguente:
esempio:
lungh=totale delle parole contenute nel testo
dividere per 2 lungh

50% testo

banner

50% testo

spero di essere stato+ chiaro

[longline]

- Trovi la lunghezza in caratteri del testo da visualizzare
- Dividi in due la lunghezza
- Visualizzi la prima metà del testo
- Partendo dalla posizione "metà più uno" del testo, trovi la posizione del primo spazio con la funzione InStr
- Visualizzi la parte del testo che va dalla posizione "metà più uno" fino alla posizione dello spazio trovato
- Visualizzi il banner
- Visualizzi la parte di testo dalla posizione dello spazio trovato fino alla fine

[puffetto]

mi potresti fare un esempio concreto
purtroppo è li che mi sono intoppato...

- Partendo dalla posizione "metà più uno" del testo, trovi la posizione del primo spazio con la funzione InStr
- Visualizzi la parte del testo che va dalla posizione "metà più uno" fino alla posizione dello spazio trovato
- Visualizzi il banner
- Visualizzi la parte di testo dalla posizione dello spazio trovato fino alla fine

[longline]

<%
tuaStringa="ciao vecchio amico come va bene vecchia amica"
CT = len(tuaStringa)
div=cInt(CT/2)
div=InStr(div," ",tuaStringa)
rest=cInt(CT-div)
parte_a=Left(tuaStringa,div)
parte_b=right(tuaStringa,rest)
%>

[puffetto]

ho provato

<%
tuaStringa="ciao vecchio amico come va bene vecchia amica"
CT = len(tuaStringa)
div=cInt(CT/2)
div=InStr(div," ",tuaStringa)
rest=cInt(CT-div)
parte_a=Left(tuaStringa,div)
parte_b=right(tuaStringa,rest)
%>


<%=parte_a%>


BANNER


<%=parte_b%>

ma non divide il testo

non restituisce il 50% (parte_a)
ed invece restituisce l'intera frase in (parte_b)

[puffetto]

risolto
il problema era qui:

div=InStr(div, tuaStringa, " ")

grazie 1000