testato installando al volo un cuteftp e buttandolo sul sito.
mi dice errore interno del server
codice:
dim ridotto
ridotto = strMessage
ridotto = left(rs2("ridotto"),100) '*
sotrattore = instrrev(ridotto," ") - 1 '*
ridotto = left(ridotto,sotrattore) & "..." '*
ridotto = replace(ridotto, "'", "\'") '*
Dim FileObject
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Outstream=FileObject.CreateTextFile(Server.MapPath("../gbook.js"),true,0)
Outstream.Write ("document.write('")
Outstream.Write ridotto
Outstream.Write ("');")
Outstream.Close
Set Outstream=Nothing
Set FileObject=Nothing
Se tolgo le 4 righe con l'asterisco funzica...
Qualcuno trova l'inghippo?