<%

Set ObjCon_ilet = Server.CreateObject("ADODB.Connection")
ObjCon_ilet.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("deneme.mdb")

%>

<%
Set ObjRs=Server.CreateObject("adodb.recordset")
strSQL="Select * From musteri id order by id desc"
ObjRs.Open StrSql, ObjCon_ilet, 1, 3
%>

<div align="center">
<center>

<table width="713" border="0">
<tr>
<td width="20">&nbsp;</td>
<td width="201"><div align="center"><font color="#333333" size="2" face="Tahoma">Adı Soyadı </font></div></td>
<td width="223"><div align="center"><font color="#333333" size="2" face="Tahoma">Firma Bilgileri </font></div></td>
<td width="177"><div align="center"><font color="#333333" size="2" face="Tahoma">Email Adresi </font></div></td>
<td width="42"><div align="center"><font color="#333333" size="2" face="Tahoma">Detay</font></div></td>
<td width="24"><div align="center"><font color="#333333" size="2" face="Tahoma">Sil</font></div></td>
</tr>

<div align="center">
<tr>
<td>
<font face="Tahoma" size="2" color="#FFFFFF">
<br>
<%
If ObjRs.eof or ObjRs.bof then
Response.Write "<font face=verdana size=2 color=#ff3300><b><center><br>Kayıtlı musteri yok.</br></center></b></font>"
Response.end
end if
sayfa = Request.QueryString("sayfa" )
If sayfa="" Then sayfa=1
ObjRs.pagesize = 2
ObjRs.absolutepage = sayfa
sayfa_sayisi = ObjRs.pagecount
for i=1 to ObjRs.pagesize
if ObjRs.eof then
exit for
end if
%>
<tr>
<td width="20" style="border: 1px dotted #C0C0C0"><div align="center"><img src="img/uye.gif" /></div></td>
<td width="201" style="border: 1px dotted #C0C0C0"><div align="left"><font color="#0066CC" size="1.5" face="Tahoma">&nbsp;<%=ObjRs("adi")%>&nbsp;<%=ObjR s("soyadi")%></font></div></td>
<td width="223" style="border: 1px dotted #C0C0C0"><div align="left"><font color="#0066CC" size="1.5" face="Tahoma">&nbsp;<%=ObjRs("firma")%></font></div></td>
<td width="177" style="border: 1px dotted #C0C0C0"><div align="left"><font color="#0066CC" size="1.5" face="Tahoma">&nbsp;<%=ObjRs("email")%></font></div></td>
<td width="42" style="border: 1px dotted #C0C0C0"><div align="center">
<p align="center"><font size="2" face="Tahoma"><a href="musteri_detay.asp?id=<%=ObjRs("id")%>"><img border="0" src="img/detay.gif" /></a></font></p>
</div></td>
<td width="24" style="border: 1px dotted #C0C0C0"><div align="center">
<p align="center"><font size="2" face="Tahoma"><a href="musteri_sil.asp?id=<%=ObjRs("id")%>"><img border="0" src="img/sil.gif" /></a></font></p>
</div></td>
</tr>
<%
ObjRs.movenext
next
response.Write "Sayfa: "
for g = 1 to sayfa_sayisi
if g = cint(sayfa ) then
response.write g& " " %><% else
response.Write "<a href=?sayfa=" & g & ">" & g & "</a> "
end if
next
ObjRs.Close:ObjCon_ilet.close
%>
</div>
<tr>
<td> </td>
<tr>
<td> </tr>

</table>



<br />
<a href="banka_ekle.asp"></a><br />
<div align="right"><br />
</div>
<div align="right"></div>
<div align="center"><br />
</div>