Helinho

Olá, A.) Estou precisando saber como transformar esta string: a:6:{i:0;s:7:"domingo";i:1;s:3:"2ª";i:2;s:3:"3ª";i:3;s:3:"4ª";i:4;s:3:"5ª";i:5;s:3:"6ª";} B.) Nisto daqui: domingo 2ª 3ª 4ª 5ª 6ª É possível fazer isso? Alguém poderia me mostrar qual código eu utilizo para fazer isto? Já ouvi falar no "unserialize". Se eu conseguir transformar aquela string gigante (A.) em apenas um modo resumido (B.) já me ajudaria muito. Grato.

na verdade a única coisa de que preciso é transformar esta string: a:6:{i:0;s:7:"domingo";i:1;s:3:"2ª";i:2;s:3:"3ª";i:3;s:3:"4ª";i:4;s:3:"5ª";i:5;s:3:"6ª";} nisso daqui: domingo 2ª 3ª 4ª 5ª 6ª É possível fazer isso? Você poderia me mostrar qual código eu utilizo para fazer isto? Se eu conseguir transformar aquela string gigante em apenas no modo resumido já me ajudaria.

Ok ESerra, Obrigado pelo esclarecimento. Mas no caso qual seria a função para continuar a rodar a function? Seria "loop"? Você pode postar alguma sugestão para resolver essa questão!? Grato.

Olá pessoal, Não estou conseguindo retornar todas as palavras correspondentes de uma String. Alguém pode me ajudar a finalizar este código? function procpalavras ($frase, $palavras, $resultado = 0) { foreach ( $palavras as $key => $value ) { $pos = strpos($frase, $value); if ($pos !== false) { $resultado = 1; break; } } return $value; } $frase = "meu amigo carlos amaral de 2ª a 6ª"; $palavras = array ("amigo","amaral","2ª","6ª"); echo procpalavras($frase, $palavras) . " | "; Infelizmente, por não conseguir montar o loop, eu só consigo obter o seguinte retorno: "amigo" Mas eu gostaria que me retornasse todas as palavras correspondentes na frase: "amigo | amaral | 2ª | 6ª " Grato.

Olá pessoal, Em uma planilha do Excel eu tenho uma matriz com 1(uma) coluna de DATA e 3(três) colunas de COEFICIENTES. No meu exemplo abaixo eu sei qual a Tabela de Coeficiente a ser encontrada (no caso a tabela 2) e sei qual a Data (no caso o dia 14/05/2012) mas não consigo montar a fórmula que me dê o valor do Coeficiente da Tabela na Data em questão. Ou seja, eu preciso de uma fórmula que me retorne a interseção da Tabela 2 com a Data 14/05/2012. Preciso que a fórmula me retorne o valor de "0,25". Alguém pode me ajudar com essa? Grato pela atenção.

ENCONTREI A SOLUÇÃO COM O "LeoB" PARA A QUESTÃO ABERTA NESTE POST (testada e funcionando perfeitamente): Bom, então abaixo segue o código de como ficou a solução para UPDATE de vários registros e com vários campos (by LeoB): 1) página fotos_listar.asp <form id="formulario" name="formulario" method="post" action="fotos_atualizar.asp"> <% While Not RSfotos.EOF) %> <img src="galeria/<%RSfotos.Fields.Item("foto").Value)%>" width="90" height="90" /> <input name="titulo<%=(RSfotos.Fields.Item("id").Value)%>" type="text" value="<%=(RSfotos.Fields.Item("titulo").Value)%>" /> <select name="sessao<%=(RSfotos.Fields.Item("id").Value)%>" value="<%=(RSsessao.Fields.Item("sessao_fotos").Value)%>"</select> <% RSfotos.MoveNext() Wend %> <input name="botao" type="submit" value="Atualizar todos os dados!" /> </form> 2) página fotos_atualizar.asp <!--#include file="inc_conexao.asp" --> <% Set RSfotos = conexao.Execute("SELECT id FROM fotos") While Not RSfotos.EOF id = RSfotos("id") titulo = Request("titulo" & id) sessao = Request("sessao" & id) conexao.Execute "UPDATE fotos SET titulo = '"&titulo&"', sessao = '"&sessao&"' " &_ " WHERE id = " &id RSfotos.MoveNext Wend conexao.close Set RSfotos = Nothing Response.Redirect("update_ok.asp") %> Até a próxima!

Olá bareta, Tentei fazer utilizando a sua sugestão porém não funcionou. Sendo assim, eu remontei a minha estrutura de form e execução. Vou explicar detalhadamente como fiz agora: 1) na página "fotos_listar.asp" (eu resumi o código, ok? porque está funcionando bem, mas fiz algumas modificações.) <form id="formulario" name="formulario" method="post" action="fotos_atualizar.asp"> <% While Not RSfotos.EOF) %> <img src="galeria/<%RSfotos.Fields.Item("foto").Value)%>" width="90" height="90" /> <input name="checkbox" type="checkbox" value="<%=(RSfotos.Fields.Item("id").Value)%>" /> <input name="titulo" type="text" value="<%=(RSfotos.Fields.Item("titulo").Value)%>" /> <select name="sessao" value="<%=(RSsessao.Fields.Item("sessao_fotos").Value)%>"</select> <% RSfotos.MoveNext() Wend %> <input name="botao" type="submit" value="Atualizar todos os dados marcados!" /> </form> Aqui eu criei um "checkbox" para filtrar os registros que deverão ser alterados no UPDATE da próxima página. Sendo assim, neste form eu tenho: • 1 imagem que não sofrerá nenhuma alteração • 1 checkbox contendo em seu value o ID do registro listado • 1 textfield contendo em seu value o valor do título da foto • 1 select contendo em seu value o valor da sessão da foto Então a visualização desta página fica assim: 2) na página "fotos_atualizar.asp" eu adaptei algumas funções como se segue abaixo, porém não está funcionando: <!--#include file="inc_conexao.asp" --> <% Dim checkbox checkbox = Request("checkbox") If checkbox <> "" Then Set RSfotos = conexao.Execute("SELECT id FROM fotos WHERE id = " &checkbox) While Not RSfotos.EOF id = RSfotos("id") titulo = Request("titulo") sessao = Request("sessao") conexao.Execute "UPDATE fotos SET titulo = '"&titulo&"', sessao = '"&sessao&"' " &_ " WHERE id = " &id Wend conexao.close Set RSfotos = Nothing End If Response.Redirect("update_ok.asp") %> O quê será que preciso fazer para esse UPDATE funcionar certinho chamando os IDs respectivos? Mais uma vez agradeço a atenção!

Boa noite, Estou apelando para este post porque já fiquei mais de 9 horas lendo, pesquisando e tentando montar um UPDATE MySQL em ASP para múltiplos registros com três campos cada. O mais perto que cheguei (pelo dúvidas frequentes do fórum) foi através do código abaixo. Bom, eu tenho uma tabela "fotos" com os campos: id, titulo e sessao. Tenho duas páginas ASP: uma com o formulário que contém a tabela com todos os registros listados e outra que faz o update no MySQL a partir dos dados deste formulário. 1) fotos_listar.asp <form name="formulario" method="post" action="fotos_editar.asp"> <% While Not RS.EOF ...%> (...) <input name="titulo_<%=(RSgaleria.Fields.Item("id").Value)%>" type="text" value="<%=(RSgaleria.Fields.Item("titulo").Value)%>" /> <input name="sessao_<%=(RSgaleria.Fields.Item("id").Value)%>" type="text" value="<%=(RSgaleria.Fields.Item("sessao").Value)%>" /> <input name="botao" type="submit" value="Atualizar todos os dados!" /> (...) <% Whend ...%> </form> Obs: Na página acima ela me retorna perfeitamente uma tabela aparecendo todos os registros listados com seus respectivos campos (até aí tudo bem!). O problema está na próxima página! (acredito eu) 2) fotos_editar.asp <!--#include file="inc_conexao.asp" --> <% Dim i For i = 1 to Request.Form.Count SQL1 = "SELECT * FROM fotos WHERE id= " &i Set RSfotos = conexao.Execute(SQL1) titulo = Int(Request("titulo"&i)) sessao = Int(Request("sessao"&i)) id = i SQL2 = "UPDATE fotos SET titulo = '"&titulo&"', sessao = '"&sessao&"' " &_ " WHERE id = " & id conexao.Execute SQL2 Next conexao.close Set RSfotos = Nothing Response.Redirect("update_ok.asp") %> Obs: O UPDATE é realizado, porém com todos os valores em zero. Ou seja, é feito o update mas todos os registros e todos os campos ficam com o valor "0" inserido. Bom, isso foi o mais perto que "acho" ter chegado! No mais agradeço a atenção! =]

