ritaglio stringa

[Zorba]

devo andare a lavorare, ke sono già in ritardo.

Torno stasera, grazie comunque x il momento...

[vaargard]

mi sa che l'errore è qui

ridotto = left(rs2("ridotto"),100) '*


rs2("ridotto") è pieno, è valorizzato ed inpiù perchè dare a ridotto il valore distrMessaggio per poi cancellarlo con l'istruzione incriminata?

[Zorba]

Risolto!!!

dim RidMess
dim toglie

	If len(strMessage) > 200 Then
		RidMess = left(strMessage, 200)
		toglie = InStrRev(RidMess, " ")
		RidMess = left(RidMess, toglie) & "[...]"
	else
		RidMess = strMessage
	End If	
RidMess = replace(RidMess, "'", "\'")

Dim FileObject

Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Outstream=FileObject.CreateTextFile(Server.MapPath("../miofile.js"),true,0)
Outstream.Write ("document.write('")
Outstream.Write RidMess
Outstream.Write ("');")
Outstream.Close
Set Outstream=Nothing
Set FileObject=Nothing

Allora:
La sintassi x il ritaglio l'avevo copiata direttamente da questo thread.
Poi mi è venuto in mente di andarmi a guardare come l'avrei dovuto scrivere...

Testato, pare funzicare bene.

Quel ke fa: Quando qualcuno firma il guestbook, oltre ad aggiornare il database ne copia il testo (x lo meno i primi 200 caratteri) in un file .js, che poi serve a fare 1 inclusione in una homepage .html...

Una ca**ta, direte voi... Non x me che ho messo mano ad ASP l'altro ieri x la prima volta...

Dio, se JavaScript mi ricordava i Lego, ASP mi fa venire in mente la prima volta che ho avuto tra le mani la scavatrice dei Lego Technics...