nel mio guestbook le virgole scompaiono!

[simona.rei78]

Ho un problema...questo è write.asp di un piccolo guestbook che ho creato. L'unica cosa è che le virgole (",") vengono cancellate all'aggiornamento. Ho pensato che forse il problema si risolverebbe se mettessi un replace del carattere "," con il corrispondente ascii. Avete idea di come farlo? Grazie

<%
session("prova") = request.form("nick")
session("prova")=replace(replace(session("prova"),">",""),"<","")
MyFile = Server.MapPath("/mdb-database")&"/guest.txt"
Set MyFileObj=Server.CreateObject("Scripting.FileSystemObject")
Set MyOutStream=MyFileObj.OpenTextFile(MyFile, 1, TRUE)

do While not MyOutStream.atendofstream 
    arrcontenuto=arrcontenuto&","&MyOutStream.readline
loop

Set MyOutStream=MyFileObj.OpenTextFile(MyFile, 2, TRUE)

arrcontenuto=split(arrcontenuto,",")
Nrighe=Ubound(arrcontenuto)
if Nrighe > 5 then
  for i = Ubound(arrcontenuto)-5 to Ubound(arrcontenuto)
    MyOutStream.WriteLine(arrcontenuto(i))
  next
else
  for each Contenuto in arrcontenuto
    MyOutStream.WriteLine(Contenuto)
  next
end if
  New_line = Request.Form("new_line")
  New_line = Server.HTMLEncode(New_line)
  New_line=replace(New_line,"<","")
  New_line=replace(New_line,">","")

  'Adds the time and date it was posted
 New_line = "<FONT COLOR='#696969'>" & session("prova") & "--" & NOW & "</FONT>
" & New_line & "
"
MyOutStream.WriteLine(New_line)
MyOutStream.Close%>

[willybit]

Ciao simona.rei78,

tu metti tutte le righe del file in un'unica stringa usando la virgola per dividerle... e poi splitti sulla virgola... però così splitti tutte le virgole. usa un carattere diverso tipo $$

<%
session("prova") = request.form("nick")
session("prova")=replace(replace(session("prova"),">",""),"<","")
MyFile = Server.MapPath("/mdb-database")&"/guest.txt"
Set MyFileObj=Server.CreateObject("Scripting.FileSystemObject")
Set MyOutStream=MyFileObj.OpenTextFile(MyFile, 1, TRUE)

do While not MyOutStream.atendofstream 
    arrcontenuto=arrcontenuto&"$$"&MyOutStream.readline
loop

Set MyOutStream=MyFileObj.OpenTextFile(MyFile, 2, TRUE)

arrcontenuto=split(arrcontenuto,"$$")
...

[simona.rei78]

grazie mille! Sei stato un amore!!