Ir para conteúdo
Fórum Script Brasil

hellxande

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    49

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que hellxande postou

  1. hellxande
    Salve galera, Estou criando uma apresentação de Banners, este permitirá que o Usuário publique a Imagem e um Texto separados, onde ao apresenta-los, o Texto ficará sobre a Imagem. Até ai td bem usando recurso de CSS consegui fazer porém o problema é que as Imagens trocam porém o Texto não. segue abaixo o código em questão. ' Seleção dos últimos 5 registros da Tabela Banner marcados para exibir na Home. TabBanner = Server.CreateObject("adodb.recordset") sql = "select * from Banner where BannerStatus = '1' Order By BannerID DESC Limit 0,5" set TabBanner = Conexao.execute(sql) IF Not TabBanner.EOF Then Response.Write("<div id='coin-slider'>") count = 0 Do While Not TabBanner.EOF Imagem = TabBanner("BannerImagem") Descricao = TabBanner("BannerDescricao") Response.Write("<ul>") Response.Write("<div class='banner'>") Response.Write("<div class='texto'>") Response.Write("<img src='Banners/"&Imagem&"' alt='"&BannerDescricao&"' width='1000' height='400'/>") Response.Write(""&Descricao) TabBanner.MoveNext Count=Count+1 Loop Response.Write("</div>") Response.Write("</div>") Response.Write("</ul>") Else Response.Write("<table width='500' border='0' cellspacing='0' cellpadding='0' align='center'>") Response.Write("<tr>") Response.Write("<td align='center' valign='middle' class='TituloGrandeLaranja'>") Response.Write("Nenhum Banner a ser apresentado !!") Response.Write("</td>") Response.Write("</tr>") Response.Write("</table>") End IF Desde já agradeço qualquer sugestão. Atenciosamente Hellxande
  2. hellxande
    Prezado amigos, novamente venho pedir socorro. Tenho uma pagina que apresenta uma Foto Grande do Produto e em baixo um Carousel JQuery onde apresenta a Miniatura da Foto de todos os Produtos do Grupo. Tudo estava bem até que percebi o Problema. quando tenho um Grupo de Produtos onde existe somente 1 ou 2 Produtos cadastrados a apresentação da Miniatura não ocorre, e para piorar não dá nem erro, simplesmente o quadro aparece vazio. Segue abaixo trechos do Código ' Select que recebe e identifica qual é o Grupo selecionado TabProdutoGrupo = Server.CreateObject("adodb.recordset") sql = "select * from ProdutoGrupo where ProdutoGrupoID = "&Request.QueryString("ID")&"" set TabProdutoGrupo = Conexao.execute(sql) ' Variável que recebe o Código do Grupo CodigoProdutoGrupo = CStr(TabProdutoGrupo("ProdutoGrupoID")) ' Select que carrega os Produtos ligados ao Grupo selecionado ondenando pelo campo ProdutoID Ascendente TabProduto = Server.CreateObject("adodb.recordset") sql = "select * from Produto where ProdutoGrupoID = "&CodigoProdutoGrupo&" order By ProdutoID ASC" set TabProduto = Conexao.execute(sql) <!-- Início da Div de apresentação das miniaturas --> <div id="carosel" style="border:solid"> <div class="carosel"> <ul> <% IF Not TabProduto.EOF Then Count = 0 Do While Not TabProduto.EOF CodigoProduto = CStr(TabProduto("ProdutoID")) Foto = TabProduto("ProdutoFoto") FotoPq = TabProduto("ProdutoFotoPequena") ProdutoNome = TabProduto("ProdutoNome") Response.Write("<li><img src='ProdutoGrupo/Produtos/"&FotoPq&"' width='147' height='81' border='0' /></li>") TabProduto.MoveNext count=count+1 loop Else Response.Write("não achou nada") End IF %> </ul> </div> </div> <!-- Fim da Div de apresentação das miniaturas --> Desde já agraceço qualquer sugestão. Atenciosamente
  3. hellxande
    Prezado Amigos, gostaria de agradecer a todos que me enviaram sugestões, consegui resolver o problema usando uma dica de outro Forum, sendo assim vou postar aqui o Código Fonte do arquivo de Teste que fiz antes de empregar no Projeto Final de forma a ajudar outras pessoas. <!--#include file="Conexao.asp" --> <% Session.LCID = 1046 Conexao.CursorLocation=3 ' Select da Tabela Franquia fazendo a Distinção por Estado TabFranquiaUF = Server.CreateObject("adodb.recordset") sql = "SELECT DISTINCT FranquiaEnderecoUF FROM Franquia Order By FranquiaEnderecoUF ASC" set TabFranquiaUF = Conexao.execute(sql) %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> <link href="estilo.css" rel="stylesheet" type="text/css" media="all" /> <!-- Carregamento do arquivo JQuery --> &lt;script type="text/javascript" src="Scripts/jquery.js" /></script> <!-- Início do Script de apresentação detalhada dos Dados --> &lt;script type="text/javascript"> $(function(){ $(".maisdetalhe").click(function(){ $(".div-oculta").hide(); $(this).parent().next().show(); return false; }); }); </script> <!-- Fim do Script de apresentação detalhada dos Dados --> </head> <body> <table width="950" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td> <% ' Verifica se o Select retornou vazio ou não IF TabFranquiaUF.EOF Then Response.Write("Nenhuma Pergunta Franquia a ser apresentada !!") Else count = 0 Do While Not TabFranquiaUF.EOF UF = TabFranquiaUF("FranquiaEnderecoUF") ' Select da Tabela Franquia com base na Variável UF TabFranquiaDetalhada = Server.CreateObject("adodb.recordset") sql = "SELECT * FROM Franquia where FranquiaEnderecoUF = '"&UF&"' ORDER BY FranquiaNomeFantasia ASC" set TabFranquiaDetalhada = Conexao.execute(sql) %> <div align="left"> <% ' Início da apresentação das Imagens e Nomes dos Estados Select Case UF Case "AC" Response.Write("<img src='Imgs\estados\AC.png' width='40' height='24' /> <span class='TituloPequenoPreto'>AC - ACRE</span>") Case "AL" Response.Write("<img src='Imgs\estados\AL.png' width='40' height='24' /> <span class='TituloPequenoPreto'>AL - ALAGOAS</span>") Case "AP" Response.Write("<img src='Imgs\estados\AP.png' width='40' height='24' /> <span class='TituloPequenoPreto'>AP - AMAPÁ</span>") Case "AM" Response.Write("<img src='Imgs\estados\AM.png' width='40' height='24' /> <span class='TituloPequenoPreto'>AM - AMAZONAS</span>") Case "BA" Response.Write("<img src='Imgs\estados\BA.png' width='40' height='24' /> <span class='TituloPequenoPreto'>BA - BAHIA</span>") Case "CE" Response.Write("<img src='Imgs\estados\CE.png' width='40' height='24' /> <span class='TituloPequenoPreto'>CE - CEARÁ</span>") Case "ES" Response.Write("<img src='Imgs\estados\ES.png' width='40' height='24' /> <span class='TituloPequenoPreto'>ES - ESPIRITO SANTO</span>") Case "GO" Response.Write("<img src='Imgs\estados\GO.png' width='40' height='24' /> <span class='TituloPequenoPreto'>GO - GOÍAS</span>") Case "MA" Response.Write("<img src='Imgs\estados\MA.png' width='40' height='24' /> <span class='TituloPequenoPreto'>MA - MARANHÃO</span>") Case "MT" Response.Write("<img src='Imgs\estados\MT.png' width='40' height='24' /> <span class='TituloPequenoPreto'>MT - MATO GROSSO</span>") Case "MS" Response.Write("<img src='Imgs\estados\MS.png' width='40' height='24' /> <span class='TituloPequenoPreto'>MS - MATO GROSSO DO SUL</span>") Case "MG" Response.Write("<img src='Imgs\estados\MG.png' width='40' height='24' /> <span class='TituloPequenoPreto'>MG - MINAS GERAIS</span>") Case "PA" Response.Write("<img src='Imgs\estados\PA.png' width='40' height='24' /> <span class='TituloPequenoPreto'>PA - PARÁ</span>") Case "PB" Response.Write("<img src='Imgs\estados\PB.png' width='40' height='24' /> <span class='TituloPequenoPreto'>PB - PARAIBA</span>") Case "PR" Response.Write("<img src='Imgs\estados\PR.png' width='40' height='24' /> <span class='TituloPequenoPreto'>PR - PARANÁ</span>") Case "PE" Response.Write("<img src='Imgs\estados\PE.png' width='40' height='24' /> <span class='TituloPequenoPreto'>PE - PERNAMBUCO</span>") Case "PI" Response.Write("<img src='Imgs\estados\PI.png' width='40' height='24' /> <span class='TituloPequenoPreto'>PI - PIAUÍ</span>") Case "RJ" Response.Write("<img src='Imgs\estados\RJ.png' width='40' height='24' /> <span class='TituloPequenoPreto'>RJ - RIO DE JANEIRO</span>") Case "RN" Response.Write("<img src='Imgs\estados\RN.png' width='40' height='24' /> <span class='TituloPequenoPreto'>RN - RIO GRANDE DO NORTE</span>") Case "RS" Response.Write("<img src='Imgs\estados\RS.png' width='40' height='24' /> <span class='TituloPequenoPreto'>RS - RIO GRANDE DO SUL</span>") Case "RO" Response.Write("<img src='Imgs\estados\RO.png' width='40' height='24' /> <span class='TituloPequenoPreto'>RO - RONDÔNIA</span>") Case "RR" Response.Write("<img src='Imgs\estados\RR.png' width='40' height='24' /> <span class='TituloPequenoPreto'>RR - RORAIMA</span>") Case "SC" Response.Write("<img src='Imgs\estados\SC.png' width='40' height='24' /> <span class='TituloPequenoPreto'>SC - SANTA CATARINA</span>") Case "SP" Response.Write("<img src='Imgs\estados\SP.png' width='40' height='24' /> <span class='TituloPequenoPreto'>SP - SÃO PAULO</span>") Case "SE" Response.Write("<img src='Imgs\estados\SE.png' width='40' height='24' /> <span class='TituloPequenoPreto'>SE - SERGIPE</span>") Case "TO" Response.Write("<img src='Imgs\estados\TO.png' width='40' height='24' /> <span class='TituloPequenoPreto'>TO - TOCANTINS</span>") Case Else Response.Write("<img src='Imgs\estados\DF.png' width='40' height='24' /> <span class='TituloPequenoPreto'>DF - DISTRITO FEDERAL</span>") End Select ' Fim da apresentação das Imagens e Nomes dos Estados %> ( <a class="maisdetalhe" href="#">+</a> ) </div> <div align="center" class="div-oculta" style="display:none;"> <% ' Verifica se existem dados detalhado a serem apresentados IF NOT TabFranquiaDetalhada.EOF Then count = 0 Do While Not TabFranquiaDetalhada.EOF NomeFantasia = TabFranquiaDetalhada("FranquiaNomeFantasia") Endereco = TabFranquiaDetalhada("FranquiaEndereco") EnderecoNumero = TabFranquiaDetalhada("FranquiaEnderecoNumero") EnderecoComplemento = TabFranquiaDetalhada("FranquiaEnderecoComplemento") EnderecoBairro = TabFranquiaDetalhada("FranquiaEnderecoBairro") EnderecoCEP = TabFranquiaDetalhada("FranquiaEnderecoCEP") EnderecoCidade = TabFranquiaDetalhada("FranquiaEnderecoCidade") EnderecoUF = TabFranquiaDetalhada("FranquiaEnderecoUF") Telefone = TabFranquiaDetalhada("FranquiaTelefonePrincipal") Email = TabFranquiaDetalhada("FranquiaEmail") Link = TabFranquiaDetalhada("FranquiaLinkGoogle") ' Início da monta um nova Tabela para apresentar os Dados detalhados de cada Franquia, usando as variáveis acima Response.Write("<br><table width='900' border='0' align='center' cellpadding='0' cellspacing='0' id='Apresentacao'><tr><td align='left' valign='middle' class='TituloPequenoPreto'>"&NomeFantasia&"</td></tr><tr><td align='left' valign='middle' class='CampoPreto'>"&Endereco&" - "&EnderecoNumero&" - "&EnderecoComplemento&"</td></tr><tr><td align='left' valign='middle' class='CampoPreto'>"&EnderecoBairro&" - "&EnderecoCEP&" - "&EnderecoCidade&" - "&EnderecoUF&"</td></tr><tr><td align='left' valign='middle' class='CampoPreto'>"&Telefone&"</td></tr><tr><td align='left' valign='middle' class='CampoPreto'>"&Email&"</td></tr><tr><td align='right' valign='middle' class='CampoPreto'>Localize no Google Maps <a href='"&Link&"' target='_new'><img src='Imgs/mapa.png' width='20' height='20' /></a></td></tr><tr><td align='left' valign='middle' class='CampoPreto'> </td></tr><tr><td><hr /></td></tr></table>") ' Fim da monta um nova Tabela para apresentar os Dados detalhados de cada Franquia, usando as variáveis acima TabFranquiaDetalhada.MoveNext Count=Count+1 Loop Else End IF %> </div> <% TabFranquiaUF.MoveNext Count=Count+1 Loop End IF %> </td> </tr> </table> </body> </html> Novamente obrigados a todos. Atenciosamente
  4. hellxande
    Prezado bareta, consegui montar o código ASP para tal situação, porém acredito estar errando no posicionamento do mesmo, ou errando no próprio JavaScript, pois ao clicar no link sempre mostra o mesmo conteúdo, exemplo tenho cadastrado 4 Franquias, sendo 1 para o estado do AC, 1 para o estado da BA e 2 para o estado do PR, mas quando clico no link da BA ou PR apresenta a Franquia do AC. Segue abaixo o Código completo: <!--#include file="Conexao.asp" --> <% Session.LCID = 1046 Conexao.CursorLocation=3 TabEstado = Server.CreateObject("adodb.recordset") sql = "SELECT DISTINCT Franquia.FranquiaEnderecoUF FROM Franquia INNER JOIN Estado ON Franquia.EstadoID = Estado.EstadoID ORDER BY Franquia.FranquiaEnderecoUF ASC" set TabEstado = Conexao.execute(sql) %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> <link href="estilo.css" rel="stylesheet" type="text/css" media="all" /> <style> /*MOSTRANDO E OCULTANDO SERVIÇOS*/ .esconder { display:none; visibility:hidden; } .mostrar { display:block;Visibility:visible; } </style> &lt;script> /*FUNÇÃO PARA MOSTAR E OCULTAR DETALHES DE UM SERVIÇO*/ var strId = ""; var mosTod = true; function labelDetalhe(strIdDetalhe,strClasse){ var id = document.getElementById(strIdDetalhe); if(typeof(id) == 'object'){ if(strClasse == 'mostrar'){ id.innerHTML = '<i>-</i>'; }else{ id.innerHTML = '+'; } } } function mostrarItem(strItem, strIdDet){ var d = document; var obj = d.getElementById(strItem); if(mosTod){ if(obj.className == 'mostrar'){ obj.className = 'esconder'; }else{ obj.className = 'mostrar'; } labelDetalhe(strIdDet, obj.className); strId = strItem; }else{ if(strId == ''){ obj.className = 'mostrar'; strId = strItem; }else if(strId == strItem){ obj.className = 'esconder'; strId = ''; }else{ obj.className = 'mostrar'; d.getElementById(strId).className = 'esconder'; strId = strItem; } labelDetalhe(strIdDet, obj.className); } } </script> </head> <body> <% IF TabEstado.EOF Then Response.Write("Nenhuma Pergunta Franquia a ser apresentada !!") Else count = 0 Do While Not TabEstado.EOF UF = TabEstado("FranquiaEnderecoUF") TabFranquiaDetalhada = Server.CreateObject("adodb.recordset") sql = "SELECT * FROM Franquia where FranquiaEnderecoUF = '"&UF&"' ORDER BY FranquiaNomeFantasia ASC" set TabFranquiaDetalhada = Conexao.execute(sql) %> <table width="900" border="0" align="center" cellpadding="0" cellspacing="0" id="Franquias"> <tr> <td colspan="2" align="left" valign="middle"> <a href="java script:void(0);" onclick="mostrarItem('item<%=i%>','det<%=i%>');"> <strong class="TituloGrandePreto"><%=UF%></strong> (<span class='CampoPreto' id="det<%=i%>"> + </span>) </a> </td> </tr> <tr> <td width="50"> </td> <td width="850" align="left" valign="middle"> <% IF NOT TabFranquiaDetalhada.EOF Then count = 0 Do While Not TabFranquiaDetalhada.EOF NomeFantasia = TabFranquiaDetalhada("FranquiaNomeFantasia") %> <div class="esconder" id='item<%=i%>'> <% Response.Write(""&NomeFantasia&"<br>") %> <% TabFranquiaDetalhada.MoveNext Count=Count+1 Loop Else End IF %> </div> </td> </tr> </table> <% TabEstado.MoveNext Count=Count+1 Loop End IF %> </body> </html> Acredito ser algum erro banal, porém não estou conseguindo identificar, sendo assim qualquer sugestão é bem vinda. Atenciosamente
  5. hellxande
    Prezado bareta, primeiramente obrigado pela resposta Seguindo sua sugestão criei uma Tabela para Estados com a seguinte estrutura: EstadoID EstadoNome EstadoSigla E alterei a Estrutura da Tabela Franquia de forma a tem vinculo com a Tabela Estado, veja abaixo: FranquiaID EmpresaID FranquiaResponsavelNome FranquiaResponsavelCPF FranquiaResponsavelRG FranquiaRazaoSocial FranquiaNomeFantasia FranquiaCNPJ FranquiaIE FranquiaEndereco FranquiaEnderecoNumero FranquiaEnderecoComplemento FranquiaEnderecoBairro FranquiaEnderecoCEP FranquiaEnderecoCidade EstadoID ' Campo que recebe o Código do Estado FranquiaEnderecoUF ' Campo que recebe a Sigla do Estado FranquiaTelefonePrincipal FranquiaTelefoneSecundario FranquiaEmail FranquiaLinkGoogle FranquiaRestaurante Porém agora não estou conseguindo montar o Join de forma a apresentar os Estados de Franquias cadastradas fazendo a Distinção das mesmas sem repetir o Estado, porém mostrando os dados cadastrais das mesmas.... heheh Socorro... heheh Atenciosamente
  6. hellxande
    Salve galera, estou precisando de ajuda. Tenho uma Tabela chamada Franquia, onde cadastro os dados dos Franqueados da Empresa. Meu objetivo é realizar a apresentação destes franqueados da seguinte forma: '1º O Estado e na frente do mesmo um Sinal de + UF ( + ) ' Ao clicar no sinal de + apresentará as Franquias daquele Estado. Dados cadastrais de todas as Franquias deste Estados Neste momento tenho conseguido fazer a primeira parte utilizando esta Seleção ( SELECT DISTINCT FranquiaEnderecoUF FROM Franquia Order By FranquiaEnderecoUF ASC ) O problema esta no momento de escrever os dados de cada Franquia por estado, pois ao clicar no Sinal de + fica sempre apresentado a mesma. Segue abaixo os trecho do meu Código. ' Seleção da Franquia fazendo a distinção por estado TabFranquiaGeral = Server.CreateObject("adodb.recordset") sql = "SELECT DISTINCT FranquiaEnderecoUF FROM Franquia Order By FranquiaEnderecoUF ASC" set TabFranquiaGeral = Conexao.execute(sql) <style> /* Classe que mostra e oculta a Franquia*/ .esconder { display:none; visibility:hidden; } .mostrar { display:block;Visibility:visible; } </style> &lt;script> /* Função para mostrar e ocultar os dados das Franquias*/ var strId = ""; var mosTod = true; function labelDetalhe(strIdDetalhe,strClasse){ var id = document.getElementById(strIdDetalhe); if(typeof(id) == 'object'){ if(strClasse == 'mostrar'){ id.innerHTML = '<i>-</i>'; }else{ id.innerHTML = '+'; } } } function mostrarItem(strItem, strIdDet){ var d = document; var obj = d.getElementById(strItem); if(mosTod){ if(obj.className == 'mostrar'){ obj.className = 'esconder'; }else{ obj.className = 'mostrar'; } labelDetalhe(strIdDet, obj.className); strId = strItem; }else{ if(strId == ''){ obj.className = 'mostrar'; strId = strItem; }else if(strId == strItem){ obj.className = 'esconder'; strId = ''; }else{ obj.className = 'mostrar'; d.getElementById(strId).className = 'esconder'; strId = strItem; } labelDetalhe(strIdDet, obj.className); } } </script> <% ' Verificação se existe alguma Franquia a ser apresentada com base no Select Distinct IF TabFranquiaGeral.EOF Then Response.Write("Nenhuma Pergunta Franquia a ser apresentada !!") Else count = 0 Do While Not TabFranquiaGeral.EOF ' Variável que recebe o Nome do Estado a ser apresentado FranquiaEnderecoUF = TabFranquiaGeral("FranquiaEnderecoUF") %> <!-- Inicio da Montagem da tabela de apresentação das franquias --> <table width="900" border="0" align="center" cellpadding="0" cellspacing="0" id="Franquias"> <tr> <td colspan="2" align="left" valign="middle"> <a href="java script:void(0);" onclick="mostrarItem('item<%=i%>','det<%=i%>');"> <strong class="TituloGrandePreto"><%=FranquiaEnderecoUF%></strong> (<span class='CampoPreto' id="det<%=i%>"> + </span>) </a> </td> </tr> <tr> <td width="50"> </td> <td width="850" align="left" valign="middle"> <% TabFranquiaDetalhes = Server.CreateObject("adodb.recordset") sql = "SELECT * FROM Franquia where FranquiaEnderecoUF = '"&FranquiaEnderecoUF&"' Order By FranquiaNomeFantasia ASC" set TabFranquiaDetalhes = Conexao.execute(sql) count = 0 While Not TabFranquiaDetalhes.EOF NomeFantasia = TabFranquiaDetalhes("FranquiaNomeFantasia") %> <div class="esconder" id='item<%=i%>'> <!-- Escrevendo os dados de cada Franquia --> <%=NomeFantasia%> <!-- Escrevendo os dados de cada Franquia --> </div> <% TabFranquiaDetalhes.MoveNext Count=Count+1 Loop %> </td> </tr> </table> <% TabFranquiaGeral.MoveNext Count=Count+1 Loop End IF %> Qualquer sugestão é bem vinda. Desde já agradeço.
  7. hellxande
    Prezados amigos. Primeiramente gostaria de me desculpar, pois quando postei a dúvida em questão não percebi que estava manipulando o Banco errado, sendo assim realmente não retornava informação nenhuma, pois não tinha nada a apresentar, porém o código estava certo. quando troquei de máquina de desenvolvimento é q fui percebi a besteira, mas de qualquer forma muitissimo obrigado a todos e desculpe o transtorno. Atenciosamente Ps: Segue abaixo o trecho que realmente esta funcionando corretamente. select * from Agenda where AgendaData = curdate() order by AgendaData, AgendaPalco desc
  8. hellxande
    Tenta isso: AgendaData BETWEEN #"&data_inicio&"# and #"&data_final&"# Mas acho que você vai ter que especificar um periodo inicial e no final você usa o curdate()... Prezado Everton, Obrigado pela resposta, porém o problema é que necessito usar o Curdate() p/ obter a Data Atual. Já tentei criar uma variável obtendo a data atual e em seguida utiliza-la como referência no select, mas tb não tive sucesso. (pode ser que esteja fazendo isto errado tb... hehe) Aguardo novas sugestões. Ps:
  9. hellxande
    Prezados Venho novamente pedir ajuda a vocês, pois estou com dificuldades em obter os registro de Banco de Dados (MySql) através de um campo Date. Segue abaixo o Select que estou usando, porém não me retorna nada mesmo tendo registro no banco. sql = "SELECT * FROM Agenda where AgendaData = curdate()" Ps: O Campo esta como Date e os registro estão assim "AAAA-MM-DD" Desde já agradeço a ajuda. Atenciosamente
  10. hellxande
    Salve Geasi Marcos. Primeiramente gostaria de me desculpar pela demora, pois estive envolvido em outros projetos, porém a sua sugestão foi pontual e precisa, com base nela resolvi o problema, sendo assim muitissimo obrigado !! Abraços. Hellxande
  11. hellxande
    Boa noite a todos, Novamente venho solicitar a ajuda de vocês, o código abaixo funciona normalmente se utilizo informações especificas, porém não estou conseguindo utiliza-lo quando as informações veêm do Banco. 'Select da Tabela desejada Conexao.CursorLocation = 3 TabProduto = Server.CreateObject("adodb.recordset") sql = "select * from TabProduto order by ProdutoIdOrdem desc " set TabProduto = Conexao.execute(sql) /*FUNÇÃO PARA MOSTAR E OCULTAR DETALHES DE UM SERVIÇO*/ var strId = ""; var mosTod = true; function labelDetalhe(strIdDetalhe,strClasse){ var id = document.getElementById(strIdDetalhe); if(typeof(id) == 'object'){ if(strClasse == 'mostrar'){ id.innerHTML = '<i>Ocultar Detalhes</i>'; }else{ id.innerHTML = 'Mostrar Detalhes'; } } } function mostrarItem(strItem, strIdDet){ var d = document; var obj = d.getElementById(strItem); if(mosTod){ if(obj.className == 'mostrar'){ obj.className = 'esconder'; }else{ obj.className = 'mostrar'; } labelDetalhe(strIdDet, obj.className); strId = strItem; }else{ if(strId == ''){ obj.className = 'mostrar'; strId = strItem; }else if(strId == strItem){ obj.className = 'esconder'; strId = ''; }else{ obj.className = 'mostrar'; d.getElementById(strId).className = 'esconder'; strId = strItem; } labelDetalhe(strIdDet, obj.className); } } <% 'Apresentação dos resultados889 i = 0 Do While Not TabProduto.eof Nome = TabProduto("ProdutoNome") Descricao = TabProduto("ProdutoDescricao") %> <table width="780" border="0" cellpadding="0" cellspacing="0" style="margin-top:5px; border-top:1px solid #DDEDB8;"> <tr> <th width="12" rowspan="2" align="left" valign="bottom" scope="col"> </th> <th align="left" valign="top" class="titulo2" scope="col"> <!-- ESCREVENDO O NOME DO PRODUTO --> <a href="java script:void(0);" onclick="mostrarItem('item"<%=i%>"','det"<%=i%>"');"> <strong class="titulo2"><%=Nome%></strong> (<span class='texto1' id="det"<%=i%>""> Mostrar Detalhes</span>) </a> <!-- ESCREVENDO O NOME DO PRODUTO --> </th> <th width="12" rowspan="2" align="left" valign="bottom" scope="col"> </th> </tr> <tr> <th align="left" valign="top" scope="col" class="texto1"> <div class="esconder" id="item"<%=i%>""> <!-- ESCREVENDO O DESCRICAO DO PRODUTO --> <%=Descricao%> <!-- ESCREVENDO O DESCRICAO DO PRODUTO --> </div> </th> </tr> </table> <% TabProduto.MoveNext i = i + 1 Loop %> O problema esta justamente na apresentação da Descrição Qualquer ajuda é bem vinda. Obrigado a todos.
  12. hellxande
    Prezado Bareta e a quem interessar possa Identifiquei e resolvi o problema. Por alguma razão fiz a besteira de colocar errado o nome da chamada do Objeto. Trecho errado 'Select da Tabela com base na informação da Variável. TabGaleria = Server.CreateObject("adodb.recordset") sql = "select * from TabGaleria where GaleriaTitulo = '"&GaleriaTitulo&"'" set GaleriaTitulo = Conexao.execute(sql) Trecho corrigido 'Select da Tabela com base na informação da Variável. TabGaleria = Server.CreateObject("adodb.recordset") sql = "select * from TabGaleria where GaleriaTitulo = '"&GaleriaTitulo&"'" set TabGaleria = Conexao.execute(sql) Agora esta funcionando perfeitamente. De qualquer forma obrigado pela ajuda Abraços a todos Hellxande
  13. hellxande
    A Tabela chama-se TabGaleria mesmo.
  14. hellxande
    Prezado Bareta. Obrigado pela resposta, porém este campo existe no Banco, segue abaixo a estrutura da tabela em questão. -------------------------- Tabela: Galeria -------------------------- Campo: GaleriaID Tipo: Int(10) Atributo: UNSIGNED Nulo: Não Extra: AutoIncremento -------------------------- Campo: GaleriaTitulo Tipo: Text Nulo: Não -------------------------- Atenciosamente Hellxande
  15. hellxande
    Prezados amigos, Venho novamente solicitar auxilio de vocês, pois estou fazendo a Migração de Acsess p/ MySQL e me deparei com um problema. Em uma página faço a seleção de um registro através de um Combo (este é carregado com os dados de uma tabela) e ao realizar o envio p/ a outra página esta seleção entra em um Select de forma a me permitir obter outras informações deste registro p/ gravação em outra tabela. Segue abaixo o código que estava usando com Banco Access e não funciona com o MySQL. ' Campo da 1ª Página <select name="GaleriaTitulo" id="GaleriaTitulo"> <option value="00">--</option> <% while not TabGaleria.eof %> <option value="<%=TabGaleria("GaleriaTitulo")%>"><%=TabGaleria("GaleriaTitulo")%></option> <% TabGaleria.movenext wend %> </select> ' Código da 2ª Página <!--#include file="../Conexao.asp" --> Session.LCID = 1046 Conexao.CursorLocation = 3 ' Variável que recebe o conteúdo vindo da página anterior. GaleriaTitulo = Request.Form("GaleriaTitulo") 'Select da Tabela com base na informação da Variável. TabGaleria = Server.CreateObject("adodb.recordset") sql = "select * from TabGaleria where GaleriaTitulo = '"&GaleriaTitulo&"'" set GaleriaTitulo = Conexao.execute(sql) ' Variável que receber o Código do Registro da Tabela selecionada p/ poder grava-lo na outra Tabela. GaleriaID = TabGaleria("GaleriaID") ' O problema esta neste ponto Ao executar o Post da 1ª página retornar a seguinte mensagem de erro: ADODB.Fields erro '800a0cc1' O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado. Desde já agradeço a ajuda. Atenciosamente Hellxande
  16. hellxande

    Erro De Principiante

    pergunta respondeu ao hellxande de hellxande em ASP

    Prezado Bareta Obrigado pela sugestão. No Banco de Dados o campo relacionado ao Preço esta como Unidade Monetária, com Casas Decimais automáticas. Sobre a alteração q você sugeriu quando retiro as Aspas Simples deixando assim EmpresaAereaPreco="&preço&" ele me retorna o seguinte: Ou seja me retorna junto com o erro o valor redondo, apesar de eu ter informado R$ 250,10 ( isto usando Virgula ), usando Ponto, tb me retorna o mesmo erro porém com o valor informado R$ 250.10. Esta linha 33 refere-se justamente ao Update Atenciosamente Hellxande
  17. hellxande

    Erro De Principiante

    uma questão postou hellxande ASP

    Boa Noite a Todos. Galera, com certeza este deve ser mais um erro de principiante q cometo, porém não estou sabendo resolver. Tenho uma Área Administrativa no Site q estou montando, onde o Usuário pode fazer as alterações necessárias dos registros desejados. Meu problema começa na questão de alteração de campos de valores, se rodo com valores redondos exemplo 100,00 funciona perfeitamente, porém se rodo com valores quebrados exemplo 100,10 me acusa o erro abaixo: Segue o Código q estou utilizando: Session.LCID = 1046 NomeEmpresa=Request.Form("Nome") ' Campo Texto ComboOrigem=Request.Form("Combo") ' Campo Texto ComboDestino=Request.Form("Combo2") ' Campo Texto preço=Request.Form("preço") ' Campo Unidade Monetária ComboEmpresaAerea=Request.Form("ComboEmpresaAerea") ' Campo Texto sql="update EmpresaAerea set EmpresaAereaNome='"&NomeEmpresa&"', EmpresaAereaOrigem='"&ComboOrigem&"', EmpresaAereaDestino='"&ComboDestino&"', EmpresaAereaPreco='"&preço&"', EmpresaAereaModalidade='"&ComboEmpresaAerea&"' where EmpresaAereaID="&request.querystring("Cod")&"" db.execute(sql) db.close set db=NOTHING Desde já agradeço a ajuda, pois qualquer sugestão é bem vinda. Atenciosamente Hellxande
  18. hellxande
    Prezado Amigos. Primeiramente gostaria de agradecer a todos q tentaram me auxiliar nesta questão, porém infelizmente nenhuma sugestão das q foram feitas, resolveu o problema. Mas depois de muito bater a cabeça descobri q eu estava montando errado meu código, diante disso vou postar aqui a correção e implementação que aproveitei fazer p/ atender a minha necessidade, p/ q outras pessoas possam ter algum proveito disso. Neste ponto estou fazendo a verificação do que a Variável Aerea irá receber <% if RadioModalidade = "Aéreo + Hotel + Serviço" then if not tab.eof then Aerea = tab("EmpresaAereaNome") else Aerea = Response.Write("Não existe Empresa Aérea para este percurso") end if elseif RadioModalidade = "Aéreo + Hotel" then if not tab.eof then Aerea = tab("EmpresaAereaNome") else Aerea = Response.Write("Não existe Empresa Aérea para este percurso") end if elseif RadioModalidade = "Hotel + Serviço" then Aerea = Response.Write("Não existe Empresa Aérea para esta modalidade escolhida") else Aerea = Response.Write("Não existe Empresa Aérea para esta modalidade escolhida") end if %> Aqui estou montando o meu Objeto ComboEmpresaAerea <select name="ComboEmpresaAerea" id="ComboEmpresaAerea"> <% while not tab.eof If Aerea = tab("EmpresaAereaNome") Then%> <option value="<%=tab("EmpresaAereaNome")%>" selected><%=Aerea%></option> <%Else%> <option value="<%=tab("EmpresaAereaNome")%>"><%=tab("EmpresaAereaNome")%></option> <%End If%> <% tab.movenext wend %></select> O Código com certeza não é dos melhores... hehe.. Mas até atendendo as minhas necessidades. Espero ajudar alguém com isso. Abraços a todos. Hellxande
  19. hellxande
    Prezado Romero Obrigado pelo contato. Esta String RadioModalidade, vem do Objeto RadioButom existente na página anterior que é alimentada numa variável de nome igual que serve p/ auxiliar o Select feito na Tabela de EmpresaAerea, afim de trazer as Empresas que atendem aos requisitos de Origem, Destino e Modalidade. Em seguida faço a verificação apresentada no IF que tem como objetivo alimentar a variável "Aerea" com o Nome da EmpresaAerea correspondente a seleção, em seguida pego a mesma variável e faço ela ser utilizada no Objeto ComboEmpresaAerea afim de mostrar quais são os nomes das Empresas, até aqui esta funcionando corretamente. Meu problema começa no momento em que seleciono uma das Empresas apresentadas no ComboEmpresaAerea e mando avançar p/ a outra página, pois sempre vai a mesma Empresa, ou seja, o erro esta neste trecho: <select name="ComboEmpresaAerea" id="ComboEmpresaAerea"> <% while not tab.eof %> <option value="<%=Aerea%>"><%=tab("EmpresaAereaNome")%></option> <% tab.movenext wend %> </select> Porém não sei o q devo fazer p/ corrigir. Atenciosamente Hellxande
  20. hellxande
    Prezada Andreia Obrigado pela resposta, mas o q estou querendo é apresentar o nome q foi selecionado no Campo ComboEmpresaAerea, porém por mais q eu selecione a segunda ou terceira opção apresentada no campo, sempre me aparece a primeira na outra página. Atenciosamente. Hellxande
  21. hellxande
    Olá a todos. Estou com um problema de apresentação de um resultado que não estou conseguindo resolver. O trecho de Código abaixo faz uma filtragem se existe um EmpresaAerea que atende a estes requisitos <% if RadioModalidade = "Aéreo + Hotel + Serviço" then Aerea = tab("EmpresaAereaNome") elseif RadioModalidade = "Aéreo + Hotel" then Aerea = tab("EmpresaAereaNome") elseif RadioModalidade = "Hotel + Serviço" then Aerea = Response.Write("Não tem") else Aerea = Response.Write("Não tem") end if %> Existindo ele me apresenta neste outro trecho <select name="ComboEmpresaAerea" id="ComboEmpresaAerea"> <% while not tab.eof %> <option value="<%=Aerea%>"><%=tab("EmpresaAereaNome")%></option> <% tab.movenext wend %></select> Meu problema começa aqui, pois quando tem mais de 1 me apresenta as duas porém a Variável <%=Aerea%> não é atualizada na outra página conforme a escolha que faço. Na outra página estou resgatando o resultado da seguinte forma EmpresaAerea = Request.Form("ComboEmpresaAerea") e apresentado assim <%=EmpresaAerea%> Porém sempre me mostra o mesmo resultado. O q estou fazendo de errado, alguém pode me ajudar?? Qual ajuda é bem vinda. Abraços a todos. Hellxande
  22. hellxande
    Prezado ADL Infelizmente a sua sugestão não resolveu o meu problema, porém depois de me bater muito, com segui achar a origem e a solução o problema, sendo assim até o momento esta funcionando perfeitamente. Vou postar p/ eventual necessidade de outras pessoas. Fiz um Select desta forma: sql = "select * from EmpresaAerea where EmpresaAereaDestino = '"&DestinoOculto&"' AND EmpresaAereaModalidade = '"&RadioModalidade&"'" Usei este trecho de Código: <% if RadioModalidade = "Aéreo + Hotel + Serviço" then Aerea = tab("EmpresaAereaNome") elseif RadioModalidade = "Aéreo + Hotel" then Aerea = tab("EmpresaAereaNome") elseif RadioModalidade = "Hotel + Serviço" then Aerea = Response.Write("Não tem") else Aerea = Response.Write("Não tem") end if %> <table width="100%" border="0"> <tr> <td> <% while not tab.eof%> <%=Aerea%> <% tab.movenext wend %> </td> </tr> </table></td> Diante disso novamente lhe agradeço pela ajuda e desculpe qualquer coisa. :D Atenciosamente Hellxande
  23. hellxande
    Prezado ADL Obrigado pela resposta, porém infelizmente não é isso que estou querendo, pois já estou fazendo algo parecido em outra situação. O que estou precisando é conforme a opção selecionada no Radio que é composto por registro previamente cadastrados no Banco. Após clicar no Submit do Form e direcionar p/ outra página, nesta outra seja feito uma verificação se a Modalidade escolhida é Aérea e se tem Empresas Aéreas ligada ao Destino escolhido. Este destino é escolhido na 1º página e passado p/ 2º. Na 2º página o Destino esta armazenado em um Campo Oculto. Na 3º página tenho um Select que faz a busca se existe Empresas Aéreas ligadas ao Destino armazenado neste Campo Oculto. Não sei se agora ficou mais claro ou piorei a explicação.. hehh Mas de qualquer forma agradeço a sua ajuda. Atenciosamente Hellxande
  24. hellxande
    Bom Dia a todos Estou precisando de uma ajuda na lógica provavelmente na execução deste processo. Tenho em uma página o Componente Radio que é carregado com registros de uma Tabela, esta contém 2 campos ModalidadeNome e ModalidadeAerea, neste mesma tabela já existem 4 registros os quais compoem o Radio da página. Meu problema começa na seguinte situação: Ao selecionar uma das opções do Radio e precionar o botão Avançar que direciona p/ próxima página, esta deve carregar as informações referentes a outra Tabela a EmpresaAerea sem muita fulia estou conseguindo fazer isto funcionar, porém necessito que esta relação seja montada com base no valor do campo ModalidadeAerea. Ex: Opções do Radio - Aérea + Hotel + Serviços - Aérea + Hotel - Hotel + Serviços - Hotel Caso selecione a 1º opção na outra tela deverá verificar se a opção é ModalidadeAerea através do valor do campo que é Sim ou Não e em seguida montar a relação de Empresas Aéreas que atendam ao Select já existente que busca as Empresas que tem o campo Destino igual ao Destino selecionado também anteriormente. Caso a opção seja ModalidadeAerea mas com base no Select não tem nenhuma Empresa Aérea que atenda ao Destino, deve aparecer uma mensagem qualquer. Caso não seja ModalidadeAerea então só aparecer uma outra mensagem. Já tentei montar isto usando IF.. ELSE até mesmo com CASE porém não obtive sucesso, por causa da minha falta de experiencia, diante disso resolvi pedir socorro, pois preciso resolver isso urgentemente. Desde já agradeço a atenção e qualquer ajuda é bem vinda. Atenciosamente Hellxande
  25. hellxande
    Prezado Bareta. Com base na sua sugestão fiz uma pesquisa sobre DateDiff e achei exatamente o que precisava, sendo assim muito obrigado. Atenciosamente Hellxande
×
×
  • Criar Novo...