KİTAP TABLOSU

<% set conn = Server.CreateObject("ADODB.Connection") conn.Open "kitapdb" Sqlliste="select * from kitap" set rsliste = conn.Execute(Sqlliste) %> <% rsliste.movefirst while not rsliste.eof Sqlyazar="select * from yazar where yazar_id="& rsliste("yazar_id") &"" set rsyazar = conn.Execute(Sqlyazar) Sqlyayinevi="select * from yayinevi where yayinevi_id="& rsliste("yayinevi_id") &"" set rsyayinevi = conn.Execute(Sqlyayinevi) %> <% rsliste.movenext wend %>

<%=rsliste("kitap_adi")%>

<%=rsyazar("yazar_adi")%>

<%=rsyayinevi("yayinevi_adi")%>

<%=rsliste("sayfa")%>

&yayinevi_id=<%= rsliste("yayinevi_id") %>&yazar_id=<%= rsliste("yazar_id") %>">Degistir

">Sil