<!-- Collection of code snippets by Arne Vajhøj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<%
Dim fso
Dim tf
Dim line
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(Server.MapPath("noget.txt"), 8, True)
line = Request("name") & "," & Request("email") & "," & Request("phone") & "," & Request("msg") & ";"
tf.WriteLine line
tf.Close
%>