X-MAN

é tipo, o site tem 5 idiomas diferentes, o predefinido é portugues, mas vamos supor que o user quer em ingles... Queria ter ideias para este sistema de idiomas, pk são muitas palavras, se devo usar uma bd?? agradecia a ajuda!!

Ola galera, preciso da vossa ajuda, preciso fazer um sistema de linguagens, o site possui cerca de 5 tipos de linguagens diferentes, e queria saber como posso fazer o sistema de linguagem mais adequado, uso base de dados, so sessions... Agradecia a ajuda!!

assim não funcionou, usando o http_referer!!!

é assim, tem uma parte que qd a pessoa clica no link, esse abre a pagina sessions.asp?setlg=1 , depois la trato a query.string e queria que retornasse a pagina anterior, mas como há varias paginas diferentes com links que chamam esta pagina, teria que retorna a pagina anterior e não uma definida!!! obg!

como ficaria??

Ola, como faço para que o usuraio seja redirecionado automaticamente para a ultima pagina que ele acessou?? Tenho uma pagina que atualiza sessions, sessions.asp, ai queria fazer pelo response.redirect mas ai teria que ser uma pagina definida, e como tem varias paginas que acessam esta pagina (sessions.asp), queria saber se tem como voltar a pagina anterior automaticamente já atualizando!!! Agradecia a ajuda!!!

hum, ok, muito obrigado!!

não, não esta vindo o valor, apenas quando clico na imagem com o botão direito e abro numa nova janela!

Ola, queria saber como faço para "tratar" uma query.string de modo que um hacker ou alguém com mas inteções não possa afetar o meu site por elas, enviar script ou coisas assim! É que ouvi falar que é possivel atacar um site usando uma query.string que la exista!!! OBS.: Não quero saber para poder itulizar, apenas quero previnir o meu site contra esses tipos de ataques! Agradecia a ajuda!!

não, so dei um exemplo de resposta na home.asp, pk aquelas session controlam a linguagem do site em todas as paginas!!! e em cada palavra tenho: <% if session("lg")="1" then response.write("palavre em portugues") elseif session("lg")="2" then response.write("palavre em ingles") elseif session("lg")="3" then response.write("palavre em espanhol") elseif session("lg")="4" then response.write("palavre em italiano") elseif session("lg")="" then response.write("volta a ser portugues") %> Entendeu, é um sistema de multilinguagens e acontece aquele bug la em cima que referi!! Agradecia a ajuda!

Ola, tenho 4 imagens com bandeiras de 4 paises na pagina home.asp , naturalmente é as opções de liguagem para os usurarios, cada bandeira possui um link: "setlg.asp?lg=1", "setlg.asp?lg=2" e assim sucessivamente ate a quarta bandeira. Na pagina setlg.asp tenhp o seguinte codigo: <% dim lg lg=request.querystring("lg") if lg ="1" then session("lg")="1" elseif lg="2" then session("lg")="2" elseif lg="3" then session("lg")="3" elseif lg="4" then session("lg")="4" end if response.redirect("home.asp") %> na home.asp tenho <% if session("lg")="1" then response.write("Ola") elseif session("lg")="2" then response.write("Hay") elseif session("lg")="3" then response.write("Olla") elseif session("lg")="4" then response.write("Tchau") elseif session("lg")="" then response.write("indefinido") end if response.redirect("home.asp") %> Acontece o seguinte, se eu clicar na imagem, qualquer uma dela, na home.asp sempre aparece "indefinido", mas se eu clicar com o botão direito em cima da imagem e seleciona "abrir hiperligação numa nova janela", ai aparece na home.asp a respectiva palavra que representa a bandeira. O que está acontecendo??? Isso está numa hospedagem!! Agradecia a ajuda!!

bom amigo, você me ajudou, mas não com a session, pk assim não consegui fazer funcionar, o jeito foi colocar da maneria deles que você me disse, ai funcionou mês/dia/ano. Muito obrigado pela sua ajuda!! Vlwww!!!!

Pessoal, alguém pode testar este codigo?? O codigo é o seguinte: Monta a data, pegar o dia da semana que dará este dia, se é sabado, se é domingo, etc... <% mês=month(now) ano=year(now) data=Cdate("1"+"/"+Cstr(mês)+"/"+Cstr(ano)) X = weekday(cdate(data)) response.Write(X) response.Write("<br>") response.Write(data) %> é que no meu pc, o que aparece (output) é: 6 // esse é o dia da semana que começa o mês 1/9/2006 Acontece que mandei isso para a hospedagem, que é um servidor americano e esta me retornando isso: 2 // esse é o dia da semana que começa o mês 1/9/2006 Supostamente deveria retornar 6 igual ao que rodei no meu pc! A minha data esta correta e tudo!!! O que está acontecendo?? agradecia a ajuda!!

