<%
if Len(Session("id"))= 0 then
Response.redirect "default.asp"
end if
%>
<%
Dim oConn
Set oConn = Baglanti()
Dim oRS
If Request.QueryString("kaydet")="evet" Then
Set oRS = Server.CreateObject("ADODB.Recordset")
Dim sID
sID = Request.QueryString("resid")
If sID = "" Then
sID = 0
Else
sID = CInt( sID)
End If
oRS.Open "select * from fotoalbum where resid = " & sID, oConn, 1, 3
Select Case Request.QueryString("eylem")
Case "yeni"
oRS.AddNew
oRS("resim").Value = Request.Form("resim")
oRS("resims").Value = Request.Form("resims")
oRS("katid").Value = Request.Form("katid")
oRS("hit").Value = Request.Form("hit")
Case "duzenle"
oRS("resim").Value = Request.Form("resim")
oRS("resims").Value = Request.Form("resims")
oRS("katid").Value = Request.Form("katid")
oRS("hit").Value = Request.Form("hit")
Case "sil"
oRS.Delete
End Select
oRS.Update
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
Response.Redirect "album.asp?katid=" & Request.QueryString("katid")
End If
%>
<%
Dim sGifUrl, sGifUrlSmall, nSelectedCat, nSendCount
If Request.QueryString("eylem") = "duzenle" Then
Dim oRS2
Set oRS2 = oConn.Execute( "select * from fotoalbum where resid = " & Request.QueryString("resid") )
resim = oRS2("resim").Value
resims = oRS2("resims").Value
secilikatid = oRS2("katid").Value
hit = oRS2("hit").Value
oRS2.Close
Else
secilikatid = -1
secilikatid = Request.QueryString("katid")
If secilikatid = "" Then
secilikatid = Request.Form("katid")
End If
nHit = 0
End If
%>
<%=ekart_baslik%> - Admin Bölümü
<%
Dim sURL
sURL = "album_duzenle.asp?kaydet=evet&eylem=" & Request.QueryString("eylem")
If Request.QueryString("eylem") <> "yeni" Then
sURL = sURL & "&katid=" & Request.QueryString("katid") & "&resid=" & Request.QueryString("resid")
End If
%>