<%@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 %> Downloads

DOCUMENTOS

<% sSQL = "Select DOWID,FILE,DESCRI,CURSO from DOWNLOADS where ATIVO=1 order by DATA desc" call AbreRS(sSQL) if not rs.eof then %> <% do while not rs.eof %> <% rs.MoveNext : Loop %>
Uploads realizados
<%= rs(1) & " - " & rs(2) %> ');">Fazer Upload do arquivo Excluir
<% end if %>

Novo Arquivo (documento) (informe algo na descrição/curso e salve p/ depois fazer o upload do arquivo)

Descrição:

Curso:

Voltar p/ menu principal

<% call fechars(rs) call fechabd(oBD) %>