yardım veritabanı listeleme

<!---- #include file="vt.asp" ---->

<%
urun= Request.QueryString("urun")
set rs = server.CreateObject("adodb.recordset")
sql = "select * from urunler where urun='"&urun&"' "
rs.Open sql, baglanti, 1, 3


if rs.eof and rs.bof then
 response.write("<p align='center'><br>Hiç Kayıt Girilmemiş</p>")
 response.end
end if


page = request.querystring("page")
if page="" then page="1"
rs.pagesize = "40"
rs.absolutepage = page
pages = rs.pagecount


%>
<% 
SiraSayisi = 3
%> 


tablo başlangıç kodları


<% for i = 1 to rs.pagesize
if rs.eof then exit for%> 
---- dögüyle yanyana dizeceğin tablo kodları----

---- verileri <%=rs("veriadi")%>  gibi çekersin ----
<% 
If i mod SiraSayisi = 0 Then 
Response.Write "</tr><tr>" 
End If 
rs.movenext
Next 
%>


tablo bitiş kodları