Problema su stringa

[Romyna]

Ciao a tutti,
devo visualizzare l'anteprima di ogno news, però non riesco a farlo come voglio io ...
Praticamente vorrei estrarre solo i primi 70 caratteri ma alla prima occorrenza (es. lo spazio) e infine aggiungere 3 punti di sospensione finali, ora sò che un argomento trattato più volte ma non riesco proprio... mi confondono troppo left e instrrev

[barney09]

<%
stringa = RS("news")

'individua il primo carattere spazio dopo il 70
caratterespazio = INSTR(stringa, 70, " ")

'taglia la stringa fino al carettere trovato prima, e aggiunge 3 puntini
Stringa = MID(stringa, 1, caratterespazio) & "..."
%>

[Romyna]

Originariamente inviato da barney09
<%
stringa = RS("news")

'individua il primo carattere spazio dopo il 70
caratterespazio = INSTR(stringa, 70, " ")

'taglia la stringa fino al carettere trovato prima, e aggiunge 3 puntini
Stringa = MID(stringa, 1, caratterespazio) & "..."
%>

ricevo questo errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: '[string: "Questo è il titolo d"]'

Sulla riga:
caratterespazio = Instr(stringa, 70, " ")

:master:

[optime]

perché la INSTR va scritta così

caratterespazio = INSTR(70, stringa, " ")

pls cfr http://msdn.microsoft.com/en-us/library/wybb344c(VS.85).aspx

[Romyna]

Originariamente inviato da optime
perché la INSTR va scritta così

caratterespazio = INSTR(70, stringa, " ")

pls cfr http://msdn.microsoft.com/en-us/library/wybb344c(VS.85).aspx

ora funziona in parte però su titoli corti (es. Titolo 3) mi visualizza solo i 3 puntini (anche se metto meno di 70 caratteri) :master:

[optime]

allora esegui quel blocco di istruzioni SOLO se la stringa è più lunga di 70 caratteri

[Romyna]

giusto!

grazie per l'aiuto

[barney09]

si errore mio.

la funzione INSTR(il carattere di inzio, la stringa in cui cercare, la stringa da cercare)