<%
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 Ajanda where id = " & sID, oConn, 1, 3
Select Case Request.QueryString("eylem")
Case "duzenle"
oRS("baslik").Value = Request.Form("resim")
oRS("aciklama").Value = Request.Form("resims")
End Select
oRS.Update
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
Response.Redirect "etkinlik.asp"
End If
%>
<%
Dim sGifUrl, sGifUrlSmall, nSelectedCat, nSendCount
If Request.QueryString("eylem") = "duzenle" Then
Dim oRS2
Set oRS2 = oConn.Execute( "select * from Ajanda where id = " & Request.QueryString("resid") )
resim = oRS2("baslik").Value
resims = oRS2("aciklama").Value
oRS2.Close
End If
%>
- Admin Bölümü