KİTAP KAYIT
<% set conn = Server.CreateObject("ADODB.Connection") conn.open "kitapdb" Sqlyazar = "Select * from yazar" set rsyazar = conn.Execute(Sqlyazar) Sqlyayin = "Select * from yayinevi" set rsyayin = conn.Execute(Sqlyayin) if request("Kaydet")="Kaydet" then Sql_kayit="INSERT INTO kitap (kitap_adi,yazar_id,yayinevi_id,sayfa) VALUES ('"& request("kitap_adi") &"',"& request("yazar") &","& request("yayinevi") &","& request("sayfa") &")" conn.Execute(Sql_kayit)%>
KAYIT İŞLEMİ TAMAMLANMISTIR
<%else%>
Yazar Adı..:
Yazar Adını Seçiniz <%while not rsyazar.eof%>
"><%=rsyazar("yazar_adi")%> <% rsyazar.movenext wend %>
Yayınevi Adı..:
Yayinevi Adını Seçiniz <%while not rsyayin.eof%>
"><%=rsyayin("yayinevi_adi")%> <% rsyayin.movenext wend %>
Kitap Adı..:
Sayfa Sayısı..:
<%end if %>