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
    Prezada Andreia Realmente você acertou em cheio.. é exatamente isto que estou precisando.. Muito obrigado mesmo !! ------------------------------ Editado..... Agora deixa eu lhe perguntar uma outra coisa como posso fazer p/ descobrir os dias de intervalo entre uma Data e outra. Ex: no 1º campo escolho 01/06/2007 - no 2º campo escolho 10/06/2007 O periodo que gostaria de descobrir seria 9 dias Alguma sugestão de como fazer isso Atenciosamente Hellxande
  2. hellxande
    Prezada Andreia Obrigado pela resposta. Acho que me expressei mal, queira dizer que gostaria de colocar um calendário na página que funcione assim: quando o Usuário clicar numa figura qualquer e abra o Calendário, de forma que o mesmo possa escolher a data desejada e ao selecionar a data esta seja apresentada em um Campo TextField existente ao lado desta figura. Sobre a sua sugestão de pegar um JavaScript, eu realmente estou procurando assim também, porém infelizmente os que tenho achado não estão atendendo esta necessidade ou eu não estou sabendo como usa-los, diante disso resolvi perguntar aqui no Fórum pois sei que existem muitas pessoas com muito mais experiencia do que eu em desenvolvimento Web e que talvez tenha se deparado com este tipo de necessidade e saiba onde devo procurar ou até mesmo tenha um script e posso disponibilizar. Atenciosamente Hellxande
  3. hellxande

    Dúvida Num Select

    pergunta respondeu ao hellxande de hellxande em ASP

    Prezados Amigos. Primeiramente me desculpe pela demora da resposta, porém a dúvida em questão eu consegui resolver e infelizmente não havia tido tempo de postar a solução que adotei, mas segue a mesma agora. "select * from NOMEDATABELA where NOMEDOCAMPO = '"&NOMEDOCAMPOOCULTO&"'" Obrigado novamente a todos pela ajuda. Atenciosamente Hellxande
  4. hellxande
    Boa Tarde a todos Já procurei em vários Sites e Fóruns, porém não achei um que funciona da forma que preciso, ou não consegui fazer funcionar. Alguém acaso sabe onde posso encontrar um calendário onde o usuário pode selecionar o dia desejado e após desta seleção a data em questão é direcionada p/ o Textfield correspondente. Desde já agradeço a ajuda. Atenciosamente Hellxande
  5. hellxande

    Dúvida Num Select

    uma questão postou hellxande ASP

    Boa tarde a todos Estou precisando fazer um um Select usando o Valor de outro campo no mesmo formulário. Tenho um Campo Oculto que recebe o valor de outro Formulário, este valor necessito usar num select, porém não estou sabendo como fazer isso. Alguém pode me auxiliar. Atenciosamente Hellxande
  6. hellxande
    Prezado Bareta. Obrigado pela dica, com isso resolvi uma das questões.. Atenciosamente Hellxande
  7. hellxande
    Bom dia a todos Depois de procurar em vários Posts relacionados a CkeckBox, infelizmente não consegui encontrar ou entender algo que me auxilia-se, sendo assim resolvi postar a minha situação: Tenho em meu código 1 CkeckBox carregado com os dados de uma Tabela, no caso acabam aparecendo 3 CheckBox com os registros da tabela em modo de execução. Minha dúvida é: Na hora da gravação como saber qual dos Registros do CheckBox's foi selecionado ? Segue o Código para avaliação: <!--#include file="Conexao.asp" --> <% tabCod = Server.CreateObject("adodb.recordset") sql = "SELECT * FROM Destino where DestinoID = "&request.querystring("cod")&"" set tabCod = db.execute(sql) %> <html> <head> <title>Documento sem título</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <form name="form1" method="post" action="Def_Cota.asp"> <table width="80%" cellpadding="0"> <tr> <td width="53%" rowspan="2" valign="top"> <% tab2 = Server.CreateObject("adodb.recordset") sql = "select * from Modalidade" set tab2 = db.execute(sql) %> <table width="100%" cellpadding="0"> <tr> <td><strong>Escolha a Modalidade :</strong></td> </tr> </table> <% while not tab2.eof %> <table width="100%" cellpadding="0"> <tr> <td><input type="checkbox" name="checkbox" value="checkbox"> <%=tab2("ModalidadeNome")%></td> </tr> <% tab2.movenext wend %> </table> <br> <br> <% tab3 = Server.CreateObject("adodb.recordset") sql = "select * from Origem" set tab3 = db.execute(sql) %> <table width="100%" border="0" align="center"> <tr> <td><strong>Selecione a Cidade de Origem :</strong></td> </tr> <tr> <td> <select name="select" id="select2"> <% while not tab3.eof %> <option value="<%=tab3("OrigemNome")%>"><%=tab3("OrigemNome")%></option> <% tab3.movenext wend %> </select> </td> </tr> </table> <br> <br> <% tab4 = Server.CreateObject("adodb.recordset") sql = "select * from Pessoa" set tab4 = db.execute(sql) %> <table width="100%" border="0" align="center"> <tr> <td><strong>Quantidade de Pessoas : </strong></td> </tr> </table> <% while not tab4.eof %> <table width="100%" border="0" align="center"> <tr> <td> <label> <input name="QtdPessoas" type="text" id="QtdPessoas" size="1" maxlength="3" /><%=tab4("PessoaNome")%> </label> </td> </tr> <% tab4.movenext wend %> </table> <br> <br> <% tab5 = Server.CreateObject("adodb.recordset") sql = "select * from AptoTipo" set tab5 = db.execute(sql) %> <table width="100%" border="0" align="center"> <tr> <td><strong>Tipo de Acomodações : </strong></td> </tr> </table> <% while not tab5.eof %> <table width="100%" border="0" align="center"> <tr> <td> <label> <input name="CheckApto" type="checkbox" id="CheckApto" value="<%=tab5("AptoTipoNome")%>" /><%=tab5("AptoTipoNome")%> </label> </td> </tr> <% tab5.movenext wend %> </table></td> <td width="47%" height="410" valign="top"> <% tab6 = Server.CreateObject("adodb.recordset") sql = "select * from Hotel" set tab6 = db.execute(sql) %> <table width="100%" border="0" align="center"> <tr> <td width="195"><strong>Hoteis </strong></td> <td width="89"><strong>Valor</strong></td> </tr> </table> <% while not tab6.eof %> <table width="100%" border="0" align="center" id="Hotel"> <tr> <td width="195"><%=tab6("HotelNome")%></td> <td width="89"> </td> </tr> <% tab6.movenext wend %> </table> <br> <table width="100%" cellpadding="0"> <tr> <td><input name="hiddenField" type="hidden" value="<%=(tabCod.Fields.Item("DestinoNome").Value)%>"></td> </tr> </table></td> </tr> <tr> <td valign="middle"> <div align="right"><input type="submit" name="Submit" value="Prosseguir"></div> </td> </tr> </table> </form> </body> </html> Desde já agradeço a ajuda de todos. Atenciosamente Hellxande
  8. hellxande
    Boa Tarde a todos Gostaria de saber como posso fazer um Insert num Tabela usando registro obtidos através de outras. Ex: Tabela A ( Tabela Origem ) Nome: Teste Tabela B ( Tabela Origem ) Funcao: Secretaria Tabela C ( Tabela Destino ) Nome: Teste Funcao: Secretaria Como ficaria meu Insert neste tipo de situação ? Desde já agradeço a ajuda de todos. Atenciosamente Hellxande
  9. hellxande
    Prezada Andreia Realmente eu estava errando neste código do Update porém também estava errando na tela de apresentação das informações do Registro que estava selecionando, pois o Form da mesma não estava passando a referência do Código a ser alterado. Sendo assim muito Obrigado pela ajuda.. Depois eu vou Editar este Post, p/ colocar os Códigos que usei afim de ajudar outros novatos como eu... Valeu !!
  10. hellxande
    Prezada Andreia. Infelizmente não entendi o que me sugeriu agora. O Campo Codigo em meu BD é auto incremento e na verdade aquele tab que coloquei na Query do Update não existe. você poderia me explicar de outra forma o que devo fazer p/ ficar correto.
  11. hellxande
    Prezada Andreia. Primeiramente obrigado, fiz a alteração conforme sua dica e funcionou perfeitamente, ou seja, a página que mostra as informações que serão alteradas agora apresenta as informações do registro selecionado. Diante disso fiz o meu Alterapost.asp que tem como objetivo alterar as informações, tomando de base a dica que me passou. Porém acho que novamente estou cometendo um erro besta, pois esta me acusando a seguinte mensagem de erro: ========= Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A0401) Fim da instrução esperado /alexandre/Alterapost.asp, line 27, column 147 sql="update TABCADASTRO set NOME='"&p_nomefunc&"',EMAIL='"&p_email&"',ENDERECO='"&p_endereco&"',CIDADE='"&p_cidade&"',UF='"&p_uf&"' where CODIGO='"tab("CODIGO")"'" ======== Segue abaixo o Código que estou usando: ========= <%@language="VBScript"%> <Html> <Body> <div align="center"> <% p_nomefunc=Request.Form("NOME") p_email=Request.Form("EMAIL") p_endereco=Request.Form("ENDERECO") p_cidade=Request.Form("CIDADE") p_uf=Request.Form("UF") Set db = server.createobject("adodb.connection") Banco = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Banco/Banco.mdb") db.CursorLocation = 3 db.Open "Banco" sql="update TABCADASTRO set NOME='"&p_nomefunc&"',EMAIL='"&p_email&"',ENDERECO='"&p_endereco&"',CIDADE='"&p_cidade&"',UF='"&p_uf&"' where CODIGO='"tab("CODIGO")"'" db.execute(sql) db.close set db=NOTHING %> <H2> Gravação Efetuada </H2> <strong>Nome:</strong> <%=p_nomefunc%><Br> <strong>E-mail:</strong> <%=p_email%><Br> <strong>Endereço:</strong> <%=p_endereco%><Br> <strong>Cidade:</strong> <%=p_cidade%><Br> <strong>UF:</strong> <%=p_uf%><Br> <A HREF="index.asp"> Voltar<br> </A><A HREF="todos.asp">Todos<br> </A></div> </Body> </Html> Desde já agradeço a ajuda. Hellxande
  12. hellxande
    Bom Dia a Todos ! Estou fazendo alguns testes com os recursos de Alteração e Exclusão de registros no Banco. Montei dois arquivos sendo um que mostra todos os registros do Banco e neste existe um link p/ Alterar o registro desejado, porém quando clico no link Alterar independente de qual registro seja sempre me mostra o conteúdo do primeiro registro na página de apresentação dos dados do registro selecionado, sendo assim nem consigo chegar na parte de alteração mesmo. Imagino que seja alguma coisa muito besta que estou fazendo, sendo assim resolvi pedir ajuda. Segue abaixo os Códigos Completos: ================= Mostrar todos os Registros ================= <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set db = server.createobject("adodb.connection") Banco = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Banco/Banco.mdb") db.CursorLocation = 3 db.Open "Banco" tab = Server.CreateObject("adodb.recordset") sql = "SELECT * FROM TABCADASTRO ORDER BY CODIGO ASC" set tab = db.execute(sql) %> <html> <head> <title>Documento sem título</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <table width="70%" cellpadding="0"> <tr> <td width="20%"><strong>Nome</strong></td> <td width="18%"><strong>Email</strong></td> <td width="23%"><strong>Endereco</strong></td> <td width="22%"><strong>Cidade</strong></td> <td width="17%"><strong>UF</strong></td> </tr> </table> <% count = 0 Do While Not tab.eof %> <table width="90%" cellpadding="0"> <tr> <td width="14%"><%=tab("NOME")%></td> <td width="16%"><%=tab("EMAIL")%></td> <td width="18%"><%=tab("ENDERECO")%></td> <td width="17%"><%=tab("CIDADE")%></td> <td width="13%"><%=tab("UF")%></td> <td width="11%"><div align="center"><a href="altera.asp">Alterar</a></div></td> <td width="11%"><div align="center">Excluir</div></td> </tr> </table> </body> </html> <% tab.MoveNext count=count+1 Loop %> ==================== Apresentar o registro desejado ==================== <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set db = server.createobject("adodb.connection") Banco = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Banco/Banco.mdb") db.CursorLocation = 3 db.Open "Banco" tab = Server.CreateObject("adodb.recordset") sql = "SELECT * FROM TABCADASTRO" set tab = db.execute(sql) %> <Html> <Body> <div align="center"> <H1> Cadastro de Clientes </H1> <Form action="gravacaopost.asp" method="post"> <p>Nome Funcionario: <input type="text" size=50 value="<%=(tab.Fields.Item("NOME").Value)%>" maxlength="50" name="Nome"><br> </p> <p>Email: <input type="text" size=50 value="<%=(tab.Fields.Item("EMAIL").Value)%>" maxlength="50" name="Email"><br> </p> <p>Endereço: <input type="text" size=80 value="<%=(tab.Fields.Item("ENDERECO").Value)%>" maxlength="50" name="Endereco"><br> </p> <p>Cidade: <input type="text" size=50 value="<%=(tab.Fields.Item("CIDADE").Value)%>" maxlength="20" name="Cidade"><br> </p> <p>UF: <input name="UF" type="text" value="<%=(tab.Fields.Item("UF").Value)%>" size=10 maxlength="2" ><br> </p> <p><input type="Submit" Value="Gravar"> <input type="Reset" Value="Limpar Dados"> </div> </Form> </Body> </Html> Desde já agradeço a atenção e ajuda de todos. Hellxande
  13. hellxande
    Boa noite a todos Sou novo no mundo ASP, gostaria de saber como trabalho com o Componente Checkbox obtendo dados do Banco, e como fazer o Combo receber todas os registros de uma determinada Tabela. Desde já agradeço a ajuda de todos. Atenciosamente Hellxande
  14. hellxande

    Busca Com Paginação

    pergunta respondeu ao hellxande de hellxande em ASP

    Prezado Bareta Fiz a alteração que me e agora ele este realmente buscando somente o produto desejado, porém a numeração das Páginas apresenta como se tivesse mostrando td. Ex: o Produto que busquei tem 2 tipos, conforme parametrizo neste trecho: registros = 1 pagina = Request.QueryString("pagina") If pagina = "" Then pagina = 1 End If Deveria me mostrar 1 produto por Página, mas ele fica mostrando os 2 e ainda apresenta os números de páginas em baixo, de Primeira Página [ 2 ] [ 3 ] [ 4 ] [ 5 ] [ 6 ] Última Página como se tivessem vários produtos, mas quando clico na página nº 6 mostra o mesmo conteúdo da Primeira Página. Sobre a questão de mostrar a Ultima página conforme a qtd de registros buscados realmente eu ainda não coloquei no Código, pois ainda não sei como fazer. Porém o que me deixou confuso, foi a limitação de produtos por página que não esta funcionando. Diante disso aguardo nova sugestão e se possível uma dica de como fazer esta parte da Última página. Atenciosamente Hellxande
  15. hellxande

    Busca Com Paginação

    uma questão postou hellxande ASP

    Boa Tarde a todos. Através do próprio Fórum encontrei várias dicas, sobre Busca e Paginação, em minha aplicação consegui faze-lo separados, porém não estou conseguindo faze-los juntos. Ocorre o seguinte problemas: Na Busca quando processa ele não apresenta só o limite de registros que escolhi na primeira página, apresenta todos os registros com a palavra buscada em seguinte quando clico na Página 2 ele ai me mostra todos os registros do Banco. Sinceramente não sei onde estou errando, mas provevelmente seja algo muito simples, sendo assim agradeço a atenção de todos e aguardo qualquer ajuda. Atenciosamente Hellxande Ps: Segue o Código abaixo: ------------------------ <% Set db = server.createobject("adodb.connection") db_formular = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/formular.mdb") db.CursorLocation = 3 db.Open "db_formular" campo = request("busca") tab = Server.CreateObject("adodb.recordset") sql = "select * from produto where ProdutoDescricao like '%"&campo&"%'" set tab = db.execute(sql) %> <% registros = 1 pagina = Request.QueryString("pagina") If pagina = "" Then pagina = 1 End If Set rs = Server.Createobject("ADODB.RECORDSET") set rs.ActiveConnection = db rs.CursorType = 3 rs.PageSize = registros sql = "SELECT * FROM produto ORDER BY ProdutoNome ASC" rs.Open sql If rs.EOF Then Response.Write "Nenhum registro encontrado" Else rs.AbsolutePage = pagina While Not rs.EOF AND x < rs.PageSize x = x + 1 %> <% count = 0 Do While Not tab.eof %> <table width="750" border="0" align="center" cellpadding="1"> <tr> <td><strong><font color="#637AAC" size="1" face="Verdana, Arial, Helvetica, sans-serif">Resultado da Pesquisa:</font></strong></td> </tr> <tr> <td> </td> </tr> <tr> <td><table width="80%" border="0" align="center" cellpadding="2" cellspacing="1"> <tr> <td width="12" height="28" bgcolor="#637AAC"><strong><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Produto:</font></strong></td> <td width="43%" bordercolor="#637AAC"><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= tab("ProdutoNome") %> </font></td> <td width="45%" rowspan="2" bordercolor="#637AAC"><div align="center"> <table width="70%" border="0" cellpadding="0" bordercolor="#637AAC"> <tr> <td><div align="center"><img src="<%=tab("ProdutoFoto")%>" align="absmiddle"></div></td> </tr> </table> </div></td> </tr> <tr bordercolor="#637AAC"> <td width="12" height="12" bordercolor="#637AAC" bgcolor="#637AAC"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Descrição:</strong></font> </td> <td bordercolor="#637AAC"><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= tab("ProdutoDescricao") %> </font></td> </tr> </table></td> </tr> <tr> <td align="right"><strong><font color="#637AAC" size="1" face="Verdana, Arial, Helvetica, sans-serif"></font></strong></td> </tr> </table> <% tab.MoveNext count=count+1 Loop %> <% rs.MoveNext Wend anterior = pagina - 1 proxima = pagina + 1 ultima = rs.PageCount primeira = 1 ultm2 = FormatNumber(rs.PageCount - 1,0) If pagina <> 1 Then Response.Write "<b>« <a href=resultado3.asp?pagina="&primeira&">Primeira Página</a></b> " End If If pagina > 1 AND pagina <> 2 Then Response.Write "<b>[ <a href=resultado3.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> " End If If pagina > 1 Then Response.Write "<b>[ <a href=resultado3.asp?pagina="&anterior&">"&anterior&"</a> ]</b> " End If Response.Write "<b>[ "&pagina&" ]</b> " If Not rs.EOF Then Response.Write "<b>[ <a href=resultado3.asp?pagina="&proxima&">"&proxima&"</a> ]</b> " End If If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then Response.Write "<b>[ <a href=resultado3.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> " End If If Not rs.EOF Then Response.Write "<b><a href=resultado3.asp?pagina="&ultima&">Última Página</a> »</b> " End If tab.Close rs.Close Set tab = Nothing Set rs = Nothing End If %>
  16. hellxande
    Boa Tarde. Sou novo no mundo do ASP e estou com uma certa dificuldade, não sei como fazer p/ obter mais de um resultado em uma Busca. Ex: Tenho vários produtos com o nome Teclado no Banco, porém a minha busca esta me trazendo somente um produto. Segue abaixo o meu código: ------------------ Set db = server.createobject("adodb.connection") db_formular = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/produto.mdb") db.CursorLocation = 3 db.Open "db_formular" campo = request("busca") tab = Server.CreateObject("adodb.recordset") sql = "select * from produto where ProdutoDescricao like '%"&campo&"%'" set tab = db.execute(sql) %> <%= tab("ProdutoNome") %> <p>- <%= tab("ProdutoDescricao") %><br> <img src="<%=tab("ContatoFoto")%>"><br> </p> ---------------- Como faço p/ poder obter mais de um resultado nesta busca? Qualquer ajuda é bem vinda. Atenciosamente Hellxande
  17. hellxande
    Olá Todos. Seguinte pessoal sou novo no assunto, sendo assim estou precisando desesperadamente de ajuda. Estou desenvolvendo um cadastro de Produtos onde Usuário irá informar o Nome, Descrição e Localizar a Foto desejada isto armazenando num Banco Access. Exemplo: Nome: ProdutoTeste Descrição: ProdutoDescrição Foto: Localiza o caminho da foto desejada No Banco deverá ficar armazenada somente o caminho da foto apontando p/ pasta específica no provedor. Depois na hora da Busca ao digitar o nome do produto deverá trazer a as informações do mesmo junto com a foto relacionada ao produto. O Cadastro do Nome e Descrição esta feito e funcionando perfeitamente, porém eu não tenho a minima idéia de como fazer o cadastro do caminho da foto e nem como recupera-la. Diante disso solicito ajuda. Atenciosamente Hellxande
  18. hellxande
    Prezado jothaz Obrigado pela dica, porém fiquei em dúvida sobre o que falou pelo seguinte: Localmente eu Criei um ODBC com o mesmo nome que estou usando no Código, porém este ligado ao Banco que já esta no Provedor, e rodando a aplicação também localmente ele permite Inserir e Buscar os registros na Base Online, sendo assim não estaria ocorrendo problema com permissão de acesso ao Banco, correto ?? Ou o Bloqueio que mencionou seria com relacionação a criação e acesso do ODBC em questão e não bloqueio de acesso ao Banco ?? Aguardo resposta. Atenciosamente Hellxande
  19. hellxande
    Prezada Andrea Tentei o que me sugeriu e realmente acusou a mesma coisa, sendo assim entrei em contato com o Provedor e neste momento estou aguardo retorno, porém gostaria de saber onde posso encontrar outras versões do Conector MySQL para que eu possa já ir adiantando o processo dependendo da resposta deles, pois procurei no Site oficial e o único que achei a Versão 3.51 mesmo. Atenciosamente Hellxande
  20. hellxande
    Boa Tarde a Todos !! Estou com um grande problema em minha Busca, porém não estou sabendo se este problema é no meu Código ou no ODBC do Provedor. Criei um Banco MySQL com o Nome de "Formular", um Usuário e Senha para o mesmo. Criei um ODBC para o Banco com o Nome de "form". Segue o Código que estou usando em minha Conexão: StringdeConexao = "driver=MySQL ODBC 3.51 Driver;server=72.232.88.147;uid=USUARIO;pwd=SENHA;database=formular" Segue o Código que estou usando em minha Busca: <% set outpostdb=server.createobject("adodb.connection") outpostdb.open"form" <----- Nesta linha que acusa o erro busca = request("busca") tab = Server.CreateObject("adodb.recordset") sql = "select * from produto where ProdutoNome like '%"&busca&"%'" set tab = outpostdb.execute(sql) %> <table width="100%" align="center" cellpadding="1"> <tr> <td><strong><font color="#0000FF">Resultado da Pesquisa:</font></strong></td> </tr> <tr> <td> </td> </tr> <tr> <td><table width="80%" align="center" cellpadding="1"> <tr> <td width="10%"><strong><font color="#0000FF">Produto:</font></strong></td> <td width="90%"><%= tab("ProdutoNome") %> </td> </tr> <tr> <td><font color="#0000FF"><strong>Descrição:</strong></font> </td> <td><%= tab("ProdutoDescricao") %> </td> </tr> </table></td> </tr> <tr> <td> </td> </tr> </table> Sempre que faço a busca acusa o seguinte erro: Microsoft OLE DB Provider for ODBC Drivers error '80004005' [MySQL][ODBC 3.51 Driver]Access denied for user 'ODBC'@'dns1.tarheelhosting.com' (using password: NO) /resultado.asp, line 16 Alguém pode me dizer onde é que mora o problema. Atencisoamente Hellxande
  21. hellxande
    Prezada Andreia. Realmente o erro era muito besta, com a sua sugestão resolvi o problema. Muito obrigado. Atenciosamente Hellxande
  22. hellxande
    Prezada Andreia. Obrigado por responder, porém na consegui identifica o meu erro com a sua sugestão, pois as Tags de <Form> estão corretos conforme o Código abaixo. ------------------------ <Html> <Body> <div align="center"> <H1> Cadastro de Unidade de Medida </H1> <Form action="GravaUnidadeMedida.asp" method="post"> <p>Nome: <input type="text" size=20 maxlength="20" name="Nome"><br> Abreviada: <input type="text" size=3 maxlength="3" name="Abreviada"><br> <input type="Submit" Value="Gravar"> <input type="Reset" Value="Limpar Dados"> </p> </div> </Form> </Body> </Html> --------------------- Sendo assim estou aberto a novas sugestões. Eu sinceramente acho que estou fazendo um erro besta, porém não estou encontrando o mesmo, conto com sua ajuda. Atenciosamente Hellxande
  23. hellxande
    Boa Tarde a todos Sou iniciante na programação de ASP com Banco de Dados em MySQL, sendo assim gostaria de saber se alguém pode me ajudar a encontrar uma documentação sobre isso, pois estou tentando fazer a inserção de registros no banco, porém não estou conseguindo. Segue a baixo o Código que estou usando. ----------------- <% p_nome=Request.Form("UnidadeMedidaNome") p_abreviada=Request.Form("UnidadeMedidaAbreviada") set outpostdb=server.createobject("adodb.connection") outpostdb.open"formular" THESQL="insert into unidademedida(UnidadeMedidaNome,UnidadeMedidaAbreviada)" THESQL=THESQL & "Values ('"&p_nome&"','"&p_abreviada&"')" outpostdb.execute(THESQL) outpostdb.close set outpostdb=NOTHING %> <H2> Gravação Efetuada </H2> <strong>Nome:</strong> <%=p_nome%><Br> <strong>Abreviada:</strong> <%=p_abreviada%><Br> <A HREF="adm.asp"> Voltar<br> ----------------- Neste ultimo bloco deveria mostrar os registros que foram inseridos, mas isso não ocorre, porém quando consulto o Banco a Tabela mostra que foi criado somente os registros referente a Coluna UnidadeID. Desde já agradeço a ajuda. Atenciosamente Hellxande
  24. hellxande
    Boa noite a todos. Estou usando as Funções mencionadas abaixo, para validar os registro inseridos nos campos CPF e CNPJ, porém quando tento usar algum tipo de mascara falha a validação, alguém tem alguma sugestão. Segue abaixo as funções de Validação usadas. // Função de validação do CPF function TForm1.cpf(num:String): Boolean; var n1,n2,n3,n4,n5,n6,n7,n8,n9: integer; d1,d2: integer; digitado, calculado: string; begin n1:=StrToInt(num[1]); n2:=StrToInt(num[2]); n3:=StrToInt(num[3]); n4:=StrToInt(num[4]); n5:=StrToInt(num[5]); n6:=StrToInt(num[6]); n7:=StrToInt(num[7]); n8:=StrToInt(num[8]); n9:=StrToInt(num[9]); d1:=n9*2+n8*3+n7*4+n6*5+n5*6+n4*7+n3*8+n2*9+n1*10; d1:=11-(d1 mod 11); if d1 >= 10 then d1:=0; d2:=d1*2+n9*3+n8*4+n7*5+n6*6+n5*7+n4*8+n3*9+n2*10+n1*11; d2:=11-(d2 mod 11); if d2>=10 then d2:=0; calculado:=inttostr(d1)+inttostr(d2); digitado:=num[10]+num[11]; if calculado=digitado then cpf:=true else cpf:=false; end; ========================= // Função de Validação do CNPJ function TForm1.cnpj(num: string): boolean; var n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12: integer; d1,d2: integer; digitado, calculado: string; begin n1:=StrToInt(num[1]); n2:=StrToInt(num[2]); n3:=StrToInt(num[3]); n4:=StrToInt(num[4]); n5:=StrToInt(num[5]); n6:=StrToInt(num[6]); n7:=StrToInt(num[7]); n8:=StrToInt(num[8]); n9:=StrToInt(num[9]); n10:=StrToInt(num[10]); n11:=StrToInt(num[11]); n12:=StrToInt(num[12]); d1:=n12*2+n11*3+n10*4+n9*5+n8*6+n7*7+n6*8+n5*9+n4*2+n3*3+n2*4+n1*5; d1:=11-(d1 mod 11); if d1>=10 then d1:=0; d2:=d1*2+n12*3+n11*4+n10*5+n9*6+n8*7+n7*8+n6*9+n5*2+n4*3+n3*4+n2*5+n1*6; d2:=11-(d2 mod 11); if d2>=10 then d2:=0; calculado:=inttostr(d1)+inttostr(d2); digitado:=num[13]+num[14]; if calculado=digitado then cnpj:=true else cnpj:=false; end; =============================== Qualquer ajuda é bem vinda, muito Obrigado. Atenciosamente
×
×
  • Criar Novo...