.::.The first manufacturer of climbing walls & holds in Iran، ‎ The first Iranian climbing walls & holds manufacturer.::.

<% 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 %> .::.The first manufacturer of climbing walls & holds in Iran، ‎ The first Iranian climbing walls & holds manufacturer.::.

Climbing wall

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

عکسهای شرکت کوهنوردی کسا در نمایشگاه شهر ورزشی- شهروند ورزشی
زمان برگزاری 25 مهر تا 1 آبان 1388

نمایندگی های ما در تهران و شهرستانها

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

رقابت‌هاي سنگنوردي انتخابي تيم‌هاي نوجوانان و جوانان تيرماه برگزار مي‌شود

رکورد جوان‏ترین کوهنورد صعودکننده به اورست شکست

آدرس:
تهران -خيابان شريعتي - نرسيده به سه راه طالقاني - کوچه نقدي- مجتمع رازی-
پلاک 27 - واحد2
تلفن :4-77510463
فکس:77622043
آدرس الکترونيکي: info@kassaco.com
آدرس الکترونيکي بخش فروش : sale@kassaco.com

Address:
     #27,Naghdi Alley , Shariati St.
     Tehran 15637 I.R.IRAN

     Tel : +9821 77510463 -4
     Fax : +9821 77622043

      Email : info@kassaco.com , sale@kassaco.com