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: Ararken kayıtları sayfa sayfa göstermek Yanıt YazYeni Konu Gönder
Yazanlarda
Mesaj << Önceki Konu | Sonraki Konu >>
Serpilhanim
Yeni Üye
Yeni Üye


Kayıt Tarihi: 16-Eylül-2007
Ülke: Türkiye
Gönderilenler: 2
Gönderen: 16-Eylül-2007 Saat 03:23 | Kayıtlı IP Alıntı Serpilhanim

Öncelikle selamlar ve teşekkürler. Ben 5 alandan, 5 combobox ile arama yapıyorum. Arama sonuçlarını sayfa sayfa göstermezsem sorun olmuyor, sayfa sayfa gösterince ve 1 sayfayı geçince, mesela yaş ve cinsiyete göre ararken, ilk sayfada aranan yaş ve cinsiyete göre gösteriyor, fakat sayfa 2 ye tıklayınca yaşı ve her iki cinsiyeti birden gösteriyor, sayfa sayısı artıyor iki cinsiyeti de gösterdiği için. Öncelikle yaş alanına göre aratıyorum, yaşın hepsi seçilemiyor, diğer alanların hepsi seçilebiliyor. Kafam durdu sanki, ilgilenen arkadaşlara şimdiden teşekkür ediyorum.

__________________
Serpil
Yukarı Dön Göster Serpilhanim's Özellikler Diğer Mesajlarını Ara: Serpilhanim
 
greyder
Üye
Üye


Kayıt Tarihi: 22-Mart-2007
Ülke: Türkiye
Gönderilenler: 90
Gönderen: 16-Eylül-2007 Saat 04:17 | Kayıtlı IP Alıntı greyder

kodları gönderirmisin bi inceleyelim.
Yukarı Dön Göster greyder's Özellikler Diğer Mesajlarını Ara: greyder Ziyaret greyder's Ana Sayfa
 
Serpilhanim
Yeni Üye
Yeni Üye


Kayıt Tarihi: 16-Eylül-2007
Ülke: Türkiye
Gönderilenler: 2
Gönderen: 16-Eylül-2007 Saat 22:46 | Kayıtlı IP Alıntı Serpilhanim

İlginiz için tekrar teşekkür ederim. Kolay gelsin, şansınız açık olsun.

Aşağıdaki dosya form doldurulan search.asp

<%@ Language=VBScript Codepage=1254 %>
<%
KullAdi=Request.Querystring("KullAdi")
KullAdi=Replace(KullAdi,"'","")
%>
<%
Session.TimeOut=20
Kullanici=Session("Kullanici")
UId=Session.Contents("UId")
If Kullanici="" Then
Response.Redirect "index.asp"
else
End If
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>ARAMA SAYFASI</title>
<!--#include file="top.htm"-->
<br>
  <center>
  <table border="0" width="85%" cellpadding="0" bgcolor="#FFFFFF" style="border-collapse: collapse;

margin-top: 6" bordercolor="#DDE4AB" cellspacing="0">
      <tr>
      <form action="arama.asp?KullAdi=<%=Kullanici%>" method="post">
      <td width="45" align="right">
      <font face="Tahoma" size="2" class="stilim">Cinsiyet:</font></td>
      <td width="80">
      <SELECT id=select1 name=Cinsiyeti
      style="HEIGHT: 104; WIDTH: 104; text-align:left" size="1" class="stilim">
       <option selected value="*">Bay</option>
          <option>Bayan</option>
        </SELECT></td>
      <td width="45" align="right">
        <font face="Tahoma" size="2" class="stilim">Yaş:</font></td>
      <td width="56">
      <SELECT id=select6 name=DTarihi style="HEIGHT: 76; WIDTH: 76; text-align:left" size="1"

class="stilim">
    <option selected value="*">15-20</option>
    <option>21-25</option>
    <option>26-30</option>
    <option>31-35</option>
    <option>36-40</option>
          <option>41-45</option>
          <option>46-50</option>
          <option>51-55</option>
          <option>56-60</option>
          <option>61-65</option>
          <option>66-99</option>
          </SELECT></td>
         <td width="45" align="right">
        <font face="Tahoma" size="2" class="stilim">Eğitim:</font></td>
<td width="80">
      <SELECT id=select5 name=Tahsil
      style="HEIGHT: 104; WIDTH: 104; text-align:left" size="1" class="stilim">
  <option selected value="*">Farketmez</option>
          <option>ilkokul</option>
          <option>ortaokul</option>
          <option>lise</option>
          <option>üniversite</option>
          </SELECT></td>
      <td width="70" align="center"><input type="submit" value="ARA" name="B1">
      </td>
      </form>
    </tr>
      </table>
      </center>
      <br>
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"

bordercolor="#111111" width="50%" id="AutoNumber6">
    <tr>
      <td width="100%">
      <p align="center"><form method="post" action="Kullanici.asp?KullAdi=<%=Kullanici%>">
  <p align="center">
  <input type="submit" name="Submit72" value="Ana Sayfa" class="Input"> </p>
</form>
</td>
    </tr>
  </table>
  </center>
       </body>
</html>

 

ARAMAYI YAPAN DOSYA AŞAĞIDAKİ:

 

<%@ Language=VBScript Codepage=1254 %>
<%
KullAdi=Request.Querystring("KullAdi")
KullAdi=Replace(KullAdi,"'","")
%>
<%
Session.TimeOut=20
Kullanici=Session("Kullanici")
UId=Session.Contents("UId")
If Kullanici="" Then
Response.Redirect "index.asp"
else
End If
%>


<%
DB="DBQ=" & Server.Mappath("data/TabloMesaj.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open DB
Okundumu="Hayır"
Kullanicilar="SELECT * FROM TblKisi WHERE Gorunsun='Evet'"
MesajAl="SELECT *FROM TblMesaj WHERE UId='"&UId&"' AND Okundumu='Hayır';"
Set RSMesaj=Baglanti.Execute (MesajAl)
If RSMesaj.EOF OR RSMesaj.BOF Then
Sayac="0"
Else
Sayac=0
While Not RSMesaj.EOF
Sayac=Sayac+1
RSMesaj.MoveNext
Wend
End If
MesajSay="SELECT *FROM TblMesaj WHERE UId='"&UId&"'"
Set RSMSay=Baglanti.Execute (MesajSay)
If RSMSay.EOF OR RSMSay.BOF Then
ToplMesaj="0"
Else
ToplMesaj=0
While Not RSMSay.EOF
ToplMesaj=ToplMesaj+1
RSMSay.MoveNext
Wend
End If
%>


<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>ARKADAŞ ARAMA</title>


<script language="JavaScript">
function newWindow(mypage,myname,w,h,features) {
  if(screen.width){
  var winl = (screen.width-w)/2;
  var wint = (screen.height-h)/2;
  }else{winl = 0;wint =0;}
  if (winl < 0) winl = 0;
  if (wint < 0) wint = 0;
  var settings = 'height=' + h + ',';
  settings += 'width=' + w + ',';
  settings += 'top=' + wint + ',';
  settings += 'left=' + winl + ',';
  settings += features;
  win = window.open(mypage,myname,settings);
  win.window.focus();
}
</script>


<!--#include file="top.htm"-->


<%
DTarihi=Request.Form("DTarihi")
Cinsiyeti=Request.Form("Cinsiyeti")
if Cinsiyeti="*" then Cinsiyeti=""
Sehir=Request.Form("Sehir")
if Sehir="*" then Sehir=""
Tahsil=Request.Form("Tahsil")
if Tahsil="*" then Tahsil=""
DB="DBQ=" & Server.Mappath("data/TabloMesaj.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open DB


if DTarihi="15-20" then
 ss="Select * from tbluye where DTarihi between '15' and '20' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
if DTarihi="21-25" then
 ss="Select * from tbluye where DTarihi between '21' and '25' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
if DTarihi="26-30" then
 ss="Select * from tbluye where DTarihi between '26' and '30' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
if DTarihi="31-35" then
 ss="Select * from tbluye where DTarihi between '31' and '35' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
if DTarihi="36-40" then
 ss="Select * from tbluye where DTarihi between '36' and '40' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
if DTarihi="41-45" then
 ss="Select * from tbluye where DTarihi between '41' and '45' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
if DTarihi="46-50" then
 ss="Select * from tbluye where DTarihi between '46' and '50' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
if DTarihi="51-55" then
 ss="Select * from tbluye where DTarihi between '51' and '55' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
if DTarihi="56-60" then
 ss="Select * from tbluye where DTarihi between '56' and '60' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
if DTarihi="61-65" then
 ss="Select * from tbluye where DTarihi between '61' and '65' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
if DTarihi="66-99" then
 ss="Select * from tbluye where DTarihi between '66' and '99' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
 ss="SELECT * FROM TblUye WHERE Cinsiyeti Like '%"&Cinsiyeti&"' AND DTarihi Like

'%"&DTarihi&"%' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 end if
 end if
 end if
 end if
 end if
 end if
 end if
 end if
 end if
 end if
 end if
Set rs2 = server.CreateObject("ADODB.Recordset") 
rs2.Open ss, Baglanti, 1,3
%>


<%
If rs2.BOF and rs2.EOF Then%>
<h3 align="center">Kayıt Bulunamadı!</h3>


<%ELSE%>
<%
rs2.pagesize=20
dim sayfa, maxsayfa
maxsayfa= rs2.recordcount / rs2.pagesize
if maxsayfa > Int(maxsayfa) then maxsayfa = Int(maxsayfa) +1
sayfa=request("sayfa") + 0
if sayfa>maxsayfa then sayfa=maxsayfa
if sayfa<1 then sayfa=1
rs2.absolutepage=sayfa
dim sayacs
sayacs=0
%>


<div align="center">
<table width="85%" cellspacing="0" cellpadding="0" style="border-collapse: collapse"

bordercolor="#111111" border="0" bgcolor="#EEF2F7">
<tr>
<td>
<font class="stilim">
<p align="center">
<% Call SayfalariYaz %></p>
</font>
</td>
</tr>
</table>
</div>


<div align="center">
  <table bordercolor="#C0C0C0" style="border-collapse: collapse" cellpadding="0" cellspacing="0"

bgcolor="#FFFFFF" border="2" width="85%">
  <TR>
<td width="3%" bgcolor="#FFCCCC" align="center"><img border="0" src="foto/foto2.jpg"></td>
<td width="17%" bgcolor="#FFCCCC" align="center"><font class="stilim">Nick</font></td>
<td width="7%" bgcolor="#FFCCCC" align="center"><font class="stilim">Cinsiyet</font></td>
<td width="5%" bgcolor="#FFFFFF" align="center"><font class="stilim">Yaş</font></td>
<td width="5%" bgcolor="#FFCCCC" align="center"><font class="stilim">Boy</font></td>
<td width="5%" bgcolor="#FFCCCC" align="center"><font class="stilim">Kilo</font></td>
<td width="10%" bgcolor="#FFCCCC" align="center"><font class="stilim">Eğitim</font></td>
<td width="20%" bgcolor="#FFCCCC" align="center"><font class="stilim">Şehir</font></td>
<td width="14%" bgcolor="#FFCCCC" align="center"><p align="center"><font

class="stilim">Mesaj</font></td>
</tr>


<%do while not rs2.eof
if sayacs >= rs2.pagesize then exit do
 sayacs = sayacs + 1
%>


<%
if rs2("cinsiyeti")="Bay" then%>
<tr valign="top">
  <td width="3%" background="bay.jpg" align="center" height="30" valign="middle">
  <% if rs2("filename")<>"" then %>
  <center><img src="foto/24.jpg"></a></center>
  <%else%>
  <%end if%>
   </td>
  <td width="17%" background="bay.jpg" align="center" height="30" valign="middle"><font

class="stilim"><a href="#" title="Üyeyi Daha İyi Tanı"

onClick="MM_openBrWindow('Profil.asp?KullAdi=<%=rs2("Kull Adi")%>','Profil','scrollbars=yes,width=700

,height=550')"><%=rs2("KullAdi")%></a></fo nt></td>
  <td width="7%" background="images/bay.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("Cinsiyeti")%></font>&l t;/td>
  <td width="5%" background="images/bay.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("DTarihi")%></font>< /td>
  <td width="5%" background="images/bay.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("Boy")%></font></td& gt;
  <td width="5%" background="images/bay.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("Kilo")%></font></td >
  <td width="10%" background="images/bay.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("Tahsil")%></font></ td>
  <td width="20%" background="images/bay.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("Sehir")%></font></t d>
  <td width="13%" background="images/bay.jpg" align="center" height="30" valign="middle">
    <p align="center">
   

<% if kullanici<>rs2("KullAdi") then %>
    <font class="stilim"><a

href="getmes.asp?Kullanici=<%=rs2("KullAdi")%>&Gon deren=<%=Kullanici%>&GidUid=<%=rs2("UId")%>"

style="text-decoration: none">Mesaj Gönder</a></font></td></tr>
   <% end if %>
   <% end if %>
  

<% if rs2("cinsiyeti")="Bayan" then%>
   <tr valign="top">
  <td width="3%" background="bayan.jpg" align="center" height="30" valign="middle">
  <% if rs2("filename")<>"" then %>
  <center><img src="foto/24.jpg"></center>
  <%else%>
  <%end if%></td>
  <td width="17%" background="images/bayan.jpg" align="center" height="30" valign="middle"><font

class="stilim"><a href="#" title="Üyeyi Daha İyi Tanı"

onClick="MM_openBrWindow('Profil.asp?KullAdi=<%=rs2("Kull Adi")%>','Profil','scrollbars=yes,width=700

,height=550')"><%=rs2("KullAdi")%></a></fo nt></td>
  <td width="7%" background="images/bayan.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("Cinsiyeti")%></font>&l t;/td>
  <td width="5%" background="images/bayan.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("DTarihi")%></font>< /td>
  <td width="5%" background="images/bayan.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("Boy")%></font></td& gt;
  <td width="5%" background="images/bayan.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("Kilo")%></font></td >
  <td width="10%" background="images/bayan.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("Tahsil")%></font></ td>
  <td width="20%" background="images/bayan.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("Sehir")%></font></t d>
  <td width="13%" background="images/bayan.jpg" align="center" height="30" valign="middle">
    <p align="center">
   

<% if kullanici<>rs2("KullAdi") then %>
    <font class="stilim"><a

href="getmes.asp?Kullanici=<%=rs2("KullAdi")%>&Gon deren=<%=Kullanici%>&GidUid=<%=rs2("UId")%>"

style="text-decoration: none">Mesaj Gönder</a></font></td></tr>
   <% end if %>
   <% end if %>
 

<%
rs2.movenext
loop
%>


</tr>
</table>
</div>


<div align="center">
<table width="85%" cellspacing="0" cellpadding="0" style="border-collapse: collapse"

bordercolor="#111111" border="0" bgcolor="#EEF2F7">
<tr>
<td>
<font class="stilim">
<p align="center">
<% Call SayfalariYaz %>
</p>
</font>
</td>
</tr>
</table>
</div>


<%=rs2.pagesize * (sayfa - 1) + 1 %> - <% =rs2.pagesize * (sayfa - 1) + sayacs
%>
<% rs2.close
baglanti.close
set baglanti=nothing
%>


<% end if %>


<br> 
<%
Sub SayfalariYaz()
dim i
if MaxSayfa <= 1 then exit sub
if sayfa <> 1 then
Response.Write "<font size='3' color='green'><a href=""?Sayfa=" & sayfa - 1 & """ class='leftmenu'

onFocus='this.blur()'><< Geri </a></font>"
Else
End If
for i=1 to MaxSayfa
  if sayfa = i then
response.write "<font size='3' color='red' class='stilim'>" & "<b>" & " " & i & "</b>"&"</font>"
else
response.write (" <a href=""?Sayfa="& "" & i & " "" class='leftmenu' onFocus='this.blur()'>" & " " &

i &"</a>")
 end if 
 next
 if Sayfa <> MaxSayfa then
 Response.Write "<font size='3' color='green'><a href=""?Sayfa=" & sayfa + 1 & """

class='leftmenu' onFocus='this.blur()'> İleri >></a></font>"
 else
Response.Write "<font size='2' color='red' class='stilim'> Son >|</font>"
end if
End Sub
%>
</body></html>



__________________
Serpil
Yukarı Dön Göster Serpilhanim's Özellikler Diğer Mesajlarını Ara: Serpilhanim
 
greyder
Üye
Üye


Kayıt Tarihi: 22-Mart-2007
Ülke: Türkiye
Gönderilenler: 90
Gönderen: 17-Eylül-2007 Saat 04:58 | Kayıtlı IP Alıntı greyder

Serpilhanım bir tablo hatası çıktı düzelttim inşaallah düzelir, ben deneyemiyorum veritabanı olması lazım elimde.(birazda aceleme geldi yine bakarız)

 

<%@ Language=VBScript Codepage=1254 %>
<%
KullAdi=Request.Querystring("KullAdi")
KullAdi=Replace(KullAdi,"'","")
%>
<%
Session.TimeOut=20
Kullanici=Session("Kullanici")
UId=Session.Contents("UId")
If Kullanici="" Then
Response.Redirect "index.asp"
else
End If
%>


<%
DB="DBQ=" & Server.Mappath("data/TabloMesaj.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open DB
Okundumu="Hayır"
Kullanicilar="SELECT * FROM TblKisi WHERE Gorunsun='Evet'"
MesajAl="SELECT *FROM TblMesaj WHERE UId='"&UId&"' AND Okundumu='Hayır';"
Set RSMesaj=Baglanti.Execute (MesajAl)
If RSMesaj.EOF OR RSMesaj.BOF Then
Sayac="0"
Else
Sayac=0
While Not RSMesaj.EOF
Sayac=Sayac+1
RSMesaj.MoveNext
Wend
End If
MesajSay="SELECT *FROM TblMesaj WHERE UId='"&UId&"'"
Set RSMSay=Baglanti.Execute (MesajSay)
If RSMSay.EOF OR RSMSay.BOF Then
ToplMesaj="0"
Else
ToplMesaj=0
While Not RSMSay.EOF
ToplMesaj=ToplMesaj+1
RSMSay.MoveNext
Wend
End If
%>


<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>ARKADAŞ ARAMA</title>


<script language="JavaScript">
function newWindow(mypage,myname,w,h,features) {
  if(screen.width){
  var winl = (screen.width-w)/2;
  var wint = (screen.height-h)/2;
  }else{winl = 0;wint =0;}
  if (winl < 0) winl = 0;
  if (wint < 0) wint = 0;
  var settings = 'height=' + h + ',';
  settings += 'width=' + w + ',';
  settings += 'top=' + wint + ',';
  settings += 'left=' + winl + ',';
  settings += features;
  win = window.open(mypage,myname,settings);
  win.window.focus();
}
</script>


<!--#include file="top.htm"-->


<%
DTarihi=Request.Form("DTarihi")
Cinsiyeti=Request.Form("Cinsiyeti")
if Cinsiyeti="*" then Cinsiyeti=""
Sehir=Request.Form("Sehir")
if Sehir="*" then Sehir=""
Tahsil=Request.Form("Tahsil")
if Tahsil="*" then Tahsil=""
DB="DBQ=" & Server.Mappath("data/TabloMesaj.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open DB


if DTarihi="15-20" then
 ss="Select * from tbluye where DTarihi between '15' and '20' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
if DTarihi="21-25" then
 ss="Select * from tbluye where DTarihi between '21' and '25' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
if DTarihi="26-30" then
 ss="Select * from tbluye where DTarihi between '26' and '30' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
if DTarihi="31-35" then
 ss="Select * from tbluye where DTarihi between '31' and '35' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
if DTarihi="36-40" then
 ss="Select * from tbluye where DTarihi between '36' and '40' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
if DTarihi="41-45" then
 ss="Select * from tbluye where DTarihi between '41' and '45' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
if DTarihi="46-50" then
 ss="Select * from tbluye where DTarihi between '46' and '50' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
if DTarihi="51-55" then
 ss="Select * from tbluye where DTarihi between '51' and '55' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
if DTarihi="56-60" then
 ss="Select * from tbluye where DTarihi between '56' and '60' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
if DTarihi="61-65" then
 ss="Select * from tbluye where DTarihi between '61' and '65' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
if DTarihi="66-99" then
 ss="Select * from tbluye where DTarihi between '66' and '99' and Cinsiyeti Like

'%"&Cinsiyeti&"' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 else
 ss="SELECT * FROM TblUye WHERE Cinsiyeti Like '%"&Cinsiyeti&"' AND DTarihi Like

'%"&DTarihi&"%' AND Tahsil Like '%"&Tahsil&"%' order by DTarihi"
 end if
 end if
 end if
 end if
 end if
 end if
 end if
 end if
 end if
 end if
 end if
Set rs2 = server.CreateObject("ADODB.Recordset")
rs2.Open ss, Baglanti, 1,3
%>


<%
If rs2.BOF and rs2.EOF Then%>
<h3 align="center">Kayıt Bulunamadı!</h3>


<%ELSE%>
<%
rs2.pagesize=20
dim sayfa, maxsayfa
maxsayfa= rs2.recordcount / rs2.pagesize
if maxsayfa > Int(maxsayfa) then maxsayfa = Int(maxsayfa) +1
sayfa=request("sayfa") + 0
if sayfa>maxsayfa then sayfa=maxsayfa
if sayfa<1 then sayfa=1
rs2.absolutepage=sayfa
dim sayacs
sayacs=0
%>


<div align="center">
<table width="85%" cellspacing="0" cellpadding="0" style="border-collapse: collapse"

bordercolor="#111111" border="0" bgcolor="#EEF2F7">
<tr>
<td>
<font class="stilim">
<p align="center">
<% Call SayfalariYaz %></p>
</font>
</td>
</tr>
</table>
</div>


<div align="center">
  <table bordercolor="#C0C0C0" style="border-collapse: collapse" cellpadding="0" cellspacing="0"

bgcolor="#FFFFFF" border="2" width="85%">
  <TR>
<td width="3%" bgcolor="#FFCCCC" align="center"><img border="0" src="foto/foto2.jpg"></td>
<td width="17%" bgcolor="#FFCCCC" align="center"><font class="stilim">Nick</font></td>
<td width="7%" bgcolor="#FFCCCC" align="center"><font class="stilim">Cinsiyet</font></td>
<td width="5%" bgcolor="#FFFFFF" align="center"><font class="stilim">Yaş</font></td>
<td width="5%" bgcolor="#FFCCCC" align="center"><font class="stilim">Boy</font></td>
<td width="5%" bgcolor="#FFCCCC" align="center"><font class="stilim">Kilo</font></td>
<td width="10%" bgcolor="#FFCCCC" align="center"><font class="stilim">Eğitim</font></td>
<td width="20%" bgcolor="#FFCCCC" align="center"><font class="stilim">Şehir</font></td>
<td width="14%" bgcolor="#FFCCCC" align="center"><p align="center"><font

class="stilim">Mesaj</font></td>
</tr>


<%do while not rs2.eof
if sayacs >= rs2.pagesize then exit do
 sayacs = sayacs + 1
%>


<%
if rs2("cinsiyeti")="Bay" then%>
<tr valign="top">
  <td width="3%" background="bay.jpg" align="center" height="30" valign="middle">
  <% if rs2("filename")<>"" then %>
  <center><img src="foto/24.jpg"></a></center>
  <%else%>
  <%end if%>   </td>
  <td width="17%" background="bay.jpg" align="center" height="30" valign="middle"><font

class="stilim"><a href="#" title="Üyeyi Daha İyi Tanı"

onClick="MM_openBrWindow('Profil.asp?KullAdi=<%=rs2("Kull Adi")%>','Profil','scrollbars=yes,width=700

,height=550')"><%=rs2("KullAdi")%></a></fo nt></td>
  <td width="7%" background="images/bay.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("Cinsiyeti")%></font>&l t;/td>
  <td width="5%" background="images/bay.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("DTarihi")%></font>< /td>
  <td width="5%" background="images/bay.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("Boy")%></font></td& gt;
  <td width="5%" background="images/bay.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("Kilo")%></font></td >
  <td width="10%" background="images/bay.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("Tahsil")%></font></ td>
  <td width="20%" background="images/bay.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("Sehir")%></font></t d>
  <td width="13%" background="images/bay.jpg" align="center" height="30" valign="middle">
    <p align="center">
   

<% if kullanici<>rs2("KullAdi") then %>
    <font class="stilim"><a

href="getmes.asp?Kullanici=<%=rs2("KullAdi")%>&Gon deren=<%=Kullanici%>&GidUid=<%=rs2("UId")%>"

style="text-decoration: none">Mesaj Gönder</a></font></td></tr>
   <% end if %>
   <% end if %>
  

<% if rs2("cinsiyeti")="Bayan" then%>
   <tr valign="top">
  <td width="3%" background="bayan.jpg" align="center" height="30" valign="middle">
  <% if rs2("filename")<>"" then %>
  <center><img src="foto/24.jpg"></center>
  <%else%>
  <%end if%></td>
  <td width="17%" background="images/bayan.jpg" align="center" height="30" valign="middle"><font

class="stilim"><a href="#" title="Üyeyi Daha İyi Tanı"

onClick="MM_openBrWindow('Profil.asp?KullAdi=<%=rs2("Kull Adi")%>','Profil','scrollbars=yes,width=700

,height=550')"><%=rs2("KullAdi")%></a></fo nt></td>
  <td width="7%" background="images/bayan.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("Cinsiyeti")%></font>
 
  </td>
  <td width="5%" background="images/bayan.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("DTarihi")%></font>< /td>
  <td width="5%" background="images/bayan.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("Boy")%></font></td& gt;
  <td width="5%" background="images/bayan.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("Kilo")%></font></td >
  <td width="10%" background="images/bayan.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("Tahsil")%></font></ td>
  <td width="20%" background="images/bayan.jpg" align="center" height="30" valign="middle"><font

class="stilim"><%=rs2("Sehir")%></font></t d>
  <td width="13%" background="images/bayan.jpg" align="center" height="30" valign="middle">
    <p align="center">
   

<% if kullanici<>rs2("KullAdi") then %>
    <font class="stilim"><a

href="getmes.asp?Kullanici=<%=rs2("KullAdi")%>&Gon deren=<%=Kullanici%>&GidUid=<%=rs2("UId")%>"

style="text-decoration: none">Mesaj Gönder</a></font></td></tr>
   <% end if %>
   <% end if %>
 

<%
rs2.movenext
loop
%>


</tr>
</table>
</div>


<div align="center">
<table width="85%" cellspacing="0" cellpadding="0" style="border-collapse: collapse"

bordercolor="#111111" border="0" bgcolor="#EEF2F7">
<tr>
<td>
<font class="stilim">
<p align="center">
<% Call SayfalariYaz %>
</p>
</font>
</td>
</tr>
</table>
</div>


<%=rs2.pagesize * (sayfa - 1) + 1 %> - <% =rs2.pagesize * (sayfa - 1) + sayacs
%>
<% rs2.close
baglanti.close
set baglanti=nothing
%>


<% end if %>


<br> 
<%
Sub SayfalariYaz()
dim i
if MaxSayfa <= 1 then exit sub
if sayfa <> 1 then
Response.Write "<font size='3' color='green'><a href=""?Sayfa=" & sayfa - 1 & """ class='leftmenu'

onFocus='this.blur()'><< Geri </a></font>"
Else
End If
for i=1 to MaxSayfa
  if sayfa = i then
response.write "<font size='3' color='red' class='stilim'>" & "<b>" & " " & i & "</b>"&"</font>"
else
response.write (" <a href=""?Sayfa="& "" & i & " "" class='leftmenu' onFocus='this.blur()'>" & " " &

i &"</a>")
 end if
 next
 if Sayfa <> MaxSayfa then
 Response.Write "<font size='3' color='green'><a href=""?Sayfa=" & sayfa + 1 & """

class='leftmenu' onFocus='this.blur()'> İleri >></a></font>"
 else
Response.Write "<font size='2' color='red' class='stilim'> Son >|</font>"
end if
End Sub
%>
</body></html>

Yukarı Dön Göster greyder's Özellikler Diğer Mesajlarını Ara: greyder Ziyaret greyder's Ana Sayfa
 
ozgrguzel
Yeni Üye
Yeni Üye


Kayıt Tarihi: 02-Kasım-2007
Ülke: Turkiye
Gönderilenler: 1
Gönderen: 02-Kasım-2007 Saat 20:33 | Kayıtlı IP Alıntı ozgrguzel

greyder Yazdı:
kodları gönderirmisin bi inceleyelim.


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

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,0625 Saniyede Yüklendi.