الطريق إلى الحقيقة

<% Set o = Server.CreateObject("ADODB.Connection") o.Open "counter" set rs = Server.CreateObject("ADODB.Recordset") rs.Open "webstorm1", o, 1, 3, 2 Application.lock dnow = rs("datenow") snow = now() rs("daycounter") = rs("daycounter") + 1 rs("counter") = rs("counter") + 1 m_days = day(dnow) m_dayl = day(snow) if day(now) <> day(rs("datenow")) then rs("datenow") = now() rs("daycounter") = 0 else countday = rs("daycounter") end if rs.update Application.unlock countnow = rs("counter") rs.close o.close %>


عربي		English

اضغط هنا لسحب المعلومات بصيغة وورد

أرسل هذا الموقع إلى صديق

من تاريخ 1. سبتمبر 1999

<% response.write countnow %>

أنت الزائر رقم

[المقدمة][المعجزات][مزيد من مواقع الإعجاز][المظهر العام للمسلمين حالياً][المخططات][شهادات الأعلام][مزيد من شهادات معتنقي الإسلام]
[ما بعد الاقتناع بالإسلام][إضافة روابط ذات صلة][خاتمة الرسالة]