Ciao, ho trovato lo script, l'ho aggiunto, e con il response write
mi restituisce i nomi che ho inserito nel file di testo anche se ci sono prima dei caratteri che non c'entrano niente, ma adesso non so come andare avanti ho fatto un po' di prove, per settare il risultato del loop e metterlo nell' array , ma mi da sempre errori, secondo te in base a quest'ultima parte come mi devo comportare per renderlo funzionante?
Grazie mille

<%
filePath = Server.Mappath("prova.txt")
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
if objFileSystem.FileExists(filePath ) then
Set objFile = objFileSystem.OpenTextFile(filePath, 1)
'leggo file riga per riga fino alla fine del file
Do While Not objFile.AtEndofStream
Response.Write objFile.ReadLine & "
"
Loop
objFile.Close
Set objFile=Nothing
end if
Set objFileSystem=Nothing
%>
<%

dim a,b
Function badWords(sText)
words = Array("filePath")
stringa = sText
For k = LBound(words) To UBound(words)
stringa = Replace(stringa, words(k), String(Len(words(k)),"*"))
Next
badWords = stringa
End Function
a=badWords(request.form("nome"))
b=badWords(request.form("messaggi"))

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("/mdb-database/messaggi.mdb")&";"

Conn.Open strConn

sql = "SELECT * FROM Messaggix"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

'scrittura nuovo record

rs.addnew
rs(1) = a
rs(2) = b
rs.update

' Chiusura del database
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing

response.write "inserimento avvenuto"
%>
<%
dim stringa, arr_str, i, record
stringa = request("messaggi")
arr_str = split(stringa, " ")
i = 0
for i = 0 to UBound(arr_str)
if Len(arr_str(i)) > 10 then
record = record & Left(arr_str(i), 10) & " "
else
record = record & arr_str(i) & " "
end if
next
%>