Dividir uma string em várias

[daniloprates 0]

Galera, procurei muito, mas não achei nada que servisse...Seguinte, em um sistema de fotos, queria colocar a descrição das fotos, mas gostaria de colocar tudo num campo só, sem a necessidade d criar registros pra cada foto.Existe a possibilidade de divir um string dessa forma? Ex:DESCRICAO = "FOTO01 | No no no o ono n | FOTO02 | NONONONONO etc..."Aí recuperar desta forma:DESCRICAO01 = "No no no o ono n"DESCRICAO02 = "NONONONONO"

[arr 0]

Fiz de cabeça rapidinho, então pode conter erros:

 

'DividindoDescri=(Split("FOTO01 | No no no o ono n | FOTO02 | NONONONONO etc..."),"|")'RecuperandoFor Each Item in DescriResponse.Write Descri(Item) & "<br>"Next

[daniloprates 0]

Cara, perfeito!!!!!!!!!!!!!!! Só tá dando um erro no For Each Item in STR.

TEXTO = "AQUI|ALI|ACOLA"STR = Split(TEXTO,"|")For Each Item in STRResponse.Write STR(Item) & "<br>"Next

Tá dando esse erro:

Microsoft VBScript runtime  error '800a000d'Type mismatch: 'Item'/zstr.asp, line 8

[arr 0]

<% TEXTO = "AQUI|ALI|ACOLA"STR = Split(TEXTO,"|")For i=0 to Ubound(STR)Response.Write STR(i) & "<br>"Next%>

[daniloprates 0]

Perfect again! Muito obrigado.