<%response.buffer=true%> <% logfilename = "d:\iislogs\ads\ad" & Year(Now) & Month(Now) & Right(Day(Now)+100,2) & ".txt" ' WriteToFile "d:\iislogs\ads\ad.txt", Request.QueryString("jump") & "," & Now() & chr(10), true WriteToFile logfilename, Request.QueryString("jump") & "," & Now() & chr(10), true function WriteToFile(FileName, Contents, Append) on error resume next if Append = true then iMode = 8 else iMode = 2 end if set oFs = server.createobject("Scripting.FileSystemObject") set oTextFile = oFs.OpenTextFile(FileName, iMode, True) oTextFile.Write Contents oTextFile.Close set oTextFile = nothing set oFS = nothing end function %> <% wheretogo=Request.QueryString("jump") response.redirect wheretogo %> <%=wheretogo%>