Olá estou querendo fazer um banner rotativo com o código abaixo mas não consigo fazer funcionar em função do "Conjunto de linhas não oferecer suporte para busca regressiva". Segue abaixo o código para alguém me dizer onde estou errando. <% Dim RSbanner Dim RSbanner_cmd Dim RSbanner_numRows Set RSbanner_cmd = Server.CreateObject ("ADODB.Command") RSbanner_cmd.ActiveConnection = conexao RSbanner_cmd.CommandText = "SELECT * FROM mysql.banners" RSbanner_cmd.Prepared = true Set RSbanner = RSbanner_cmd.Execute RSbanner_numRows = 0 Response.Expires = -1000 Dim rndMax,rndNumber rndMax = CInt(RSbanner.RecordCount) RSbanner.MoveFirst Randomize Timer rndNumber = Int(RND * rndMax) RSbanner.Move rndNumber response.write "<a href='" & RSbanner("link") & "' target='_blank'><img border=0 width='190' height='390' src='img\banners\" & RSbanner("foto") & "'></a>" RSbanner.Close() Set RSbanner = Nothing %> O erro está apontando para a linha 23 "RSbanner.Move rndNumber". O quê devo fazer?

Hoje eu consegui resolver o problema acima descrito para gerar um Menu Dinâmico a partir de um BD MySQL. É o seguinte: eu utilizei dois SQLs e o Do While/Loop para resolver a questão. O código funcionando corretamente segue abaixo. 1) Utilizei o SQL1 para SETar o RSmenu: "SELECT * FROM sessoes" 2) Utilizei o SQL2 para SETar o RSsubmenu: "SELECT * FROM subsessoes WHERE cod_id ='"&RSmenu("id")&"'" <% SQL1 = "SELECT * FROM sessoes" Set RSmenu = conexao.execute(SQL1) ... Do While Not RSmenu.EOF Response.Write "<tr><td>" If sessao = RSmenu("sessao") Then Response.Write "<b>"&RSmenu("sessao")&"</b>" Else Response.Write "<a href='#'><b>"&RSmenu("sessao")&"</b></a>" End If Response.Write "</td></tr>" SQL2 = "SELECT * FROM subsessoes WHERE cod_id ='"&RSmenu("id")&"'" Set RSsubmenu = conexao.execute(SQL2) If Not RSsubmenu.EOF Then Do While Not RSsubmenu.EOF Response.Write "<tr><td>" Response.Write "<a href='#'>"&RSsubmenu("subsessao")&"</a>" Response.Write "</td></tr>" RSsubmenu.MoveNext Loop Response.Write "<tr><td><img src='images/linha.gif' width='180' height='1'/></td></tr>" End If RSmenu.MoveNext Loop %> Sendo assim o meu Menu Dinâmico agora ficou assim: Então o tópico está resolvido e espero poder ter ajudado!

