<%@ LANGUAGE = VBScript %> <% Option Explicit %> <% Response.Expires= -1 %> به سایت اطلاع رسانی دکتر علی وفایی خوش آمدید <% Dim oConn Dim aRs Dim oRs Dim filePath Dim TodayCount Dim TotalCount filePath = Server.MapPath("taffiran.mdb") Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath Set aRs = oConn.Execute("SELECT * FROM VisitCounter " & "WHERE ADate = '" & Date & "'") Set oRs = oConn.Execute("SELECT SUM(ACount) AS TotalCount FROM VisitCounter") if oRs.eof then TotalCount = 0 else TotalCount = oRs("TotalCount") end if oRs.Close Set oRs = Nothing if not aRs.eof then TodayCount = aRs("ACount") TodayCount = TodayCount + 1 oConn.Execute("UPDATE VisitCounter SET ACount = " & TodayCount & " WHERE ADate = '" & Date & "'") else oConn.Execute "INSERT INTO VisitCounter (ADate, ACount) VALUES ('" & Date & "', 1)" TodayCount = 1 end if aRs.Close Set aRs= Nothing oConn.Close Set oConn = Nothing %>

نقشه سایت

درباره دکتر وفایی

صفحه اصلی

صفحه اصلی > سایر تلفن های تماس

بعد قبل

بعد قبل

بعد قبل

بعد قبل

بعد قبل

بعد قبل

بعد قبل

بعد قبل

بعد قبل

بعد قبل

سايرتلفن های تماس برای کسب اطلاعات درموردکاشت موی طبيعی

خانم خدارحمی 09128175141

خانم بابایی 09126457521

خانم خلیلی                 09125178105
خانم کاشف                    09124969943
خانم افشار                     09122769327

تلفن های مشاوره برای ساکنین کانادا و امریکا

خانم وفائی 8944535 ـ 416 ـ 001

7291768 ـ 416 ـ 001

::: صفحه اصلی ::: اخطار قانونی ::: درباره ما ::: سوالات متداول ::: آلبوم عکس

کلیه حقوق این سایت متعلق به دکتر علی وفایی است

طراحی و پیاده سازی توسط شرکت طب نگار