<% if Len(Session("id"))= 0 then Response.redirect "default.asp" end if %>

Mevcut Resimler <% Set oConn = Baglanti() Dim secilikatid secilikatid = -1 If Request.QueryString("katid") <> "" Then secilikatid = Request.QueryString("katid") End if If Request.Form("katid") <> "" Then secilikatid = Request.Form("katid") End if %>

<% sSQL = "select * from fotoalbum " If secilikatid <> -1 Then sSQL = sSQL & "where katid=" & secilikatid & "" End If Set oRS = oConn.Execute(sSQL) While Not oRS.EOF %> <% If Not oRS.EOF Then oRS.MoveNext End If Wend oRS.Close Set oRS = Nothing %>

Resim	Ekleme Tarihi	Eylem
" target="_blank">" width="86" height="64" border="0">	<%=oRS("tarih")%>	" class="error">Sil