Gönderen: 29-Mayıs-2012 Saat 10:06 | Kayıtlı IP

bir içeriği nasıl görüntüleyebiliriz.

Gönderen: 29-Mayıs-2012 Saat 10:11 | Kayıtlı IP

div align="center"><strong>ARAMA SONUÇLARI</strong></div>

<%
'Formdan Gelen Bilgi
'----------------------------------------------------------- -------------------------------
Dim aramAders,aramAyil,aramAdonem,aramAkod,aramAbolum,aramAogret men,aramAtur

aramAders = Request.Form("dersadi")
aramAyil = Request.Form("yili")
aramAdonem = Request.Form("donemi")
aramAkod = Request.Form("kodu")
aramAbolum = Request.Form("bolumu")
aramAogretmen = Request.Form("ogretmen")
aramAtur = Request.Form("tur")

'Chekler Ne durumda?
Dim chekDers,chekYil,chekDonem,chekKod,chekBolum,chekOgretmen,ch ekTur
chekDers = Request.Form("dadi")
chekYil = Request.Form("dyili")
chekDonem = Request.Form("ddonemi")
chekKod = Request.Form("dkodu")
chekBolum = Request.Form("dbolumu")
chekOgretmen = Request.Form("dogretmen")
chekTur = Request.Form("dtur")
'----------------------------------------------------------- -----------------------------

Dim aramaSQL,SQLeekle  'Burdan sonrasında amacım WHERE deyimine ilgili sorgulamaları katmak.

if chekDers=1 then
'SQLeekle = "WHERE ders LIKE '%" & aramAders & "%' "
SQLeekle = " WHERE ders='"& aramAders &"'"
else
SQLeekle = " WHERE id>0"
end if

if chekYil=1 then
SQLeekle = SQLeekle &"and yil=" & aramAyil & " "
else
SQLeekle = SQLeekle
end if

if chekDonem=1 then
SQLeekle = SQLeekle &"and donem='" & aramAdonem & "' "
else
SQLeekle = SQLeekle
end if

if chekKod=1 then
SQLeekle = SQLeekle & "and derskodu='"& aramAkod &"' "
else
SQLeekle = SQLeekle
end if

if chekBolum = 1 then
SQLeekle = SQLeekle & " and bolum LIKE '%" & aramAbolum & "%'"
'SQLeekle = SQLeekle & "and bolum='"& aramAbolum &"' "
else
SQLeekle = SQLeekle
end if

if chekOgretmen = 1 then
SQLeekle = SQLeekle & " and ogretmen LIKE '%" & aramAogretmen & "%'"
'SQLeekle = SQLeekle & "and ogretmen='" & aramAogretmen & "' "
else
SQLeekle = SQLeekle
end if

if chekTur = 1 then
SQLeekle = SQLeekle & "and tur='" & aramAtur & "' "
else
SQLeekle = SQLeekle
end if
' Hele Şükür bitti ama hata verecek gibi sanki...
' Şuan sorun yok gibi, gelecek ne gösterir bilemem:))

%>

<% 'Bağlantı işleri
Dim aramavt, aramakayitlar

set aramavt=Server.CreateObject ("ADODB.Connection")
aramavt.Open bag

aramaSQL= "Select * FROM sorular" & SQLeekle

set aramakayitlar = aramavt.Execute (aramaSQL)

if aramakayitlar.eof then
response.Write ("Belirtmiş Olduğunuz Kriterlere Uygun Sonuçlar Veritabanımızda Bulunmamaktadır...<br><li>Filitreleme kriterlerini azaltmanızı,</li><li>Yada daha genel aramalar</li> yapmanızı öneriyoruz...")
else

%>

<% 'listeleme işleri
Dim kayitsirano
kayitsirano=1
Do While Not aramakayitlar.eof
%>
<b><%=kayitsirano%>.</b> <a href="sorugoster.asp?soruid=<% =aramakayitlar("id") %>" target="_blank" title="Okutman/Öğretim Görevlisi: <% =aramakayitlar("ogretmen") %>"><b><% =aramakayitlar("yil") %></b> yılı <b><% =aramakayitlar("donem") %></b> dönemi <b><% =aramakayitlar("bolum") %></b> programı <b><% =aramakayitlar("ders") %>(<% =aramakayitlar("derskodu") %>)</b> dersi <b><% =aramakayitlar("tur") %></b>  sınav soruları. </a>
<hr size="1" color=slategray>
<%
kayitsirano=kayitsirano+1
aramakayitlar.movenext
loop

end if
%>

<p align="center"><% =geridon %></p>

<% 'İşlem Bitti İşleri
aramakayitlar.close
set aramakayitlar=Nothing

aramavt.close
set aramavt=Nothing
%>