.::.Welcome to kassa mountaineering and tourism co.::.

<% Option Explicit %> <% 'Set the response buffer to true Response.Buffer = True 'Dimension global variables Dim fsoObject 'File system object Dim fldObject 'Folder object Dim sarySearchWord 'Array to hold the words to be searched for Dim strSearchWords 'Holds the search words Dim blnIsRoot 'Set to true if we are searching in the root directory Dim strFileURL 'Holds the path to the file on the site Dim strServerPath 'Holds the server path to this script Dim intNumFilesShown 'Holds the number of files shown so far Dim intTotalFilesSearched 'Holds the number of files searched Dim intTotalFilesFound 'Holds the total matching files found Dim intFileNum 'Holds the file number Dim intPageLinkLoopCounter 'Loop counter to display links to the other result pages Dim sarySearchResults(500,2) 'Two Dimensional Array holding the search results Dim intDisplayResultsLoopCounter 'loop counter to diplay the results of the search Dim intResultsArrayPosition 'Stores the array position of the array storing the results Dim blnSearchResultsFound 'Set to true if search results are found Dim strFilesTypesToSearch 'Holds the types of files to be searched Dim strBarredFolders 'Holds the folders that you don't want searched Dim strBarredFiles 'Holds the names of the files not to be searched Dim blnEnglishLanguage 'Set to True if the user is using English ' -------------------------- Change the following line to the number of results you wish to have on each page ------------------------------------ Const intRecordsPerPage = 10 'change this to the number of results to show on each page ' --------------------- Place the names of the files types you want searching in the following line sepeararted by commas -------------------------- strFilesTypesToSearch = "htm,html,asp,shtml" ' --------------------- Place the names of the folders you don't want searched in the following line spearated by commas -------------------------- strBarredFolders = "cgi_bin,_bin" 'cgi_bin and _bin have been put in here as examples, but you can put any folders in here ' ---------- Place the names of the files you don't want searched in the following line spearated by commas include the file extension ------------- strBarredFiles = "adminstation.htm,no_allowed.asp" 'adminstration.htm and not_allowed.asp have been put in as an examples ' -------------------- Set this boolean to False if you are not using an English language web site -------------------------------------------------- blnEnglishLanguage = False 'True = English \ False = Other language '----------------------------------------------------------------------------------------------------------------------------------------------------- 'Initalise variables intTotalFilesSearched = 0 %> .::.Welcome to kassa mountaineering and tourism co.::.

Climbing wall

With respect to the ever increasing growth and development of rock ...

Tourism

IRAN with more than 600 summit with heights more than 4000 meters is

شر کت کسا نمايندگي انحصاري کمپاني Cassin ايتاليا در ايران ...

Top Evevnt مهمترين رويدادها

نشان افتخار بر سينه فاتحان قله انسانيت

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

هفدهمين ديواره سنگنوردي آذربايجانشرقي در سراب افتتاح شد

شرکت كوهنوردي كسا در بهار سال 1377 تاسيس گرديده است، از مهمترين اهداف مديران اين شركت كمك به رشد و توسعه ورزش كوهنوردي در بين آحاد كوهنوردان و مردم سراسر كشور عزيزمان بوده است، اين شركت در سه بخش عمده به شرح زير به فعاليت مي پردازد.

توليد كننده ديواره هاي مصنوعي سنگ نوردي :
توليد ديواره هاي طرح پيراميد فرانسه و نصب در بيش از 45 مركز در 28 استان سراسر كشور در مدت 4 سال براي ارگان هايي نظير ادارات كل تربيت بدني استان ها، نيروي انتظامي، سپاه پاسداران، صنعت نفت، دانشگاه افسري امام علي (ع) دانشگاه هاي علوم پزشكي، هواپيمايي جمهوري اسلامي ايران (هما) شهرداري تهران.
طراحي بانك هاي جديد سنگ نوردي.
طراحي و توليد گيره هاي ديواره مصنوعي
. توليد سيميلاتور (دستگاه بدنسازي سنگ نوردي).

لوازم و تجهيزات كوهنوردي :
نمايندگي انحصاري کمپاني Cassin ايتاليا
توزيع يكپارچه محصولات بعضي از توليدكنندگان داخلي در سطح كشور.

تورهاي كوهستان:
اين شركت به منظور توسعه صنعت گردشگري به طور خاص جهت گردشگران كوهنورد خارجي كليه سرويس هاي ممكن را جهت كوهنوردي بر روي كليه مناطق كوهنوردي كشورمان در تمامي فصول ارائه مي نمايد، عهده اين خدمات عبارتند از:
اخذ رواديد ورود به خاك ايران كليه مراحل مربوط به حمل و نقل در كشور(زميني، هوايي، دريايي و ...).
راهنماي كوهستان آشنا به زبان انگليسي.
آشپز كوهستان.
مجوز ورودي به مناطق حفاظت شده محيط زيست.
رزرو هتل و پناهگاه هاي موجود در سطح كشور.
وعده هاي غذايي روزانه.
بازديد از اماكن تفريحي، تاريخي و فرهنگي در حاشيه برنامه هاي كوهنوردي.

افق آينده
صادرات ديواره هاي مصنوعي سنگ نوردي. صادرات محصولات توليدكنندگان داخلي لوازم كوهنوردي به خارج از كشور. اجرا تورهاي برون مرزي جهت عموم علاقمندان به صعود قلل مرتفع جهان.