% dim fs,f set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.OpenTextFile(Server.MapPath("admin\data\connections.txt"),8,true) ligne=Request.ServerVariables("REMOTE_ADDR") & ";" & Request.ServerVariables("SERVER_SOFTWARE") & ";" & _ Request.ServerVariables("URL") & ";" & date & ";" & time f.WriteLine(Ligne) f.Close set f=Nothing set fs=Nothing %>
![]() |
مقالات |
|
| Francais | English | ![]() |
|||||
| اتصل بنا | أخبار | شخصيات من مساكن | أنساب | صور من مساكن | اعلانات | Genetic Genealogy | مقالات | البلدات المجاورة لمدينة مساكن |