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: