<% on error resume next set fso = createobject("scripting.filesystemobject") set act = fso.opentextfile(server.mappath("\counters\casa_nele-"& month(date()) & year(date())&".txt")) counter = clng(act.readline) counter = counter + 1 act.close Set act = fso.createtextfile(server.mappath("\counters\casa_nele-"& month(date()) & year(date())&".txt"), true) act.writeline(counter) act.Close Response.Redirect "tenerife-last-minutes-logeren-bij-belgen-tenerife.asp" %>