%@Language=VBScript%> <%Option Explicit Response.Buffer=true%> <% Dim DataInicioGincana Dim DataFimGincana Dim CodigoGincana Dim DadosGincana Dim TituloGincana Dim ComoParticipar Dim Regulamento Dim Premio Dim Descricao Dim rsRetGincana Dim Adocon Dim Ok Dim Mensagem Dim Dia Dim Mes Dim Ano Dim Gincana Dim rsGincana Dim GincanaValida set rsGincana = server.CreateObject("adodb.recordset") rsGincana.CursorLocation = 3 set Gincana = new tGincana 'Recupera os Dados da Gincana através do TControleGincana.TGincana Gincana.DataFim = Date() Gincana.DataInicio = Date() 'Response.Write DadosGincana.DataFim On error resume next Ok=Gincana.ObtemComFiltros(rsGincana) rsGincana.Open if ok then if not rsGincana.EOF then ' existe uma promocao com data valida 'Response.Write "codigo " & rsGincana("CodGcn") 'Response.Write "achou " 'Response.End GincanaValida=true else 'Response.Write "não achou " 'Response.End GincanaValida=false end if else set rsGincana = nothing set Gincana = nothing Response.Redirect ("../mensagem.asp?Erro=-14&href="&server.URLEncode("/promocao/index.asp")) end if if GincanaValida then 'DataInicioGincana = Request.QueryString("DataInicioGincana") CodigoGincana = Request.QueryString("CodigoGincana") If CodigoGincana<>"" then session("Gincana")=CodigoGincana else CodigoGincana=session("Gincana") end if 'set Adocon = Server.CreateObject("adodb.connection") 'Adocon.Open strConexao set rsRetGincana = server.CreateObject("adodb.recordset") rsRetGincana.CursorLocation = 3 set DadosGincana = new tControleGincana Set DadosGincana.Conexao = Adoconexao 'Recupera os Dados da Gincana através do TControleGincana.TGincana 'Response.Write "CodigoGincana " & CodigoGincana call DadosGincana.RecuperaDadosGincana(CodigoGincana, rsRetGincana) on error resume next 'Response.Write "Erro " & cdbl(Err.number) 'Response.End rsRetGincana.Open If cdbl(Err.number) = 0 then If not (rsRetGincana.BOF and rsRetGincana.EOF ) Then Session("CodigoGincana") = rsRetGincana("CodGcn") CodigoGincana = Session("CodigoGincana") TituloGincana = rsRetGincana("TitGcn") ComoParticipar = rsRetGincana("ArqComoParticipar") Regulamento = rsRetGincana("ArqRegulamento") Premio = rsRetGincana("ArqPremio") Descricao = rsRetGincana("DscGcn") DataInicioGincana = rsRetGincana("DtaIni") if DataInicioGincana<> "" then Dia = right(DataInicioGincana,2) Mes = left(right(DataInicioGincana,4),2) Ano = left(DataInicioGincana,4) end if 'Response.Write "INI " & DataInicioGincana & "_"& Dia &"_"& mes &"_"& ano DataInicioGincana = Dia &"/"& mes &"/"& ano Dia="" Mes="" Ano="" DataFimGincana = rsRetGincana("DtaFim") if DataFimGincana<> "" then Dia = right(DataFimGincana,2) Mes = left(right(DataFimGincana,4),2) Ano = left(DataFimGincana,4) end if 'Response.Write "FIm " & DataFimGincana & "_"& Dia &"_"& mes &"_"& ano DataFimGincana = Dia &"/"& mes &"/"& ano end if else Response.Redirect ("../mensagem.asp?Erro=-14&href="&server.URLEncode("/promocao/index.asp")) end if 'set Adocon = nothing set rsRetGincana = nothing set DadosGincana = nothing end if %>