Varför fungerar inte nedan kod?
Jag ligger på ett webbhotell som tidigare använde sig av FSO men ändrade igår till ISSecureFile.FileSystemObject.
Enligt manualen ska jag bara ändra Scripting.FileSystemObject mot ISSecureFile.FileSystemObject och det är gjort.
Det fungerar ändå inte!? Tacksam för svar!
Ändrade också .Close till .CloseFile
Manualen finns på: http://www.baygan.com/Issecurefile.asp
<%
IF Request.Cookies("Add") = "" Then
Set Conn = CreateObject("ISSecureFile.FileSystemObject")
Set RecSet = Conn.OpenTextFile(Server.Mappath("count.txt"))
Counter = RecSet.Readline
Counter = Counter + 1
RecSet.Close
Set RecSet = Conn.CreateTextFile(Server.Mappath("count.txt"), true)
RecSet.WriteLine(Counter)
RecSet.CloseFile
Response.Cookies("Add") = "Count"
Response.Cookies("Add").Expires = Date + 1000
End If
%>
<%
Set Conn = CreateObject("ISSecureFile.FileSystemObject")
Set RecSet = Conn.OpenTextFile(server.mappath("count.txt"))
Counter = RecSet.Readline
Counter = Counter + 0
RecSet.CloseFile
Set RecSet = Conn.CreateTextFile(Server.Mappath("count.txt"), true)
RecSet.WriteLine(Counter)
RecSet.CloseFile
%>