problema tronca stringa

[piccolobill]

questa è la funzione (presa da google :-))

function TagliaStringa(stringa, max_char)
    if len(stringa)>max_char then
        stringa_tagliata=Mid(stringa, 1, max_char)
        last_space=InStrRev(stringa_tagliata," ")
        stringa_ok=Mid(stringa_tagliata, 1, last_space)
        TagliaStringa = stringa_ok&"..."
    else
        TagliaStringa = stringa
    end if
end function 

Mi da questo errore

Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'InStrRev'

/read.asp, line 36

Come mai?

[optime]

starai elaborando una stringa null...

[piccolobill]

no...la stringa c'è.
sto impazzendo :-(

[optime]

1. prova a fartela stampare, così, tanto per essere ultra-arci-stra-sicuri
2. quello della funzione è l'unico instrrev di tutto lo script?

[piccolobill]

ora non mi da errore ma mi da vuoto...
ecco
domanda0=Salve ho costruito un'edificio frontalmente ad un'altro già esistente, adesso ad edificio completato mi sono accorto che la distanza tra il mio fabbricato e quello già esistente non è 10.00 mt come da regolamento ma è 9.85 mt. Volevo allora chiedere se esiste una tolleranza sulla distanza tra fabbricati o devo demolire l'intera parete?

troncato
domanda0=

[optime]

"domanda0=" fa parte della stringa? come richiami la funzione? come stampi il risultato?

[piccolobill]

domada0 lo scrivo io.
la funziona la richiamo così
TagliaStringa(objRs("testo"),40)

ciao e grazie

[optime]

e come la stampi?

[piccolobill]

response.write "&domanda" & i & "=" & TagliaStringa(objRs("testo"),40)

[optime]

prova con

piccolastringa=TagliaStringa((objRs("testo")&""),4 0)
response.write "&domanda" & i & "=" & piccolastringa