FileSystem går amok
filename = Date() & ".txt"Set FSa = Server.CreateObject("Scripting.FileSystemObject")
If (FSa.FileExists(server.mappath(filename)))=true Then
Set OTF1 = FSa.OpenTextFile(server.mappath(filename), 8, True)
OTF1.WriteLine("<tr><td bgcolor=""#FFFFFF"">" & Session("Medarbejder") & "</td><td bgcolor=""#FFFFFF"">" & Request.form("PC") & "</td><td bgcolor=""#FFFFFF"">" & Request.form("Tid") & "</td><td bgcolor=""#FFFFFF"">" & Request.form("Navn") & "</td></tr>")
Response.Redirect("?")
OTF1.close
Else
Set OTF2 = FSa.CreateTextFile(server.mappath(filename), 8, True)
OTF2.WriteLine("<tr><td bgcolor=""#FFFFFF"">" & Session("Medarbejder") & "</td><td bgcolor=""#FFFFFF"">" & Request.form("PC") & "</td><td bgcolor=""#FFFFFF"">" & Request.form("Tid") & "</td><td bgcolor=""#FFFFFF"">" & Request.form("Navn") & "</td></tr>")
Response.Redirect("?")
OTF2.close
End If
Hvad er der galt der? Den fatter det ikke rigtigt.
Den laver det først hvis jeg opretter det 4 gange, og så skriver den dette i TXT filen :
<tr><td bgcolor="#FFFFFF">Calle</td><td bgcolor="#FFFFFF">PC1</td><td bgcolor="#FFFFFF">1</td><td bgcolor="#FFFFFF">1</td></tr>
琼㹲琼⁤杢潣潬㵲⌢䙆䙆䙆㸢慃汬㱥琯㹤琼⁤杢潣潬㵲⌢䙆䙆䙆㸢䍐㰱琯㹤琼⁤杢潣潬㵲⌢䙆䙆䙆㸢㰲琯㹤琼⁤杢潣潬㵲⌢䙆䙆䙆㸢㰲琯㹤⼼牴ാ㰊牴㰾摴戠捧汯牯∽䘣䙆䙆≆䌾污敬⼼摴㰾摴戠捧汯牯∽䘣䙆䙆≆倾ㅃ⼼摴㰾摴戠捧汯牯∽䘣䙆䙆≆㐾⼼摴㰾摴戠捧汯牯∽䘣䙆䙆≆㐾⼼摴㰾琯㹲਍
Nogen der kan hjælpe?
