<%
'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
hakan kumsar
Mesajı
Kırklareli
10:18:29 - 06.01.2009
slm ben hakan lise son sınıftayım radyonuzu begenerek dınlıyorum ama reklam aranız cok sık we uzun yınede güzel kader'den sevmiyorum calarsanız cok sevinirim...
Mesaj
Yazan
çağalr
Mesajı
Kırklareli
20:55:04 - 04.01.2009
yaw djler hep tanıdık :) dj öznuır dj burcu(eski) bende mı dj olsam :))))
Mesaj
Yazan
çağlar
Mesajı
Kırklareli
20:45:06 - 04.01.2009
dj burcu arkadasların seni unutmamıs eğer tahmın ettiğim kişiysen umarım suanda bulunduqun yerde mutlusundur neyse saqlıcakla kalın ayrıca uzaklarda arama cok yakınlarda bi yerlerdeyim ......... :)
Mesaj
Yazan
bahadır güngördü
Mesajı
Kırklareli
23:21:58 - 31.12.2008
slm ben kızılcıkdereden bahadır bu parçanın ağır kaçacağını biliyorum ama çok istiyorum HAKKI BULUT SON MEKTUP tüm KIZILCIKDRELİLERE GENÇLİĞİNE GELSİN
Mesaj
Yazan
musu gül
Mesajı
Kahramanmaraş
16:12:08 - 30.12.2008
slm ben musa sıradaki parçayı tüm afşin halkına ayrıca beni tanıyan tüm insanlara gönderiyorum iyi yayınlar
Mesaj
Yazan
özkan yılmaz
Mesajı
Adıyaman
15:26:51 - 20.12.2008
iyi yayınlar ıstek alıyormusunuz bılmıyorum ama murat göğebakandan bır parca calarsanız sevınırım
Mesaj
Yazan
ABDULLAH TAŞKIN
www.kullar.org
Mesajı
İstanbul
21:48:07 - 15.12.2008
slm gözde fm yayınlarınız çok güzel ayrıca arada bir ugultu olsada yayın lar gayet güzel dj kardeşlerimi dilinize saglık
Mesaj
Yazan
kadir sütcü
Mesajı
İstanbul
03:19:11 - 10.12.2008
selam gözde fm iyi yayınlar gözde fm i seviyorum kartal dan sonra anadolu yakasın da en net dinleyebildiğim radyo kanalı olduğu için atrıca gerçekten kaliteli iş çıkardığı için tekrar iyi yayınlar diliyorum ve başarılarınızın devamını diliyorum ayrıca tüm fener bahçelilere sevgilerle
Mesaj
Yazan
AYKUT AKAR
Mesajı
Kırklareli
20:36:28 - 29.11.2008
herse 10 numara ben kavaklı da yurtta kalıyorum her gece uyumadan önce dinliyorum sizi herkescikelere iyi aksamlar
Mesaj
Yazan
Erman DALCALI
Mesajı
Kırklareli
12:14:44 - 29.11.2008
her zaman oldugu gıbı gayet guzel oluyor programlar basarılarınızın devamını dılıyorum
Mesaj
Yazan
Kenan KOÇ
Mesajı
Bursa
23:31:18 - 27.11.2008
Şanslıyım aslında her ne kadar şanssız olduğumu düşünüp hayatla cebelleşmelerim de, suçu hep ona atıp beni görmezden geldiğini düşünüp şikayetlerimle kafamı doldursam da... Peki, ben neden şanslıyım... Yada bunu şans diye nitelendirmem ne kadar doğru? Neden şanslıyın? Çünkü GÖZDE FM ile tanıştım. Hepinizin yüreği sağlık içinde sevgiyle yaşam sürmesini diliyorum.SAYGILARIMLA.
Mesaj
Yazan
Mesut BEKLİK
www.SanalSohbet.Gen.TR
Mesajı
İstanbul
13:53:26 - 27.11.2008
Merhabalar. Gozdecıler..
Hem muzık, hem Sohbet Muhabbet, Harıka..
