<% response.expires=-1 q = Request.QueryString("q") q=replace(q,"'","''") set rs = Server.CreateObject("ADODB.Recordset") filmlerimsorgusu = "SELECT * FROM filmlerim " select case q ' Tum liste aliniyor case " " ' Aranan kelimeye gore listeleniyor case else filmlerimsorgusu = filmlerimsorgusu & " WHERE Film_Name LIKE '%" & q & "%' " end select if session("userid") <> "" then filmlerimsorgusu = filmlerimsorgusu & " and Film_Owner='"&Session("username")&"' ORDER BY ID DESC" else filmlerimsorgusu = filmlerimsorgusu & "ORDER BY ID DESC" end if rs.open filmlerimsorgusu, conn %> <% if session("userid") = "" then%> <% end if%> <% if session("userid") <> "" then%> <% end if%> <% while not rs.eof %> <% if session("userid") = "" then%> <% end if%> <% if session("userid") <> "" then%> <% end if%> <% rs.moveNext wend rs.close set rs = nothing conn.close set conn = nothing %>

Filmin İsmi	Filmin Türü	Imdb Rating	Çıktığı Tarih	Yönetmen	Kayıt Türü	Ekleyen
'" rel="" class="vaTooltip"><%=rs("Film_Name")%>	<%=rs("Genre")%>	<%=rs("Imdb_Rating")%>	<%=rs("Film_Year")%>	<%=rs("Director")%>	<%=rs("Record_Type")%>	<%=rs("Film_Owner")%>	)" title="Filmin bilgilerini veritabanından çek ve bir percere içinde göster"/> ','<%=rs("Imdb_Address")%>')" title="Film bilgilerini imdb üzerinden güncelle"/> )" title="Film bilgilerini sil"/>