Façam um teste: http://www.sandrabul...fia/default.asp
Cliquem em algum link "Hotsite" e tentem cadastrar e depois ver o comentário, aparece com a data em inglês. Será que eu coloquei a session.lcid em lugar errado ou o q?
aí vai o código da pagina onde sao mostrados os comentarios:
<!-- #include virtual="home/includes/replace_query.asp" --> <!-- #include virtual="home/conexao.asp" --> <% Session.LCID = 1046 If Request.QueryString("Id_Filme") = "" Then Response.Write "<strong><font face=Verdana color=FF0000 size=1>Query inválida e/ou inexistente na barra de endereços.</font></strong>" Response.End Else If not IsNumeric(TrocaQuery(Request.QueryString("Id_Filme"))) Then Response.Write "<strong><font face=Verdana color=FF0000 size=1>Query inválida e/ou inexistente na barra de endereços.</font></strong>" Response.End End if End if If Request.QueryString("pagina") = "" Then Response.Write "" Else If not IsNumeric(TrocaQuery(Request.QueryString("pagina"))) Then Response.Write "<strong><font face=Verdana color=FF0000 size=1>Query inválida e/ou inexistente na barra de endereços.</font></strong>" Response.End End if End if vIdFilme = Request.QueryString("Id_Filme") Set RS1 = vConexao.execute("Select * From Filmografia Where Id_Filme = " & vIdFilme & "") If RS1.EOF Then Response.Write "<strong><font face=Verdana color=FF0000 size=1>Nenhum filme encontrado.</font></strong>" Response.End End if If RS1("Comentar") = False Then Response.Write "<strong><font face=Verdana color=FF0000 size=1>Não são permitidos comentários para este filme.</font></strong>" Response.End End if %> <html> <head> <title>Sandra Bullock Brasil</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="../layouts/outros/pop_ups.css" rel="stylesheet" type="text/css"> </head> <body background="../layouts/principal/fnd_total_pgint.gif" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="400" border="0" cellspacing="0" cellpadding="0"> <tr> <td><img src="<%= RS1("Layout_Topo") %>""></td> </tr> <tr> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td background="layouts/imagens/fnd_menu1.gif"><div align="right"> <table width="97%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><div align="right"></div></td> </tr> </table> </div></td> </tr> <tr> <td background="layouts/imagens/fnd_menu1.gif"><div align="right"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="3%"><img src="../layouts/principal/spacer.gif" width="1" height="20"></td> <td width="97%" class="menu1"> <div align="right" id="menu1"> <strong><a href="infosprincipais.asp?Id_Filme=<%= RS1("Id_Filme") %>">INFORMAÇÕES GERAIS</a> <% If Len(RS1("Elenco")) > 1 or Len(RS1("Sinopse")) > 1 or Len(RS1("Diretor")) > 1 or Len(RS1("Site_Oficial")) > 1 or Len(RS1("Produtoras")) > 1 or Len(RS1("Distribuidoras")) > 1 Then %> | <a href="infosfilme.asp?Id_Filme=<%= RS1("Id_Filme") %>">O FILME</a> <% End if If Len(RS1("Audio")) > 1 or Len(RS1("Legendas")) > 1 or Len(RS1("Tela")) > 1 or Len(RS1("Extras")) > 1 or Len(RS1("Duracao")) > 1 Then%> | <a href="infosdvd.asp?Id_Filme=<%= RS1("Id_Filme") %>">DVD</a> <% End if %> </strong></div></td> </tr> </table> </div></td> </tr> </table></td> </tr> <% If RS1("Comentar") = False Then %> <tr> <td><img src="layouts/imagens/sombra_menu1.gif" width="400" height="5"></td> </tr> <% Else %> <tr> <td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="3%"> <div align="right"><img src="layouts/imagens/menu2_esq.gif" width="17" height="18"></div></td> <td width="94%" height="0" valign="middle" background="layouts/imagens/menu2_fnd.gif" class="menu2"> <div align="center" id="menu2"><a href="comentar.asp?Id_Filme=<%= RS1("Id_Filme") %>">Comentar filme</a> | <a href="vercomentarios.asp?Id_Filme=<%= RS1("Id_Filme") %>">Ver comentários</a> | <a href="avaliar.asp?Id_Filme=<%= RS1("Id_Filme") %>">Avaliar filme </a></div> </td> <td width="3%"> <div align="left"><img src="layouts/imagens/menu2_dir.gif" width="17" height="18"></div></td> </tr> <% End if %> </table></td> </tr> <tr> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><div align="center"><img src="../layouts/principal/spacer.gif" width="100" height="5"></div></td> </tr> <tr> <td><table width="97%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><div align="center"><strong>COMENTÁRIOS - <%= Ucase(RS1("Titulo")) %></strong></div></td> </tr> <tr> <td><div align="center"><img src="../layouts/principal/spacer.gif" width="100" height="5"></div></td> </tr> <tr> <td><div align="center"><img src="../layouts/principal/pnt.gif" width="390" height="1"></div></td> </tr> <tr> <td><div align="center"><img src="../layouts/principal/spacer.gif" width="100" height="5"></div></td> </tr> <tr> <td height="126" valign="top"> <div align="left" id="menu1"> <table width="97%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr valign="top"> <% SQL = "Select * From Comentarios_Filmes Where Id_Filme = " & vIdFilme & " Order by Id_Comentario DESC" RS.Open SQL, vConexao,3,3 If RS.EOF Then vFim = "Sim" %> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><div align="center">Não há comentários para este filme.<br> <a href="comentar.asp?Id_Filme=<%= RS1("Id_Filme") %>">Clique aqui e seja o primeiro a comentar.</a> </tr> </table> <td> <% Else RS.Pagesize = 15 If Request.QueryString("pagina") = "" Then mnpagina = 1 Else If Cint(Request.QueryString("pagina")) < 1 Then mnpagina = 1 Else If Cint(Request.QueryString("pagina")) > RS.PageCount then mnpagina = RS.PageCount Else mnpagina = Request.QueryString("pagina") End if End if End if RS.AbsolutePage = mnpagina While mncontar < RS.PageSize and not RS.EOF %> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="58%"><strong>Nome: </strong><%= RS("Nome") %></td> <td width="42%"><strong>Data: </strong><%= RS("Data") %></td> </tr> <tr> <td colspan="2"><strong>E-mail: </strong><a href="mailto:<%= RS("E_mail") %>"><%= RS("E_mail") %></a></td> </tr> <tr> <td colspan="2"><div align="center"><img src="../layouts/principal/spacer.gif" width="100" height="5"></div></td> </tr> <tr> <td colspan="2"><strong> <%= RS("Titulo") %></strong><br> <%= RS("Comentario") %></td> </tr> <tr> <td colspan="2"><div align="center"><img src="../layouts/principal/pnt_sep_com.gif" width="377" height="9"></div></td> </tr> </table> <% RS.MoveNext mncontar = mncontar + 1 If RS.EOF Then Response.Write "" End if Wend End if %></td> </tr> <tr valign="top"> <td><div align="center"><img src="../layouts/principal/spacer.gif" width="100" height="5"></div></td> </tr> <tr valign="top"> <td> <% If not vFim = "Sim" Then %><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="28%"><strong>Página atual: </strong><%= mnpagina %></td> <td width="72%"> <div align="right" id="menu2">| <% For vpagina = 1 to RS.PageCount %> <a href="vercomentarios.asp?Id_Filme=<%= RS1("Id_Filme") %>&pagina=<%= vpagina %>"> <% Response.Write vpagina %></a><% Next %> | <% End if %> </div></td> </tr> </table></td> </tr> </table> </div></td> </tr> </table></td> </tr> <tr> <td><div align="center"><img src="../layouts/principal/spacer.gif" width="100" height="5"></div></td> </tr> <tr> <td><div align="center"><img src="../layouts/principal/pnt.gif" width="390" height="1"></div></td> </tr> <tr> <td><div align="center"><img src="../layouts/principal/spacer.gif" width="100" height="5"></div></td> </tr> </table> </td> </tr> <tr> <td> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><img src="../layouts/principal/risco_inf.gif" width="400" height="2"></td> </tr> <tr> <td><img src="<%= RS1("Layout_Inferior") %>" border="0" usemap="#Map""></td> </tr> </table></td> </tr> </table> <map name="Map"> <area shape="rect" coords="345,1,398,14" href="javascript:window.close()"> </map> </body> </html> <% vConexao.close Set RS = Nothing Set RS1 = Nothing Set vConexao = Nothing %>
valeu