<%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' MyDesign Haber
' http://www.mydesign.gen.tr
' Yönetim Sayfası Resimler Bölümü Kodları
' Son Düzenleme: 15 Ekim 2007 (v0.5)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'// Üye girişi kontrolü
strUyeKod = Request.Cookies(strCerezAdi)("uye")
strUyeKod = Temizle(strUyeKod)
If strUyeKod = "" Then
Response.Write "Bu sayfayı görüntüleme yetkiniz yok"
Response.End
Else
kdGenel.Open "SELECT uyeID, Kod FROM tblUyeler WHERE uyeID <> 2 AND Kod = '"& strUyeKod &"'", adoCon, 1, 3
If kdGenel.EOF Then
Response.Write "Bu sayfayı görüntüleme yetkiniz yok"
Response.End
End If
kdGenel.Close
End If
strTab = Temizle(Request.Querystring("tab"))
%>
Dosya Yükle
<%
If strTab = "resim_yukle" Then %>
<%
Else
kdGenel.Open "SELECT * FROM tblResimler ORDER BY Resim_ID DESC", adoCon, 1, 3
If Not kdGenel.Eof Then
intLooper = 0
Do While Not kdGenel.Eof %>