<%
'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
%>
Mesaj
Yazan
fikri toylan
Mesajı
Çankırı
13:02:19 - 14.11.2009
yayın akışınızda başarılar dileriz toylan ailesi
Mesaj
Yazan
gökhan altundaş
Mesajı
İzmir
16:08:05 - 11.11.2009
bu emir'e bayılıyorum kardeşim......................ama o yıldız tilbenin şarkısı daha güzel
Mesaj
Yazan
GÖKHAN ALTUNDAŞ
Mesajı
İzmir
16:44:41 - 08.11.2009
heyyyy kardeşim yavuzzzzzz nerelerdesin merhaba gözdefm çalışanları ben gökhan süpersinizzzz!!!!!!!!!!!!!!!!!!!!!!!!!
Mesaj
Yazan
Doğukan EREN
www.myspace.com/giorapboy
Mesajı
İzmir
16:31:16 - 14.10.2009
İyi yayınlar Gözde fm.. Yavuz süpersin kardeşim.. :)
Mesaj
Yazan
Kadir Özdere
Mesajı
Kırklareli
22:47:31 - 13.10.2009
Merhaba bahsetmiş oldugun isa suan kırklareli edirne yolu uzerınde benzınlık karsısında nilaysa isminde kız ogrenci pansıyonu ısletıyor. İş yerının tel numarasını bilmiyorum.
Mesaj
Yazan
BARKIN CAN
Mesajı
Iğdır
22:30:11 - 12.10.2009
merhabalar gözde fm çalışanları, eskiden sizin radyonuzda çalışan bir arkadaşım vardı. İsmi İSA idi, sonradan radyodan ayrılaraka, nilaysa cafe isminde bir cafeterya açmıştı ama çok uzun yıllar oldu kendisi ile görüşmeyeli eğer mümkünse işyeri numarasını bilen ya da İSA isimli arkadaşımın soyadını hatırlayan varsa bu kısımayazarsa sevinirim..
Mesaj
Yazan
hale yılmaz
Mesajı
Denizli
03:34:44 - 02.10.2009
yavuzzzcummmmm harikasınnn cok saasırttın benı bugunn..hayatında cok basarılı olman dılegımle..gır gır bocegım benım xD
Mesaj
Yazan
oğuzhan aydın
yok
Mesajı
Kayseri
22:18:40 - 19.09.2009
HERKESE SELAM BEN OĞUZHAN EMRE SANA DA SELAM GEÇMİŞ BAYRAMIN MÜBAREK OLSUN
AİLENE SLM
Mesaj
Yazan
Erman DALCALI
Mesajı
Kırklareli
11:46:32 - 11.09.2009
çok koto çokkkk bı ıstek ıstedımm 1 saattır onaylanmıyor ıllakı cepten msj olarak mııı atalım yani bannnnnnnnnnnnnnnnnnnnn
!!!!!!!!!!!!!!!!!!!!!!!!!
Mesaj
Yazan
elif
Mesajı
DiyarBekir
12:44:03 - 04.09.2009
selam iyi yayinlar Filiz Sihir adli sarkiyi calarsaniz sevinriim
Mesaj
Yazan
samet kayabas
http://texasmt.tr.cx
Mesajı
İstanbul
13:38:08 - 26.08.2009
slm ben samet ! istanbulda oturuyorum kırklareliliyim ! çok güzel bi radyo başarılarınızın devamını dilerim. kırklarelinde olan sevdigim kız için gökan özen-sana yine muhtacım şarkısını istiyorum ! şimdiden tşk ederim.
Mesaj
Yazan
hürmet
Mesajı
Kayseri
22:13:12 - 19.07.2009
slm gözde yarın calan tüm sarkilar alemi kral akrep aliye gelsın