Olá, Eu tenho duas tabelas para montar um Menu Dinâmico através de um banco de dados MySQL. As tabelas são: "SESSOES" e "SUBSESSOES", elas estão relacionadas respectivamente pelos campos "id" e "cod_id" no intuito de montar um menu dinâmico em uma página ASP (produtos.asp). A tabela "SESSOES" tem: [id]..[sessao] .1.....Menu 01 .2.....Menu 02 .3.....Menu 03 .4.....Menu 04 A tabela "SUBSESSOES" tem: [id]..[cod_id]..[subsessao] .1........1.........Submenu 01 .2........1.........Submenu 02 .3........1.........Submenu 03 .4........2.........Submenu 04 .5........2.........Submenu 05 .6........2.........Submenu 06 .7........3.........Submenu 07 .8........3.........Submenu 08 .9........3.........Submenu 09 .10......4.........Submenu 10 .11......4.........Submenu 11 • O SELECT da busca no BD é: "SELECT * FROM sessoes INNER JOIN subsessoes ON (sessoes.id = subsessoes.cod_id)" • O Recordset é "RSmenu" • Dentro da página "produtos.asp" eu tenho um Repeat Region montando o Menu Dinâmico como se segue abaixo: <% Dim Repeat__numRows Dim Repeat__index Repeat__numRows = -1 Repeat__index = 0 RSmenu_numRows = RSmenu_numRows + Repeat__numRows %> <% While ((Repeat__numRows <> 0) AND (NOT RSmenu.EOF)) %> <table> <tr> <td> <b><%=(RSmenu.Fields.Item("sessao").Value)%></b> </td> </tr> <tr> <td> <%=(RSmenu.Fields.Item("subsessao").Value)%> </td> </tr> <tr> <td> <img src="images/linha.png"/> </td> </tr> </table> <% Repeat__index = RRepeat__index+1 Repeat__numRows = Repeat__numRows-1 RSmenu.MoveNext() Wend %> Esse código acima está me retornando as informações colocando o nome da "sessao" correspondente a cada "subsessao" gerada, como se segue na imagem abaixo: Porém eu gostaria que o código me retornasse o nome da "sessao" e logo abaixo toda respectiva "subssessao". Ou seja, eu gostaria que o código me retornasse igualzinho a imagem que se segue abaixo: O quê preciso mudar para o Menu ficar assim?

YES, YES, YES!!!!! Uhuuuuuuuuul... agora deu certo Kuroi. Você é o CARA mesmo!!! Funcionou perfeitamente... nem estou acreditando. Tem 5 semanas que estou batalhando nessa solução. Agora vou aproveitar e estudar bem o seu código e toda sua lógica na programação. Valeu mesmo! Bom, eu peguei a 1ª sugestão de SELECT: "SELECT ordem.poltrona As n_poltrona, x.poltrona As reservado FROM ordem LEFT JOIN (Select * From transporte WHERE onibus = 'ONIBUS 01') as x ON ordem.poltrona = x.poltrona ORDER BY ordem.ordem" Depois eu mantive os 60 registros da tabela "ordem" por causa do corredor central do desenho do ônibus, entende? Então em peguei a sua 2ª sugestão do ASP: <table> <% For x = 1 to 60 If (x - 1) Mod 12 = 0 Then Response.Write("<tr>") End If If Not RSonibus.EOF Then If RSonibus("n_poltrona") = "" Then %><td> </td><% Else If Not IsNull(RSonibus("reservado")) Then Imagem = "xx" Else Imagem = Right("0" & RSonibus("n_poltrona"), 2) End If %> <td><img src="img/poltr<% = Imagem %>.gif" width="31" height="28"/></td> <% End If RSonibus.MoveNext End If If x Mod 12 = 0 Then Response.Write("</tr>") End If Next %> </table> Com isso o meu ônibus ficou assim: Obs: agora eu vou criar 14 GIFs transparentes (47.gif até 60.gif) e colocar os números dos quadrantes que não terão poltrona para ser o corredor do ônibus! Show de bola Kuroi e muitíssimo obrigado pela sua paciência, atenção e didática que foi perfeita! Forte abraço, Helinho (Beagá)

Olá Kuroi, Fiz tudo de acordo com a sua orientação. Criei a nova tabela "ordem" e mudei o SELECT de acordo com sua sugestão. O resultado ficou tudo com poltrona XX como segue abaixo na imagem: Meu SELECT: "SELECT ordem.poltrona As n_poltrona, transporte.poltrona As reservado FROM ordem LEFT JOIN transporte ON ordem.poltrona = transporte.poltrona WHERE transporte.onibus = 'ONIBUS 01' ORDER BY ordem.ordem" Meu ASP: <table> <% For x = 1 to 60 If (x - 1) Mod 12 = 0 Then Response.Write("<tr>") End If If x \ 12 <> 2 And x <> 36 And x <> 48 Then If Not RSonibus.EOF Then If Not IsNull(RSonibus("reservado")) Then Imagem = "xx" Else Imagem = Right("0" & RSonibus("n_poltrona"), 2) End If RSonibus.MoveNext End If %> <td><img src="img/poltr<% = Imagem %>.gif" width="31" height="28"/></td> <% Else %><td></td><% End if If x Mod 12 = 0 Then Response.Write("</tr>") End If Next %> </table> Obs: eu criei duas colunas na tabela "ordem" (poltrona e ordem). Eu inseri 60 registros na tabela "ordem" e correspondi as respectivas poltronas com as posições dos quadrantes da tabela de 60 quadros.

