suddividere una stringa in più stringhe...

[Subroutine72]

Avrei bisogno di suddividere una stringa del tipo: "Insegnamento di base 1" in più stringhe:
- Insegnamento
- di
- base
- 1
per poi ricavarne le iniziali perché devo avere un campo abbreviato del tipo: "I. d. B. 1"
come posso fare?
Ho provato con:
Stringa2=Left(Stringa1, 1)
che mi ricava l'iniziale della prima parola, ma prima devo suddividere la stringa in più parole.
Grazie del vostro aiuto!

[Shagrat]

array = split(stringa," ")
stringa2=""
for i=0 to ubound(array)
  stringa2 = stringa2&"."&left(array(i),1)
next

prova con una cosa così (l'ho buttata giù al volo magari c'è qualche errore)

[Daisyland]

Non usare array come nome di variabile, perchè non va bene

stringa = "Insegnamento di base 1"
arrai = split(stringa," ")
stringa2 = left(arrai(0),1)
for i=1 to ubound(arrai)
  stringa2 = stringa2&". "&left(arrai(i),1)
next
response.write("
stringa2 = " & stringa2)

ciao

[Subroutine72]

Il problema è che devo mettere questa stringa abbreviata all'interno di un ciclo If Then Else:

fascia1=rs("fascia1")
if fascia1="Non Prenotato" then%>
<%response.write "<table height=100% width=80 bgcolor=#0079AC><tr><td align=center valign=center><font color=#000080 face=Arial size=2><input type=checkbox name=fascia1m value="&Insegnamento1&"></font></td></tr></table>"
%>
<%
else%>
<%response.write "<table height=100% width=80 bgcolor=#0079AC><tr ><td align=center valign=center><font color=#804000 face=Arial size=2><a href=infoutente.asp?Insegnamento="&replace(fascia1 ," ","_")&">"&left(fascia1,3) &". "&" </a></font></td></tr></table>"%>
<%end if%>

Cosi il codice consigliato non so come inserirlo all'inerno di response.write.
quello che ho scritto:
"&left(fascia1,3) &". "&"
funziona solo che considera soltanto la prima parola della stringa.

Non so se è chiaro il problema?
qualcuno mi può aiutare, è da sta mattina che cerco di trovare la soluzione!
Grazie.

[Shagrat]

inserisci questa all'inizio della pagina

function iniziali(stringa)
  arr = split(stringa," ")
  stringa2 = left(arr(0),1)
  for i=1 to ubound(arrai)
    stringa2 = stringa2&". "&left(arrai(i),1)
  next
  iniziali = stringa2
end function

poi al posto di:

left(fascia1,3)

metti:

iniziali(fascia1)

[Subroutine72]

... adesso non ci sto capendo più niente!
poniamo il problema in un'altro modo:
vado a leggere un stringa in un database:
Stringa1= "Insegnamento di base 1"
e la visualizzo mediante response.write:

<%response.write "&left(Stringa1, 3)&">

mi da "Ins"
se voglio vedere sempre all'interno di response.write anche le prime 3 lettere delle altre parole come posso fare?
ho provato con la funzione ma non mi funziona!
Scusate!

[Subroutine72]

...inserire il ciclo for per la lettura di tutte le sottostringhe nel response.write!

[Subroutine72]

visualizzo in modo diverso invece che con response.write (inserendo una tabella con il risultato della query)e quindi riesco a inserire il ciclo for!
comunque mi siete stati molto utili, Grazie, sensa di voi ero in crisi!