<%if session("USER")<>"joaoalberto@pc" and session("FUNCTION")<>"Marketing" then response.Redirect("main.asp")%>
<%
Function NewsGallery()
Set objFolder = objFSO.GetFolder(Server.MapPath("\eventos")&"\"&request.QueryString("id")&"\")
For Each objFile in objFolder.Files
response.write ""
next
'response.write ""'onclick='window.location.reload();'
'response.write "
"
'response.write ""
End Function
if request.QueryString("photo")<>"" then
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile(Server.MapPath("\eventos")&"\"&request.QueryString("folder")&"\"&request.QueryString("photo")&"")
f.Delete
Response.Redirect("main.asp?pag=news-edit.asp&id="&request.QueryString("folder")&"#photos")
end if
if request.form("title")<>"" then
sSql = "UPDATE EVENTOS SET"
sSql = sSql & " TITULO='" &request.Form("title")
sSql = sSql & "', TEXTO='" &request.Form("text")
sSql = sSql & "' WHERE ID="&request.QueryString("id")
Conn.Execute(sSql)
end if
%>
<%
sSql = "SELECT * FROM EVENTOS WHERE ID="&request.QueryString("id")&""
Set rs = Conn.Execute(sSql)
NewText=rs("TEXTO")
%>