Ok Kuroi, fiz de acordo com a sua sugestão mas as poltronas ficaram da seguinte maneira: Mas já vi que o seu código está com a lógica certa, só precisamos ajustas alguns ponto. O quê me sugere?

Eu consegui um código que funcionasse através da seguinte sintaxe: <% For x = 1 to 46 If Not RSonibus.EOF Then If RSonibus("poltrona") = Right("0"& x,2) Then Imagem = "xx" RSonibus.MoveNext Else Imagem = Right("0"& x,2) End If Else Imagem = Right("0"& x,2) End If %> <img src="img/poltr<%=Imagem%>.gif" width="31" height="28"/> <% Next %> O problema é que as 46 poltronas aparecessem em uma coluna com 46 linhas quando na verdade eu preciso que o "FOR""NEXT" crie uma tabela com 12 colunas e 5 linhas (60 quadrantes). Eu já criei também a coluna "ordem" como você sugeriu. O que preciso agora é conseguir gerar a tabela de acordo com a imagem abaixo:

Olá! 1º) Eu tenho uma tabela, apenas uma tabela, chamada "transporte" 2º) Dentro dessa tabela eu tenho as colunas: id, nome, onibus, poltrona 3º) Tenho uma página em ASP chamada "onibus.asp" que é aberta recebendo uma String anterior, no caso "ONIBUS 01" 4º) Na página "onibus.asp" eu tenho o desenho de um onibus com 46 gifs (das poltronas) numeradas mas não em ordem crescente e sim na ordem real que há em um onibus de verdade. 5º) Abaixo do desenho do onibus eu tenho uma Lista de Passageiros mostrando a "poltrona" e o "nome" em ordem crescente (de cima para baixo). Sendo assim, se não existirem reservas no ônibus não haverá registro algum na tabela "transporte". Por isso vamos partir do pressuposto que existam 3 reservas feitas (três registros dentro da tabela) para as poltronas "01", "02" e "05" ocupando respectivamente os registros 1, 2 e 3 da tabela "transporte". Vale ressaltar que a Lista de Passageiros (abaixo do desenho do onibus) tá Ok, ou seja, eu já consigo listar através do "RSlista" todos os passageiros em ordem crescente de "poltrona" que contém o texto "ONIBUS 01" na coluna "onibus" da tabela "transporte". O que eu quero fazer é que a GIF da poltrona 01 (do desenho) apareça como uma poltrona XX (vermelha) quando a coluna "poltrona" da tabela "transporte" estiver com o valor "01" caso contrário mantenha a GIF da poltrona 01. Não posso e não quero usar o loop porque a sequência das poltronas é totalmente desordenada e não obedece o critério de crescente e ascendente. Então para finalizar a minha explicação eu pensei em fazer trabalhar com um IF em cada espaço da poltrona. Onde o "RSonibus" está com o seguinte select: "SELECT * FROM transporte WHERE onibus = ONIBUS 01" <% If Not RSonibus.EOF Then %> <% ElseIf RSonibus("poltrona") = "01" Then %> <img src="img/poltrXX.gif"/> <% Else %> <img src="img/poltr01.gif"/> <% End If %> Veja bem, se o RSonibus com o select acima descrito me retorna os registros das poltronas 01,02 e 05 então eu só preciso saber como fazer para chamar especificamente um registro desse RSonibus sem usar loop. Na verdade eu só não sei fazer isso: se o RSonibus me retorna os valores 01,02 e 05 eu gostaria de saber como ficaria o código para chamar o "05" por exemplo, entendeu? Está ficando assim: Mas eu quero que fique assim: Desde já agradeço a atenção! Helinho