problemas c/ datas na troca de servidor de hospedagem

[baruttipacheco 0]

Ola Pessoal,Gostaria de vcs. me ajudassem!Nao entendo nada de asp... e fui incumbido de trocar um site de um provedor de hospedagem p/ outro.As paginas deste site estao em .asp e a base de dados em access.Transferi todos os conteudos e constatei q. em uma determinada pagina os valores estao retornando incorretamente.Ja tentei setar LCID=1046... nao funcionouGlobal.asa ... nao funcionou...Verifiquei se o provedor poderia alterar as configuracoes regionais... e eles nao alteram!!!Pelo q. percebi, a uma inversao no dia c/ o mes.. e por este motivo a resposta vem incorreta.. somente qdo. o criterio da pesquisa é 01/01/2006 é q. da certo.. ja q. o dia é = ao mes.Por favor.. me ajudem... Agradeço,Segue codigo abaixo:<%@Language="vb script:print();"><img src="<%=request.cookies("polodedecoracao")("pasta")%>/icon_imprimir.gif" width="71" height="20" vspace="2" border="0"></a> <%end if%> </div></td> </tr> </table></td> </tr> <tr> <td colspan="2"><span class="textopreto11"><img src="<%=request.cookies("polodedecoracao")("pasta")%>/elemento_01.gif" width="100%" height="1"></span></td> </tr> <tr class="links11vermelho"> <td colspan="2" align="center" valign="top"> <div align="left"> <% Dim Loja Set Loja = Conn.Execute("select * from Tab_Lojista where Codigo_Loja = " & Session("UserID")) %> <table width="100%" border="0" cellpadding="4" cellspacing="2"> <tr bgcolor="#F4F4F4"> <td width="35%" bgcolor="#EBEBEB"><font size="2" face="Arial, Helvetica, sans-serif" class="textopreto11"><strong> Loja:</strong> <%=Loja("Nome_Fantasia")%> </font></td> <td width="36%" bgcolor="#EBEBEB"><font size="2" face="Arial, Helvetica, sans-serif" class="textopreto11"><strong> Resp:</strong> <%=Loja("Representante")%> </font></td> <td width="29%" bgcolor="#EBEBEB"> <div align="right"> <table border="0" cellspacing="3" cellpadding="0"> <form name="form1" method="post" action="iframe_lojrelatorio.asp"> <tr> <td align="right" class="textopreto11">Referência:</td> <td align="right" class="links11vermelho"> <font size="2" face="Arial, Helvetica, sans-serif" class="tirulo12preto"> <select name="referencia" id="referencia" class="formularios"> <% Dim Plan, I Set Plan = Conn.Execute("select * from Tab_Plano where Codigo_Plano = " & Plano) For I = 0 To DateDiff("M", Plan("DataInicial"), Plan("DataFinal")) If CDate(DataRef) = CDate("1/" & Month(DateAdd("M", I, Plan("DataInicial"))) & "/" & Year(DateAdd("M", I, Plan("DataInicial")))) Then Response.Write "<option value=""" & "1/" & Month(DateAdd("M", I, Plan("DataInicial"))) & "/" & Year(DateAdd("M", I, Plan("DataInicial"))) & """ selected>" & NomeDoMes(Month(DateAdd("M", I, Plan("DataInicial")))) & "/" & Year(DateAdd("M", I, Plan("DataInicial"))) & "</option>" & vb script:form1.action='iframe_lojrelatorio.asp?selref=1';form1.submit();" class="links11"> <img src="<%=request.cookies("polodedecoracao")("pasta")%>/elemento_seta.gif" width="9" height="6" border="0"> OK</a> </font></td> </tr> </form> </table> </div></td> </tr> </table> <div align="center"> <% Loja.Close Set Loja = Nothing %> <% If Not DataRef = "" Then %> </div> <table width="100%" border="0" cellspacing="2" cellpadding="4"> <tr align="right"> <td colspan="2"></td> </tr> <tr bgcolor="#F4F4F4"> <td width="48%"><font size="2" face="Arial, Helvetica, sans-serif" class="textopreto11"><strong> Prof. Cadastrados:</strong> <% Dim ProfCadas, NProf Set ProfCadas = Conn.Execute("select count(Codigo_Profissional) as NProf from Tab_profissionais") Response.Write ProfCadas("NProf") NProf = ProfCadas("NProf") ProfCadas.Close Set ProfCadas = Nothing %> </font></td> <td width="52%"><font size="2" face="Arial, Helvetica, sans-serif" class="textopreto11"><strong> Pontuação:</strong> <% Dim PontosMes Set PontosMes = Conn.Execute("SELECT Sum(Tab_pontuacao.Pontos)as Pontos " _ & "FROM Tab_pontuacao " _ & "WHERE (((Tab_pontuacao.Data_Validade) = CDATE('" & DataRef & "'))) And Tab_pontuacao.Codigo_plano = " & Plano & " ") Response.Write PoePonto(PontosMes("Pontos")) PontosMes.Close Set PontosMes = Nothing %> </font></td> </tr> <tr bgcolor="#F4F4F4"> <td><font size="2" face="Arial, Helvetica, sans-serif" class="textopreto11"><strong> Prof. Pontuados Mês:</strong> <% Dim PontuadosMes , NPontMes Set PontuadosMes = Conn.Execute("SELECT Count(a.Codigo_Profissional) AS ContarDeCodigo_Profissional " _ & "FROM [sELECT Tab_pontuacao.Codigo_Profissional " _ & "FROM Tab_pontuacao " _ & "WHERE (((Tab_pontuacao.Data_Validade) = CDATE('" & DataRef & "'))) And Tab_pontuacao.Codigo_plano = " & Plano & " " _ & "GROUP BY Tab_pontuacao.Codigo_Profissional]. AS a;") Response.Write PontuadosMes("ContarDeCodigo_Profissional") NPontMes = PontuadosMes("ContarDeCodigo_Profissional") PontuadosMes.Close Set PontuadosMes = Nothing %> = <% Response.Write Fix((NPontMes / NProf)*100) & "%" %> </font></td> <td bgcolor="#F4F4F4"><font size="2" face="Arial, Helvetica, sans-serif" class="textopreto11"><strong> Pontuação no Plano:</strong> <% Dim PontosPlano Set PontosPlano = Conn.Execute("SELECT Sum(Tab_pontuacao.Pontos)as Pontos " _ & "FROM Tab_pontuacao " _ & "WHERE Tab_pontuacao.Codigo_plano = " & Plano & " And Tab_pontuacao.Data_Validade < CDate('" & DateAdd("M", 1, DataRef) & "') ") Response.Write PoePonto(PontosPlano("Pontos")) PontosPlano.Close Set PontosPlano = Nothing %> </font></td> </tr> <tr bgcolor="#F4F4F4"> <td height="18"><font size="2" face="Arial, Helvetica, sans-serif" class="textopreto11"><strong> Prof. Pontuados no Plano:</strong> <% Dim PontuadosPlano, NPontPlano Set PontuadosPlano = Conn.Execute("SELECT Count(a.Codigo_Profissional) AS ContarDeCodigo_Profissional " _ & "FROM [sELECT Tab_pontuacao.Codigo_Profissional " _ & "FROM Tab_pontuacao " _ & "WHERE Tab_pontuacao.Codigo_plano = " & Plano & " And Tab_pontuacao.Data_Validade < CDate('" & DateAdd("M", 1, DataRef) & "') " _ & "GROUP BY Tab_pontuacao.Codigo_Profissional]. AS a;") Response.Write PontuadosPlano("ContarDeCodigo_Profissional") NPontPlano = PontuadosPlano("ContarDeCodigo_Profissional") PontuadosPlano.Close Set PontuadosPlano = Nothing %> = <% Response.Write Fix((NPontPlano / NProf)*100) & "%" %> </font></td> <td><font size="2" face="Arial, Helvetica, sans-serif" class="textopreto11"><strong> Previsão Bônus(R$):</strong> <% Dim Porcento Set Porcento = conn.execute("select Porcentagem from Tab_Plano where Codigo_plano = " & Plano & "") Dim PrevisBonus Set PrevisBonus = Conn.Execute("SELECT Sum(Tab_pontuacao.Pontos)as Pontos " _ & "FROM Tab_pontuacao " _ & "WHERE Tab_pontuacao.Codigo_plano = " & Plano & " And Tab_pontuacao.Data_Validade < CDate('" & DateAdd("M", 1, DataRef) & "') ") PrevisBonusVal = Fix(PrevisBonus("Pontos") * Porcento("Porcentagem")) Response.Write func_FormataReal(PrevisBonusVal) Porcento.Close Set Porcento = Nothing PrevisBonus.Close Set PrevisBonus = Nothing %> </font></td> </tr> <tr bgcolor="#F4F4F4"> <td><font size="2" face="Arial, Helvetica, sans-serif" class="textopreto11"><strong> Valor em Atraso (R$): </strong> <% Set Config = Conn.Execute("select * from tab_config where Mes = CDate('" & DataRef & "')") If Not Config.EOF Then Response.Write Config("valor_atraso") End If %> </font></td> <td><font size="2" face="Arial, Helvetica, sans-serif" class="textopreto11"><strong> Passagens (créd) ref. R$ <% If Not Config.EOF Then Response.Write Config("passagem_ref") End If %> : </strong> <% If Not Config.EOF Then Response.Write Fix((PrevisBonusVal / 100) / Config("passagem_ref")) End If %> </font></td> </tr> <tr bgcolor="#F4F4F4"> <td><font size="2" face="Arial, Helvetica, sans-serif"> </font></td> <td><font size="2" face="Arial, Helvetica, sans-serif" class="textopreto11"><strong> Passagens Utilizadas:</strong> <% Dim PassagensPlano Set PassagensPlano = Conn.Execute("SELECT Count(Tab_premiados.Codigo_profissional) AS ContarDeCodigo_profissional " _ & "FROM Tab_Premio INNER JOIN Tab_premiados ON Tab_Premio.Codigo_Premio = Tab_premiados.codigo_premio " _ & "WHERE (((Tab_Premio.Tipo_Premio)=4) AND ((Tab_Premio.Codigo_Plano)=" & Plano & ")) and Tab_premiados.Data_premiacao < CDate('" & DateAdd("M", 1, DataRef) & "');") Response.Write PassagensPlano("ContarDeCodigo_Profissional") PassagensPlano.Close Set PassagensPlano = Nothing %> </font></td> </tr> <tr> <td height="4" colspan="2"></td> </tr> <tr> <td colspan="2"><span class="textopreto11"><img src="<%=request.cookies("polodedecoracao")("pasta")%>/elemento_01.gif" width="100%" height="1"></span></td> </tr> <tr> <td height="19" colspan="2"> <span class="textopreto11"> <strong class="links11vermelho">INFORMAÇÕES:</strong><br> <% If Not Config.EOF Then Response.Write Replace(""& Config("texto_assos"), vbCrLf, "<br>") End If Config.Close Set Config = Nothing %> </span> </td> </tr> <tr> <td height="2" colspan="2"><img src="<%=request.cookies("polodedecoracao")("pasta")%>/elemento_01.gif" width="100%" height="1"></td> </tr> <% Dim visivel, PeriodoRanking Set visivel = Conn.Execute("Select visivel_lojista_1, visivel_lojista_2, visivel_lojista_A From Mes_Ranking Where Mes = "& Month(CDate(DataRef))) %> <tr> <td height="56" colspan="2"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr valign="top"> <td width="50%"><table width="100%" border="0" cellpadding="0" cellspacing="2"> <tr> <td colspan="2"><font size="2" face="Arial, Helvetica, sans-serif" class="textopreto11"><strong>Ranking <% If Month(CDate(DataRef)) <= 5 and Year(CDate(DataRef)) = Year(Date()) Then Response.Write "1" PeriodoRanking = 1 Else If Year(CDate(DataRef)) < Year(Date()) Then Response.Write "1" PeriodoRanking = 1 Else Response.Write "2" PeriodoRanking = 2 End If End If %> º Semestre</strong></font></td> </tr> <%If (PeriodoRanking = 1 and visivel("visivel_lojista_1") = 0) or (PeriodoRanking = 2 and visivel("visivel_lojista_2") = 0) Then %> <tr class="textopreto9"> <td align="center" colspan="2"><div align="left">Ranking não disponível</div></td> </tr> <%Else Dim counter, InRank Dim Rank3, AnoAnt counter = 0 InRank = 0 AnoAnt = 1 If Month(CDate(DataRef)) <= 5 or Month(CDate(DataRef)) = 12 Then If Year(DateAdd("M", 1, DataRef)) < Year(Date) Then AnoAnt = 2 Set Rank3 = Conn.Execute("Ranking3_Semestral " & Plano & ", '1/12/"& (Year(Date) - AnoAnt) &"', '" & DateAdd("M", 1, DataRef) & "'") Else If Year(DateAdd("M", 1, DataRef)) < Year(Date) Then AnoAnt = 1 Else AnoAnt = 0 End If Set Rank3 = Conn.Execute("Ranking3_Semestral " & Plano & ", '1/6/"& (Year(Date) - AnoAnt) &"', '" & DateAdd("M", 1, DataRef) & "'") End If Do Until Rank3.EOF Or counter = 10 counter = counter + 1 %> <tr class="textopreto9"> <td align="center"><%=counter%> - </td> <td><%=Rank3("Nome")%></td> </tr> <% Rank3.MoveNext Loop Rank3.Close Set Rank3 = Nothing End If %> </table></td> <td width="50%"><table width="100%" border="0" cellspacing="2" cellpadding="0"> <tr> <td colspan="2"><font size="2" face="Arial, Helvetica, sans-serif" class="textopreto11"><strong>Ranking Anual</strong></font></td> </tr> <% If visivel("visivel_lojista_A") = 0 Then%> <tr class="textopreto9"> <td align="center" colspan="2"><div align="left">Ranking não disponível</div></td> </tr><%Else counter = 0 InRank = 0 Set Rank3 = Conn.Execute("Ranking3 " & Plano & ", '" & DateAdd("M", 1, DataRef) & "','1/12/"& (Year(Date) - 1) &"', '"& DateAdd("M", 1, DataRef) & "'") Do Until Rank3.EOF Or counter = 10 counter = counter + 1%> <tr class="textopreto9"> <td width="7%"><div align="center"><%=counter%> - </div></td> <td width="93%" class="textopreto9"><%=Rank3("Nome")%></td> </tr> <% Rank3.MoveNext Loop Rank3.Close Set Rank3 = NothingEnd If %> </table></td> </tr> </table> </td> </tr> <% visivel.Close Set visivel = Nothing %> </table> <table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr bgcolor="#EBEBEB"> <td colspan="3" class="links11vermelho"><font size="2" face="Arial, Helvetica, sans-serif" class="textopreto11"><strong> </strong></font>Lojas Associadas</td> </tr> <% Dim RSLojas, Num, pag1, pag2, pag3 Set RSLojas = Server.CreateObject("ADODB.RecordSet") RSLojas.CursorLocation = 3 RSLojas.Open "Select Count(Codigo_Loja) as TotalLojas From Tab_Lojista Where Ativo = True",Conn,,3,1 Num = RSLojas("TotalLojas") RSLojas.Close If Cint(Num) Mod 3 = 0 Then pag1 = Cint(Num)/3 pag2 = Cint(Num)/3 pag3 = Cint(Num)/3 Else pag1 = FuncQtde("pag1",Cint(Num)/3) pag2 = FuncQtde("pag2",Cint(Num)/3) pag3 = FuncQtde("pag3",Cint(Num)/3) End If Function FuncQtde(local,total) Dim NumFunc, Aux Select Case local Case "pag1" NumFunc = Inteiro(total) + 1 Case "pag2" Aux = Cint(total*3) - (Inteiro(total) + 1) If Aux Mod 2 <> 0 Then NumFunc = Inteiro(Aux/2) + 1 Else NumFunc = Aux/2 + 1 End If Case "pag3" Aux = Cint(total*3) - (Inteiro(total) + 1) If Aux Mod 2 <> 0 Then NumFunc = Aux - (Inteiro(Aux/2) + 1) Else NumFunc = Aux/2 End If End Select FuncQtde = NumFunc End Function Function Inteiro(total) Dim aux aux = Split(total,",") Inteiro = Cint(aux(0)) End Function Dim Ultimocodigo %> <tr> <td width="33%" valign="top" class="textopreto9"> <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF"> <% RSLojas.Open "Select Top "& pag1 &" Codigo_Loja, Nome_Fantasia, Telefone From Tab_Lojista Where Ativo = true Order By Codigo_Loja",Conn,,3,1 Do Until RSLojas.EOF %> <tr valign="top" bgcolor="#EBEBEB" class="textopreto9"> <td width="9%" ><%= Right("0"& RSLojas("Codigo_Loja"),2)%></td> <td width="64%" ><%=UCase(RSLojas("Nome_Fantasia"))%></td> <td width="24%" ><%=RSLojas("Telefone")%></td> </tr> <!--<tr valign="top"><td colspan="3"><img src="<%'=request.cookies("polodedecoracao")("pasta")%>/espaco.gif" border="0" width="100%" height="1"></td></tr>--> <% Ultimocodigo = RSLojas("Codigo_Loja") RSLojas.MoveNext Loop RSLojas.Close %> </table> </td> <td width="34%" valign="top" class="textopreto9"> <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF"> <% RSLojas.Open "Select Top "& pag2 &" Codigo_Loja, Nome_Fantasia, Telefone From Tab_Lojista Where Ativo = true and Codigo_Loja > "& Ultimocodigo &" Order By Codigo_Loja",Conn,,3,1 Do Until RSLojas.EOF %> <tr valign="top" bgcolor="#EBEBEB" class="textopreto9"> <td width="9%"><%= Right("0"& RSLojas("Codigo_Loja"),2)%></td> <td width="64%"><%=UCase(RSLojas("Nome_Fantasia"))%></td> <td width="24%"><%=RSLojas("Telefone")%></td> </tr> <!--<tr valign="top"><td colspan="3"><img src="<%'=request.cookies("polodedecoracao")("pasta")%>/espaco.gif" border="0" width="100%" height="1"></td></tr>--> <% Ultimocodigo = RSLojas("Codigo_Loja") RSLojas.MoveNext Loop RSLojas.Close %> </table> </td> <td width="33%" valign="top" class="textopreto9"> <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF"> <% RSLojas.Open "Select Top "& pag3 &" Codigo_Loja, Nome_Fantasia, Telefone From Tab_Lojista Where Ativo = true and Codigo_Loja > "& Ultimocodigo &" Order By Codigo_Loja",Conn,,3,1 Do Until RSLojas.EOF %> <tr valign="top" bgcolor="#EBEBEB" class="textopreto9"> <td width="9%"><%= Right("0"& RSLojas("Codigo_Loja"),2)%></td> <td width="64%"><%=UCase(RSLojas("Nome_Fantasia"))%></td> <td width="24%"><%=RSLojas("Telefone")%></td> </tr> <!--<tr valign="top"><td colspan="3"><img src="<%'=request.cookies("polodedecoracao")("pasta")%>/espaco.gif" border="0" width="100%" height="1"></td></tr>--> <% Ultimocodigo = RSLojas("Codigo_Loja") RSLojas.MoveNext Loop RSLojas.Close %> </table> </td> </tr> </table> <% Else %> <br> <font size="2">Selecione a Referência e clique no botão OK</font> <% End If %> </div></td> </tr></table></body></html>

[dark0 0]

nossa karaesse codigo é muito grande ..o problema ta quando ele cadastra as datas no banco ..?ou só quando ele vai mostrar as datas na tela ..?se for para cadastrar no banco ..o ideal nesse caso, é criar uma função asp, que pega a data ..e formatar na mao ela ..e deixar do jeito que deve ser.Daí ..cadastra no banco ela certinha ..e ta feito!

[Mário Monteiro 179]

se o DB for acesssempre, mas sempre mesmo, cadastre no DB no formato brasileiro e consulte no formato americanoso issose o DB for acesssempre, mas sempre mesmo, cadastre no DB no formato brasileiro e consulte no formato americanoso isso