Ho eseguito delle correzioni a causa di errori restituitimi da IIS:

codice:
<%
Function dividiStringa(sStr, iInizio, iProg)

	Dim sTesto 
	Dim lLenght
	Dim sFinal 
	
	If Len(sStr) > 50 Then
	   If Mid(sStr, 51, 1) = " " Then
		  sFinal = Mid(sStr, 1, 50)
		  sTesto = sFinal & Mid(sNota, 52, Len(sStr) - 51)
		  iProg = iProg + 1
		  dividiStringa sTesto, 1, iProg
	   Else
		  lLenght = InStrR(Mid(sStr, 1, 50), " ")
		  If Not lLenght = 0 Then
			 sFinal = sFinal & Mid(sStr, 1, lLenght)
			 sTesto = Mid(sStr, lLenght + 1, Len(sStr) - lLenght)
		  Else
			 sFinal = sFinal & Mid(sStr, 1, 50)
			 sTesto = Mid(sNota, 50 + 1, Len(sStr) - 50)
		  End If
		  iProg = iProg + 1
		  dividiStringa sTesto, 1, iProg
	   End If
	ElseIf Len(sStr) <= 50 And Len(sStr) <> 0 Then
		 sFinal = sFinal & sStr
	End If
	
	response.write(sFinal)

End Function
%>
Però adesso mi dice:

codice:
Tipo non corrispondente: 'InStrR'
/tag.asp, line 51
La linea 51 è la seguente:

codice:
lLenght = InStrR(Mid(sStr, 1, 50), " ")
[EDIT]: ho sostituito con InstrRev tutto ok, a parte il fatto che prima di invocare la funzione eseguo una serie di replace sulle emoticons che possono essere digitate e a seconda il punto , mi spezza la stringa corrispondente alla vosualizzazione dell'immagine, stampandomi l'html della stessa, come evito ciò?