<html>
<head>
<style>
A:Link {color:000000;text-decoration:none;}
A:Visited {color:000000;text-decoration:none;}
A:Hover {color:F70404;}
</style>
</HEAD>
<BODY TEXT="#000000" BGCOLOR="#FFFFFF" LINK="#000000" VLINK="#000000" ALINK="#F70404">
<b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">MÜSTAHSİLLER</font>
<HR WIDTH=100% size=1 COLOR="#000000">
<a href="?i=8&b_harf=A">A</a>|<a href="?i=8&b_harf=B">B</a>|<a href="?i=8&b_harf=C">C</a>|<a href="?i=8&b_harf=Ç">Ç</a>|<a href="?i=8&b_harf=D">D</a>|<a href="?i=8&b_harf=E">E</a>|<a href="?i=8&b_harf=F">F</a>|<a href="?i=8&b_harf=G">G</a>|<a href="?i=8&b_harf=H">H</a>|<a href="?i=8&b_harf=I">I</a>|<a href="?i=8&b_harf=İ">İ</a>|<a href="?i=8&b_harf=J">J</a>|<a href="?i=8&b_harf=K">K</a>|<a href="?i=8&b_harf=L">L</a>|<br><a href="?i=8&b_harf=M">M</a>|<a href="?i=8&b_harf=N">N</a>|<a href="?i=8&b_harf=O">O</a>|<a href="?i=8&b_harf=Ö">Ö</a>|<a href="?i=8&b_harf=P">P</a>|<a href="?i=8&b_harf=R">R</a>|<a href="?i=8&b_harf=S">S</a>|<a href="?i=8&b_harf=Ş">Ş</a>|<a href="?i=8&b_harf=T">T</a>|<a href="?i=8&b_harf=U">U</a>|<a href="?i=8&b_harf=Ü">Ü</a>|<a href="?i=8&b_harf=V">V</a>|<a href="?i=8&b_harf=Y">Y</a>|<a href="?i=8&b_harf=Z">Z</a>|
<HR WIDTH=100% size=1 COLOR="#000000">
<%
B = ("319.01.001.01" )
K = ("319.01.999.99" )
b_harf = Request("b_harf" )
dim i
Set Bag = Server.CreateObject("ADODB.Connection" )
Bag.Open ("Driver={SQL Server};" & "Server=BIZIMSERVER;" & _
"Address=000.000.000.000,0000;" & _
"Network=DBMSSOCN;" & _
"Database=VERITABANIM;" & _
"Uid=sa;" )
Set RS = Server.CreateObject("ADODB.RecordSet" )
RS.Open "SELECT * FROM KARTLARIM WHERE CODE > '" & B & "'AND CODE < '" & K & "' AND DEFINITION_ LIKE '" & b_harf & "%' " ,BAG,1,3
sayfa = Request.QueryString("sayfa" )
If sayfa="" Then sayfa=1
rs.pagesize = 20
rs.absolutepage = sayfa
sayfa_sayisi = rs.pagecount
For i=1 To rs.pagesize
If rs.Eof Then
exit for
End If
%>
<a href="rapor.asp?verilerim=<%=RS("DEFINITION_" ) %>" target="main">
<IMG SRC="images/folder.gif" BORDER="0" ALT="<%=RS("DEFINITION_" ) %>"></A>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<a href="rapor.asp?verilerim=<%=RS("DEFINITION_" ) %>" target="main"><%=RS("DEFINITION_" ) %></A><BR>
<%
rs.Movenext
Next
%>
<HR WIDTH=100% size=1 COLOR="#000000">
<%
response.Write "Sayfa: "
For g = 1 to sayfa_sayisi
If g = CInt(sayfa) Then
response.write g& " "
Else
response.Write "<a href=menu22.asp?sayfa=" & g & "&b_harf=" & b_harf & ">" & g & "</a> "
End If
Next
rs.Close
Set rs = Nothing
%>
<HR WIDTH=100% size=1 COLOR="#000000">
</b>
</FONT>
</body>
</html>
Kaynak : forum.maxiasp.com