<% session.timeout = 24*60 server.scripttimeout = 999999999 'adicionado para depois de encerrado so é possivel inserir inscricoes a partir do adm if Session("logado")<>"ok" then 'Response.Redirect "index.asp" end if '@ CHAMA PROCEDURE 'setamos o COMMAND do ADO Set cmd = Server.CreateObject("ADODB.Command") 'seta a conexao ativa para o objeto Set cmd.ActiveConnection = Conn 'passamos o nome da stored procedure cmd.CommandText = "SPSIMPOSIO_CORRENTE" 'passamos o parametro de execucao do commando, 4 refere-se a procedure cmd.CommandType = 4 cmd.Parameters.Refresh cmd.execute 'a variavel RETURN retorna se o simulado esta ativo IC_ATIVO = cmd.Parameters("@IC_ATIVO") CD_CONTROLE = cmd.Parameters("@CD_CONTROLE") SESSION("CD_CONTROLE") = CD_CONTROLE 'descarregamos o objeto Set cmd=nothing 'fechamos a conexao.. Conn.close 'adicionado para forcar CD_CONTROLE = 15 IC_ATIVO = 15 IF IC_ATIVO = "" OR ISNULL(IC_ATIVO) THEN 'response.Redirect("inscricao_encerradas.asp") 'response.Write("fechado") END IF %>

Resumo

<%Session.Codepage=65001%> <% sqlstring = "SELECT cd_conteudo,nm_nome, ds_email, nm_ext, nm_titulo, dt_conteudo, cd_ativo, ds_tamanho, nm_autores, ic_tipo, cd_visivel from trabalho where ic_tipo = 1 and cd_aprovado = '1' and cd_controle = '15' and cd_conteudo not in ('240') order by dt_conteudo" Set objRS = Server.CreateObject("ADODB.Recordset") Set objRS.ActiveConnection = Conn objRS.Open sqlstring %> <% 'Session.Codepage=65001 While NOT objRS.EOF tem = 1 cd_visivel = trim(objRS("cd_visivel")) dt_conteudo = trim(objRS("dt_conteudo")) ano_ativa_arquivo = Left(dt_conteudo, 4) mes_ativa_arquivo = Mid(dt_conteudo, 5, 2) dia_ativa_arquivo = Mid(dt_conteudo, 7, 2) ativa_arquivo = dia_ativa_arquivo&"/"&mes_ativa_arquivo&"/"&ano_ativa_arquivo cd_conteudo = objRS("cd_conteudo") nm_ext = objRS("nm_ext") arquivo = cd_conteudo&"."&nm_ext icone = "imagens/"&trim(nm_ext)&".jpg" %> <% objRS.MoveNext() Wend %>
Cod
Titulo do trabalho
Visualizar
<%=trim(objRS("cd_conteudo"))%>
 <%=trim(objRS("nm_titulo"))%>
<%if cd_visivel = 1 then%> <%end if%>

<% Conn.Close Set Conn = Nothing %>

Resumo Expandido

<% sqlstring = "SELECT cd_conteudo,nm_nome, ds_email, nm_ext, nm_titulo, dt_conteudo, cd_ativo, ds_tamanho, nm_autores, ic_tipo,cd_visivel from trabalho where ic_tipo = 2 and cd_aprovado = '1' and cd_controle = '15' order by dt_conteudo" Set objRS = Server.CreateObject("ADODB.Recordset") Set objRS.ActiveConnection = Conn objRS.Open sqlstring %> <% While NOT objRS.EOF tem = 1 cd_visivel = trim(objRS("cd_visivel")) dt_conteudo = trim(objRS("dt_conteudo")) ano_ativa_arquivo = Left(dt_conteudo, 4) mes_ativa_arquivo = Mid(dt_conteudo, 5, 2) dia_ativa_arquivo = Mid(dt_conteudo, 7, 2) ativa_arquivo = dia_ativa_arquivo&"/"&mes_ativa_arquivo&"/"&ano_ativa_arquivo cd_conteudo = objRS("cd_conteudo") nm_ext = objRS("nm_ext") arquivo = cd_conteudo&"."&nm_ext icone = "imagens/"&trim(nm_ext)&".jpg" %> <% objRS.MoveNext() Wend %>
Cod
Titulo do trabalho
Visualizar
<%=trim(objRS("cd_conteudo"))%>
 <%=trim(objRS("nm_titulo"))%>
<%if cd_visivel = 1 then %> <%end if%>
<% Conn.Close Set Conn = Nothing %>

<%if tem <> 1 then%>

 

 

 

<%response.Write("Em Breve")%> <%end if%>