<% sPath =Server.MapPath("/samples/test2.txt") 'response.write sPath anyVariable = Request.ServerVariables("REMOTE_ADDR") Set fs= Server.CreateObject("Scripting.FileSystemObject") Set objLogFile = fs.OpenTextFile(sPath, 8, False) objLogFile.WriteLine(anyVariable) objLogFile.Close() %>

Home Home  •  Mein Konto  •  Spiele  •  Clubspiele  •  Spielpaarungen  •  Abonnement  •  Shop  •  Kontakt

>> Letzte Ziehung Swisslotto Toto Toto-X >> Letzte Ziehung EuroMillions

© - All Rights Reserved by Lotto Center Altstetten GmbH