Salve a tutti:
é possibile fare un'anteprima di testo da un file include???
ho trovato un codice che fa un anteprima di testo ma quando, al posto del testo metto un include, mi da un errore.
Il codice che ho trovato è questo:
codice:
<%    'Funzione Anteprima  
'------------------  
'Parametri:  
'sText   : Testo su cui effettuare l'Anteprima. 
 'nParole : Numero parole da visualizzare.  
'------------------    Function Anteprima(sText, nParole)      
Dim nTemp, nVolte      
'Eliminiamo gli eventuiali caratteri di CR ed LF    
sText = Replace(sText, vbCrLf, "")      
'Cerca la fine della prima parola    nTemp = InStr(sText, " ")      
If nTemp <> 0 Then         
nVolte = 1        
'Finchè non abbiamo finito le parole o abbiamo       
'raggiunto quelle massime        
While nTemp <> 0 And nVolte < nParole            
'Incrementiamo il numero delle parole trovate           
nVolte = nVolte + 1           
 'Cerchiamo la fine della parola successiva           
nTemp = InStr(nTemp + 1, sText, " ")       
Wend    
End If      
'Se abbiamo trovato qualche parola    
If nVolte > 0 Then            
'Se La variabile nTemp > 0 allora significa che       
'abbiamo trovato le n parole che ci serivivano       
If nTemp > 0 Then            
'Le stampiamo insieme ai puntini           
Anteprima = Mid(sText, 1, nTemp - 1) & "..."       
Else             
'Altrimenti abbiamo trovato meno delle n          
'parole. Stampiamo la frase intera assieme ai puntini           
Anteprima = sText & "..."       
End If      
Else        
 ' una sola parola       
If Len(sText) > 0 Then           
Anteprima = sText & "..."       
Else           
'La frase passata ha lunghezza 0            
Anteprima = ""       
End If    
End If    
End Function      
strText = "questo test permette di verificare che " &_            
"le uniche parole ad essere stampante " &_            
" saranno queste e nient'altro. iscriviti " &_            
" anche tu ad unoscript@lgiorno e potrai " &_            
" ricevere ogni giorno uno script nuovo!"    
' stampo 10 parole  Response.write anteprima(strText, 10)    
%>
é possibile sostituire il testo con un include???????
aiutooooooooooooooooooooo