[سعود]

بارك الله فيكم اخواني.
بالنسبة للاخ الفاضل [b]macary007 طريقتك احترافية و متقدمة قد احتاج لها قريبا لاني استخدم استضافة مجانية قد لا تتوفر لدي الوصول الكامل.
----------------------------------------------------------
بالنسبة للاخ الفاضل [/b][b]H111er
قمت بتحويل الكود الذي كتبت الى فيجوال بيسك عبر موقع: [/b]http://converter.telerik.com/
واصبح كالتالي:

كود :

Private Sub Timer_Tick(sender As Object, e As System.Timers.ElapsedEventArgs)    Application("onlines") = ""
End Sub


Private Sub Application_Start(sender As Object, e As EventArgs)
    ' Code that runs on application startup
    Application("onlines") = ""
    Dim Timer As New System.Timers.Timer()
    Timer.Interval = 60000
    Timer.Elapsed += New System.Timers.ElapsedEventHandler(Timer_Tick)
    Timer.Enabled = True
    Timer.Start()
End Sub

لكن كيف اجمع بين هذا المتغير

كود :

Application("onlines") = ""

وين متغير تحمله الجلسة وهي مثلا

كود :

session("tname")

والذي اخزنه حال تسجيل الدخول