%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% if session("logado") <> "T" then Response.Redirect "adm.asp" if trim(request.Form("txtDesc")) <> "" then sSQL = "insert into DOWNLOADS(DESCRI,ATIVO,CURSO) values ('" & trim(request.Form("txtDesc")) & "',1,'" & Request.Form("cboCurso") & "')" 'Response.Write(sSQL) : Response.End() oBD.execute sSQL end if if request("excluir") <> "" then sSQL = "Update DOWNLOADS Set Ativo=0 where DOWID=" & request("excluir") oBD.execute sSQL 'Response.Write(sSQL) end if %>
DOCUMENTOS
<% sSQL = "Select DOWID,FILE,DESCRI,CURSO from DOWNLOADS where ATIVO=1 order by DATA desc" call AbreRS(sSQL) if not rs.eof then %>Uploads realizados | ||
<%= rs(1) & " - " & rs(2) %> | ');">Fazer Upload do arquivo | Excluir |
<% call fechars(rs) call fechabd(oBD) %>