obrigado pela sua ajuda, já consegui, era isso mesmo!!!! obrigadão!!!

Como ficaria no codigo?? é não consegui por isso a funcionar!! agradecia a ajuda!!

Andreia, porque o contador seria de 1 a 5?? for contador = 1 to 5 response.write DeterminaCor(contador) next Não seria de 1 a mês variavel mês que pega o numero de dias que o mês tem!

é o seguinte, tenho na base de dados um campo chamado setembro, e dentro dele tenho os valores 1 2 2 12 1 2 3 2 1 0 2 1 0 1 2 0 1 2 0 1 2 3 4 2 0 1 0 2 3 São 30 valores, cada valor representar um dia e os seu respectivo numero representa uma cor: 0 - azul 1 - preto 2 - roxo 3 - vermelho Uso a função Split para separar os valores, tipo: var10=RS("setembro") j=Split(var10) j1=(j(0)) //ou seja, a variavel j1 vai ser igual ao primeiro valor do campo setembro, que é 1 j2=(j(1)) ate o j30 que é os valores que tem no campo setembro é assim que quero colocar a cor de cada celula da tabela, de acordo com esses numeros que cada um representa a cor do seu dia. Agradecia a ajuda!

Ola, tenho este codigo que gera um calendario: (imagem do calendario apos o codigo) <% valor = request("valor") ano = request("ano") if valor = "" then valor = month(now) end if if ano = "" then ano = year(now) end if if valor = 12 Then Valor_Mais = 1 & "&ano=" & ano + 1 else Valor_Mais = Valor + 1 & "&ano=" & ano End if if valor = 1 Then Valor_Menos = 12 & "&ano=" & ano - 1 else Valor_Menos = Valor - 1 & "&ano=" & ano End if Select Case valor Case 1,3,5,7,8,10,12 mês = 31 Case 4,6,9,11 mês = 30 Case Else If ano Mod 4 = 0 And (ano Mod 100 <> 0 Or ano Mod 400 = 0) Then mês = 29 Else mês = 28 End If End Select Select Case Valor case 1 tmes = "Janeiro" case 2 tmes = "Fevereiro" case 3 tmes = "Março" case 4 tmes = "Abril" case 5 tmes = "Maio" case 6 tmes = "Junho" case 7 tmes = "Julho" case 8 tmes = "Agosto" case 9 tmes = "Setembro" case 10 tmes = "Outubro" case 11 tmes = "Novembro" case 12 tmes = "Dezembro" End Select j1=1 j2=1 Total = 1 Dia = 1 data = "1/" & valor & "/" & ano data2 = mês & "/" & valor & "/" & ano X = weekday(cdate(data)) - 1 'em que dia da semana começa o mês Colunas = Fix(mês + X) / 7 'numero de colounas que terá a tabela If Colunas > 5 Then Colunas = 6 Else Colunas = 5 End if %> <style type="text/css"> <!-- .style2 {font-family: Arial, Helvetica, sans-serif} .style3 {font-size: 10px} .style4 { font-size: 11px; font-weight: bold; } .style6 { font-family: Arial, Helvetica, sans-serif; font-weight: bold; color: #333333; font-size: 12px; } .style8 { font-family: Arial, Helvetica, sans-serif; font-weight: bold; font-size: 11px; color: #000000; } --> </style> <table width="255" border="1" cellpadding="0" cellspacing="0" bordercolor="#E9E9E9"> <tr> <td align="center"> <table width="100%" border="0" cellpadding="0" cellspacing="1" bordercolor="#CBCBCB" background="../Imagens/fd_topo_calendario.gif" bgcolor="#CCCCCC"> <tr> <td align="center" valign="middle" bgcolor="#E9E9E9"><span class="style6"><%=tmes%></span></td> </tr> </table></td> </tr> <tr> <td align="center"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#999999"> <tr align="center" bgcolor="EAE0C8" class="texto_marrom_01"> <td width="36" height="18" bgcolor="#EDEDED" class="style3 style2 texto_marrom_01_bold" ><span class="style4">Dom</span></td> <td width="36" height="18" bgcolor="#EDEDED" class="style3 style2 texto_marrom_01_bold" ><span class="style4">Seg</span></td> <td width="36" height="18" bgcolor="#EDEDED" class="style3 style2 texto_marrom_01_bold" ><span class="style4">Ter</span></td> <td width="36" height="18" bgcolor="#EDEDED" class="style3 style2 texto_marrom_01_bold" ><span class="style4">Qua</span></td> <td width="36" height="18" bgcolor="#EDEDED" class="style3 style2 texto_marrom_01_bold" ><span class="style4">Qui</span></td> <td width="36" height="18" bgcolor="#EDEDED" class="style3 style2 texto_marrom_01_bold" ><span class="style4">Sex</span></td> <td width="36" height="18" bgcolor="#EDEDED" class="style3 style2 texto_marrom_01_bold" ><span class="style4">Sab</span></td> </tr> </table></td> </tr> <tr> <td><table width="255" border="0" cellpadding="0" cellspacing="0" bordercolor="#000000" bgcolor="#E9E9E9"> <tr> <td> <% FOR I = 1 TO Colunas %> <table width="100%" border="1" cellpadding="3" cellspacing="0" bordercolor="#FFFFFF"> <tr align="center" class="texto_marrom_01"> <% FOR S = 1 TO 7 IF Dia <= mês AND Total > x Then mostra = Dia cor="#FFFFFF" Dia = Dia + 1 Else Mostra = "&nbsp;" cor = "#E9E9E9" End IF %> <td width="26" height="26" valign="middle" bordercolor="#E9E9E9" bgcolor="<%=cor%>"><span class="style8"><%=mostra%></span></td> <% Total = Total + 1 NEXT %> <% NEXT %> </tr> </table> </td> </tr> </table></td> </tr> </table> assim é o calendario gerado: http://img301.imageshack.us/img301/1370/calendar1me0.jpg a minha duvida é o seguinte: nesta parte do codigo onde é gerado a tabela que mostra os dias: <% FOR S = 1 TO 7 IF Dia <= mês AND Total > x Then mostra = Dia cor="#FFFFFF" Dia = Dia + 1 Else Mostra = "&nbsp;" cor = "#E9E9E9" End IF %> <td width="26" height="26" valign="middle" bordercolor="#E9E9E9" bgcolor="<%=cor%>"><span class="style8"><%=mostra%></span></td> <% Total = Total + 1 NEXT %> <% NEXT %> Como faço para que cada fundo fique de uma cor diferente? ogual a imagem abaixo?? http://img100.imageshack.us/img100/7837/calebdar2kk6.jpg Agradecia a ajuda!!

Opa, primeiramente, obrigado pela ajuda, segundo, não entendi direito, ainda sou iniciante, pra que o "color"??? Tipo, como ficaria este codigo se fosse para randonizar dados na tabela "estados"?? Agradecia a ajuda e a paciência, rsrs!!!!

Eu sei que se eu usar um select de todos os registros do BD e depois usar GetRows pra recupar, não dá este erro. Numero de registros valor = rs.GetRows() depois pego o maior indice dessa matriz... maior = UBound(valor) Mas como vou usar estes dados depois no randomize para não dar o erro?? Agradecia a ajuda!

Ola, tenho este codigo para randonizar dados na base de dados, funciona perfeitamente so que as vezes da este eroo: Tipo de erro: ADODB.Field (0x80020009) BOF ou EOF é verdadeiro ou o registo actual foi eliminado; a operação pedida necessita de um registo actual. /inbrasil/randomize2.asp Como resolvo isso? A seguir, o codigo randomize2.asp: Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("bd_inbrasil.mdb") Conn.open %> <% Set RS = Server.CreateObject("adodb.recordset") SQL = "select * from tb_estados" RS.Open SQL,Conn,3,3 %> <% Randomize RandomNumber = Int(Rnd *RS.Recordcount) + 1 RS.move RandomNumber response.write(RS("estado")) %> Tenho apenas 6 registros na base de dados! Agradecia a ajuda!

já resolvi o problema, obrigado na mesma!!!!

Fui fazer um RadionGroup que se chamava "RadionGroup1", depois que o user escolhe, é redirecionado para a pagina "casepersonagem.asp" que é a seguinte: <% Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("database/database.mdb") Conn.open radiongroup1=request.form("radiongroup1") select case radiongroup1 case "p1" set RS = conn.execute(" update inforuser set personagem = '1' ") case "p2" set RS = conn.execute(" update inforuser set personagem = '2' ") case "p3" set RS = conn.execute(" update inforuser set personagem = '3' ") case "p4" set RS = conn.execute(" update inforuser set personagem = '4' ") case "p5" set RS = conn.execute(" update inforuser set personagem = '5' ") end select Response.Redirect ("historia.asp") %> Como eu sei "muito" de asp, só queria saber uma coisa, PORQUE ESTA COISA NÃO FUNCIONA??? Agradeço!

ok, obrigada na mesma!!!!

agora apareceu este erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Controlador Microsoft Access de ODBC]Erro geral Não é possível abrir a chave de registo 'Temporary (volatile) Jet DSN for process 0xed4 Thread 0xc10 DBC 0x157faa4 Jet'. /rpgmafia/Templates/inicio.asp, linha 14 Tipo, eu consigo fazer um sistema de login pelo codigo fonte, queria utilizar o dreamweaver porque tem certas coisas que eu quero fazer e não sei pelo codigo fonte, seu usar uma conecção que eu faço pelo dreamweaver para fazer aquilo que eu não sei e depois usar uma outra feita pelo codigo fonte para fazer um sistema de login, daria certo, ou o correcto é só ter uma conecção?!!