Wanderstruck
Wanderstruck is a team of professionals specializing in adventure sport activities with a view to promoting exciting, educative experiences.




  • Adventure based Corporate Outbound Training Programs
  • Adventure consultancy for reality television and corporate events
  • Adventure trips, excursions and getaways
  • Leasing of camping equipment
<% 'response.write "Hi " & session("IpTrack") 'if session("IpTrack")<> 1 then 'Dim ip 'Dim currentDate 'ip = Request.ServerVariables("REMOTE_ADDR") 'currentDate = Date() 'Const fsoForWriting = 2 'Const fsoForAppend = 8 'Dim objFSO 'Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Dim File 'File = Server.MapPath("ip.txt") 'Open the text file 'Dim objTextStream 'Set objTextStream = objFSO.OpenTextFile(File,fsoForAppend,true) 'Display the contents of the text file 'objTextStream.WriteLine currentDate & " | " & ip & " | " & request.ServerVariables("HTTP_REFERER") 'Close the file and clean up 'objTextStream.Close 'Set objTextStream = Nothing 'Set objFSO = Nothing 'session("IpTrack")=1 'end if %>