%
if Len(Session("id"))= 0 then
Response.redirect "default.asp"
end if
%>
| |
RESİM EKLE - (Kategori Seçiniz) |
 |
<%
Dim kRS
Set kRS = Bag.Execute("SELECT adi,katid FROM AlbumKat WHERE adi <> '' ORDER BY adi ASC")
While Not kRS.EOF
%>
|
<%
If Not kRS.EOF Then
kRS.MoveNext
End If
If Not kRS.EOF then
%> |
<%End If %> |
<%
If Not kRS.EOF Then
kRS.MoveNext
End If
If Not kRS.EOF Then
%>
<%End If%> |
<%
If Not kRS.EOF Then
kRS.MoveNext
End If
Wend
kRS.Close
Set kRS = Nothing
%>
|
 |