logText = "Ny text" Set fso = CreateObject("Scripting.FileSystemObject") Set a = fso.OpenTextFile("c:\fil.txt", 8, TRUE) a.Write(logtext) a.Close Set a = Nothing Set fso = Nothing
'**************************** Function appendToFile(strFileName, logtext) Dim whichfile, fso, a
whichfile = Server.MapPath(strFileName) Set fso = CreateObject("Scripting.FileSystemObject") Set a = fso.OpenTextFile(whichfile, 8, TRUE) a.Write(logtext) a.Close Set a = Nothing Set fso = Nothing End Function
det går i kage prøver med database som forslået af burning ice
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.