implant


  Aktif KonularAktif Konular  Forum Üyelerini GösterÜye Listesi  Forumu AraArama  YardımYardım
  Kayıt OlKayıt Ol  GirişGiriş
ASP / ASP.NET
 ASPTurkiye.com Forum : ASP / ASP.NET
Konu Konu: arama Yanıt YazYeni Konu Gönder
Yazanlarda
Mesaj << Önceki Konu | Sonraki Konu >>
nesibe0101
Yeni Üye
Yeni Üye


Kayıt Tarihi: 22-Mayıs-2012
Ülke: Turkiye
Gönderilenler: 14
Gönderen: 29-Mayıs-2012 Saat 10:06 | Kayıtlı IP Alıntı nesibe0101

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

 

Yukarı Dön Göster nesibe0101's Özellikler Diğer Mesajlarını Ara: nesibe0101
 
ismail0202
Yeni Üye
Yeni Üye


Kayıt Tarihi: 20-Mayıs-2012
Ülke: Turkiye
Gönderilenler: 37
Gönderen: 29-Mayıs-2012 Saat 10:11 | Kayıtlı IP Alıntı ismail0202

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
%>



__________________
123
Yukarı Dön Göster ismail0202's Özellikler Diğer Mesajlarını Ara: ismail0202
 

Eğer Bu Konuya Cevap Yazmak İstiyorsanız İlk Önce Giriş
Eğer Kayıtlı Bir Kullanıcı Değilseniz İlk Önce Kayıt Olmalısınız

  Yanıt YazYeni Konu Gönder
Yazıcı Sürümü Yazıcı Sürümü

Forum Atla
Kapalı Foruma Yeni Konu Gönderme
Kapalı Forumdaki Konulara Cevap Yazma
Kapalı Forumda Cevapları Silme
Kapalı Forumdaki Cevapları Düzenleme
Kapalı Forumda Anket Açma
Açık Forumda Anketlerde Oy Kullanma

Powered by Web Wiz Forums version 7.91
Copyright ©2001-2004 Web Wiz Guide

Bu Sayfa 0,0781 Saniyede Yüklendi.