Farhangsara Home In Persian

<% ' Graphical Hit Counter Example By www.PowerASP.com ' Declare variables Dim ObjCounterFile, ReadCounterFile, WriteCounterFile Dim CounterFile Dim CounterHits Dim FixedDigitCount Dim DigitCount Dim DigitCountLength Dim DigitZerosToAdd Dim DigitZeroCount Dim ShowDigits Dim DigitPath ' (FixedDigitCount) will add zeros to the front of your count ' if the count is less then the (FixedDigitCount) ' just like "frontpage" counters let you do FixedDigitCount = 5 DigitPath = "digits" On Error Resume Next Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject") CounterFile = Server.MapPath ("counter.txt") Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True) If Not ReadCounterFile.AtEndOfStream Then CounterHits = Trim(ReadCounterFile.ReadLine) If CounterHits = "" Then CounterHits = 0 Else CounterHits = 0 End If ReadCounterFile.Close Set ReadCounterFile = Nothing CounterHits = CounterHits + 1 Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True) WriteCounterFile.WriteLine(CounterHits) WriteCounterFile.Close Set WriteCounterFile = Nothing Set ObjCounterFile = Nothing DigitCountLength = Len(CounterHits) If DigitCountLength < FixedDigitCount Then DigitZerosToAdd= FixedDigitCount - DigitCountLength DigitZeroCount = 1 For DigitZeroCount = DigitZeroCount to DigitZerosToAdd ShowDigits = ShowDigits & "" Next End If DigitCount = 1 For DigitCount = DigitCount to DigitCountLength ShowDigits = ShowDigits & "" Next %>Farhangsara Home In Persian

fimages/header_General.jpg (47598 bytes)

This is a picture, click on it to select the Geography

تاريخ و جغرافی

گالری

فرهنگسرا سايتی است غير انتفاعی برای معرفی اقوام، فرهنگ و تاريخ پر افتخار 2500 ساله ايران
اطلاعات اين سايت از منابع ، کتابها و سايتهای مختلف جمع آوری شده است.ر

ما مراتب سپاس خود را نسبت به افرادی که به شيوه های مختلف، مانند راهنمائی و تشويق و صرف وقت و توجه و تامين اطلاعات ما را در راه اندازی اين سايت ياری نموده اند اعلام می داريم

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

فرهنگسرا با وجود اينکه اطلاعاتی درباره اديان و مذاهب ايران در اختيار کاربران قرار ميدهد به هيچ وجه به دين و سياست خاصی گرايش و وابستگی ندارد

برای مشاهده بهتر صفحات نمايشگر خود را بر روی 600 * 800 تنظيم کرده و از

يا بالاتر استفاده کنيد IE 4.X

فرهنگ و هنر - تاريخ و جغرافي - بياموزيم - تماس با ما - درباره ما - صفحه اول