nogen der kan se hvad der er galt her?

den skal spytte indholdet af en form ud i en kommafil, og næstegang formen bliver brugt skal den tilføje det i kommafilen uden at slette det der er der i forvejen.

<% Response.buffer = True %>
<%

\'filEfternavn = \".kom\"

\'Find et filnavn
Set objFSO = Server.CreateObject(\"Scripting.FileSystemObject\")
Set objTextStream = objFSO.OpenTextFile(Server.MapPath(\"./statistik.txt\"))
\'Skriver til text-filen linie for linie
\'If Request.Form(\"gender\") <> \"\" OR Request.Form(\"alder\") <> \"\" OR Request.Form(\"postnr\") <> \"\" Then
\'    for i = 1 to 5
        outStr = Request.Form(\"gender\") & \",\"
        outStr = outStr & Request.Form(\"alder\") &  \",\"
        outStr = outStr & Request.Form(\"postnr\")
       
      \' If outStr <> \",,,,,,,,\" Then
            objTextStream.WriteLine outStr
      \'  End if

\'End if

objTextStream.Close
Set objTextStream = Nothing
Set objSFO = Nothing 

Response.Cookies(\"stats\")(\"gender\") = Request.Form(\"gender\")
Response.Cookies(\"stats\")(\"age\") = Request.Form(\"alder\")
Response.Cookies(\"stats\")(\"areacode\") = Request.Form(\"postnr\")
Response.Cookies(\"stats\")(\"crunch\") = Request.Form(\"crunch\")
Response.Cookies(\"stem\").expires = Now() + 700
gender = Request.Form(\"gender\")
age = Request.Form(\"alder\")
areacode = Request.Form(\"postnr\")

%>

<html><head><title>Brugerundersøgelse</title><link rel=\'stylesheet\' href=\'css/stats.css\'>
</head>
<body background=\"regnskove.gif\" topmargin=\"0\" leftmargin=\"0\" class=\"text\" TEXT=\"#000000\" LINK=\"#000000\" VLINK=\"#000000\" ALINK=\"#000000\">
<center>
<table cellpadding=\'0\' cellspacing=\'0\' border=\'0\' class=\'text\'>
<tr>
<td class=\'text\'>
<b>
<br>
Tak :)
<br><br>
Her er dine svar !
</b>
<br><br>
Køn:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<b><%=gender %></b>
<br><br>
Alder:&nbsp;&nbsp;&nbsp;&nbsp;<b><%=age %></b>
<br><br>
Postnr:&nbsp;&nbsp;<b><%=areacode %></b>

</td>
</tr>
</table>
</center>
</body>
</html> 
her er koden:

<% Response.buffer = True %>
<%

\'filEfternavn = \".kom\"

\'Find et filnavn
Set objFSO = Server.CreateObject(\"Scripting.FileSystemObject\")
Set objTextStream = objFSO.OpenTextFile(Server.MapPath(\"./statistik.txt\"))
\'Skriver til text-filen linie for linie
\'If Request.Form(\"gender\") <> \"\" OR Request.Form(\"alder\") <> \"\" OR Request.Form(\"postnr\") <> \"\" Then
\'    for i = 1 to 5
        outStr = Request.Form(\"gender\") & \",\"
        outStr = outStr & Request.Form(\"alder\") &  \",\"
        outStr = outStr & Request.Form(\"postnr\")
       
      \' If outStr <> \",,,,,,,,\" Then
            objTextStream.WriteLine outStr
      \'  End if

\'End if

objTextStream.Close
Set objTextStream = Nothing
Set objSFO = Nothing 

Response.Cookies(\"stats\")(\"gender\") = Request.Form(\"gender\")
Response.Cookies(\"stats\")(\"age\") = Request.Form(\"alder\")
Response.Cookies(\"stats\")(\"areacode\") = Request.Form(\"postnr\")
Response.Cookies(\"stats\")(\"crunch\") = Request.Form(\"crunch\")
Response.Cookies(\"stem\").expires = Now() + 700
gender = Request.Form(\"gender\")
age = Request.Form(\"alder\")
areacode = Request.Form(\"postnr\")

%>

<html><head><title>Brugerundersøgelse</title><link rel=\'stylesheet\' href=\'css/stats.css\'>
</head>
<body background=\"regnskove.gif\" topmargin=\"0\" leftmargin=\"0\" class=\"text\" TEXT=\"#000000\" LINK=\"#000000\" VLINK=\"#000000\" ALINK=\"#000000\">
<center>
<table cellpadding=\'0\' cellspacing=\'0\' border=\'0\' class=\'text\'>
<tr>
<td class=\'text\'>
<b>
<br>
Tak :)
<br><br>
Her er dine svar !
</b>
<br><br>
Køn:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<b><%=gender %></b>
<br><br>
Alder:&nbsp;&nbsp;&nbsp;&nbsp;<b><%=age %></b>
<br><br>
Postnr:&nbsp;&nbsp;<b><%=areacode %></b>

</td>
</tr>
</table>
</center>
</body>
</html>