<%
'Read in all the search words into one variable
strSearchWords = Trim(Request.QueryString("search"))
'If the site is in English then use the server HTML encode method
If blnEnglishLanguage = True Then
'Replace any HTML tags with the HTML codes for the same characters (stops people entering HTML tags)
strSearchWords = Server.HTMLEncode(strSearchWords)
'If the site is not english just change the script tags
Else
'Just replace the script tag <> with HTML encoded < and >
strSearchWords = Replace(strSearchWords, "<", "<", 1, -1, 1)
strSearchWords = Replace(strSearchWords, ">", ">", 1, -1, 1)
End If
'Slit each word to be searched up and place in an array
sarySearchWord = Split(Trim(strSearchWords), " ")
'Read the file number to show from
intFileNum = CInt(Request.QueryString("FileNumPosition"))
'Set the number of files shown so far to the file number read in above
intNumFilesShown = intFileNum
'Create the file system object
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
'If there is no words entered by the user to search for then dont carryout the file search routine
If NOT strSearchWords = "" Then
'Get the path and the root folder to be searched
Set fldObject = fsoObject.GetFolder(Server.MapPath("./"))
'Read in the server path to this ASP script
strServerPath = fldObject.Path & "\"
'Set to true as this is searching the root directory
blnIsRoot = True
'Call the search sub prcedure
Call SearchFile(fldObject)
'Reset server variables
Set fsoObject = Nothing
Set fldObject = Nothing
'Call the Bubble Sort procedure to sort the results into highest matches first
Call SortResultsByNumMatches(sarySearchResults, intTotalFilesFound)
'Display the HTML table with the results status of the search or what type of search it is
Response.Write vbCrLf & "
"
Response.Write vbCrLf & "
"
'Display that there where no matching records found
If blnSearchResultsFound = False Then
Response.Write vbCrLf & "
" & strSearchWords & " . Üzgünüz bulunamadı.
"
'Else Search went OK so display how many records found
Else
Response.Write vbCrLf & "
"
End If
'Close the HTML table with the search status
Response.Write vbCrLf & "
"
Response.Write vbCrLf & "
"
'HTML table to display the search results or an error if there are no results
Response.Write vbCrLf & "
"
Response.Write vbCrLf & "
"
Response.Write vbCrLf & "
"
'If no results are found then display an error message
If blnSearchResultsFound = False Then
'Write HTML displaying the error
Response.Write vbCrLf & " "
Response.Write vbCrLf & " Aramış olduğunuz - " & strSearchWords & " - bulunamamıştır."
Response.Write vbCrLf & "
Birkaç kelimeyi aralarında boşluk bırakarak deneyin.
"
'Else display the results
Else
'Loop round to display each result within the search results array
For intDisplayResultsLoopCounter = (intFileNum + 1) to intNumFilesShown
Response.Write vbCrLf & " "
Response.Write vbCrLf & " " & sarySearchResults(intDisplayResultsLoopCounter,1)
Response.Write vbCrLf & " "
Next
End If
'Close the HTML table displaying the results
Response.Write vbCrLf & "
"
Response.Write vbCrLf & "
"
Response.Write vbCrLf & "
"
End If
'Display an HTML table with links to the other search results
If intTotalFilesFound > intRecordsPerPage then
'Display an HTML table with links to the other search results
Response.Write vbCrLf & " "
Response.Write vbCrLf & "
"
Response.Write vbCrLf & "
"
Response.Write vbCrLf & "
"
Response.Write vbCrLf & "
"
Response.Write vbCrLf & "
"
Response.Write vbCrLf & "
"
Response.Write vbCrLf & " Results Page: "
'If the page number is higher than page 1 then display a back link
If intNumFilesShown > intRecordsPerPage Then
Response.Write vbCrLf & " << Prev "
End If
'If there are more pages to display then display links to all the search results pages
If intTotalFilesFound > intRecordsPerPage Then
'Loop to diplay a hyper-link to each page in the search results
For intPageLinkLoopCounter = 1 to CInt((intTotalFilesFound / intRecordsPerPage) + 0.5)
'If the page to be linked to is the page displayed then don't make it a hyper-link
If intFileNum = (intPageLinkLoopCounter * intRecordsPerPage) - intRecordsPerPage Then
Response.Write vbCrLf & " " & intPageLinkLoopCounter
Else
Response.Write vbCrLf & " " & intPageLinkLoopCounter & " "
End If
Next
End If
'If it is Not the last of the search results than display a next link
If intTotalFilesFound > intNumFilesShown then
Response.Write vbCrLf & " Next >>"
End If
'Finsh HTML the table
Response.Write vbCrLf & "
"
Response.Write vbCrLf & "
"
Response.Write vbCrLf & "
"
Response.Write vbCrLf & "
"
Response.Write vbCrLf & "
"
Response.Write vbCrLf & "
"
End If
%>
Günden güne
geLişen teknoLojinin harikaLarı iLe dinLeyicisine kaLiteLi
hizmet vermek için seferber oLan teknik ekibimiz ve
yayıncıLarımız ve Radyo Gözde FM olarak yayınlarımızın en iyi
yerlere pürüzsüz biçimde ulaşması açısından, dinleyicilerimize
ve Fan'larımıza en iyi teknoloji ile seslenmeye çalışıyoruz.
Yayınlarımızın "KESİNTİSİZ" olması açısından UPS ve Jeneratör
destekli taban, Raduga otomasyonu ile en iyi ses kalitesini
sizlere sunuyoruz. Aynı zamanda "DÜNYA"NIN neresinde
olursanız olun resmi internet sitemizden de yayınımızı 24 saat
kesintisiz dinleyebilirsiniz.... Kullanmakta olduğumuz daha
doğrusu sesimizi size ulaştırmada yardımcımız olan
mekanizmalar
Kalitemizi onlara
borçluyuz...
Yayın mixerimiz
Production
Mixerimiz
Yayın Bilgisayarlarımız (2
Adet)
Production
Bilgisayarımız
Intel® Pentium® Dual Core
İşlemci (3.40 GHz) Orijinal Microsoft®
Windows XpTM Pro 512 MB 7100GS TC PCI-E
Ekran Kartı (256MB O/B) 1 GB DDR2 Bellek 500 GB
SATA Harddisk 19" Samsung LCD Monitör
Intel® Pentium® 4
İşlemci (2.80GHz) Orijinal Microsoft®
Windows XpTM Pro 512 MB 7100GS TC PCI-E
Ekran Kartı (256MB O/B) 512 MB DDR2 Bellek 160
GB SATA Harddisk 17" Philips LCD
Monitör
Mikrafonlarımız
(onlar bizi sizlerle, sizleri bizlerle
konuşturuyor)
Yayındakiler:
AUDİO TECHNİCA AT-3060
Production:
SINN 7 KSM 10
Vericimiz
Yayın
otomasyonumuz
Fm verici
(Transistörlü) 1000W çıkış gücünde, full
korumalı, SIEL FM verici
Dünya harikası alanında lider bir modül
Raduga Radyo Otomasyonu
