Ir para conteúdo
Fórum Script Brasil

ADL

Membros
  • Total de itens

    211
  • Registro em

  • Última visita

Tudo que ADL postou

  1. Não é o erro interno não. Eu fiz uma validação no AJAX ele abre um alert("Erro! Request status is "+request.status); informando o erro 500.
  2. Olá pessoal eu criei uma página onde o ajax leve o usuario e senha para uma página, se o usuario estiver no banco de dados quero que ele me retorne o usuario e senha, estou começando a mexer com ajax, por isso esse teste. Mas está dando erro 500, alguém pode me ajudar por favor? Segue o código: Esse é o meu formulário com AJAX <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <script language="javascript" type="text/javascript"> // cria uma variável de solicitação e atribui vazio à ela. var request = null; try { // cria uma variável de solicitação para navegadores que não seja IE request = new XMLHttpRequest(); } catch(trymicrosoft) { try { // cria uma variável de solicitação para a maioria das versões do IE request = new ActiveXObject("Msxm12.XMLHTTP"); } catch(othermicrosoft) { try { // Para algumas versões é necessario utilizar esse objeto aqui. request = new ActiveXObject("Microsoft.XMLHTTP"); } catch(failed) { // caso nenhum objeto seja criado a variável request recebe null request = null; } } } if(request == null) { alert("Erro ao criar um objeto de solicitação!"); } function updatePage() { if(request.readyState == 4) { if(request.status==200) { /* captura a resposta do servidor*/ var usuarioSenha = request.responseText; /*Atualiza o formulário*/ document.getElementById("user").value=usuarioSenha; document.getElementById("senh").value=usuarioSenha; } else { alert("Erro! Request status is "+request.status); document.getElementById("mensagens").value=request.responseText; } } } function obtenValor(){ var usuario = document.getElementById("usuario").value; var senha = document.getElementById("senha").value; var url ="recebeAjax.asp?usuario="+escape(usuario)+"&senha="+escape(senha); request.open("post", url,true); request.onreadystatechange=updatePage; request.send(null); } </script> </head> <body> <table align="center" width="80%" border="1"> <form action="" method="get" name="form1"> <tr> <td>Usuário</td> <td><input name="usuario" type="text" size="20" maxlength="25" id="usuario"></td> </tr> <tr> <td>Senha</td> <td><input name="senha" type="password" size="20" maxlength="25" id="senha"></td> </tr> <tr> <td>Usuario</td> <td><input type="text" size="20" maxlength="25" id="user"></td> </tr> <tr> <td>Senha</td> <td><input type="text" size="20" maxlength="25" id="senh"></td> </tr> <tr> <td></td> <td><input name="bt_enviar" type="button" value="Enviar" onClick="obtenValor()"></td> </tr> <tr> <td colspan="6"><textarea name="" cols="80" rows="10" id="mensagens"></textarea></td> </tr> </form> </table> </body> </html> desde já eu agradeço.
  3. ADL

    Problema Com Arrays

    você faz um if para verificar as permissões se não tiver permissão faz assim <% if variavel de permissao <> da variavel then ' so exemplo %> <script language="javascript"> alert("Não tem permissão"); </script> <% else o que tiver que ser end if %> Espero ter ajudado.
  4. ADL

    [resolvido] Criar Vetor

    você pode criar um vetor assim: Dim DiaSemana(7) ' essa é a declaração 'você pode atribuir dados ao vetor assim: DiaSemana(1) ="Domingo" DiaSemana(2) ="Segunda" DiaSemana(3) = "Terça-Feira" DiaSemana(4) = "Quarta-Feira" 'E assim sucessivamente. Espero ter ajudado.
  5. ADL

    Lendo Dados Do Excel

    Cara eu nunca testei, eu peguei esse código na net, não sei se funciona testa se der certo me fale ok. segue o código: <% Dim sSourceXLS Dim sDestXLS sDestXLS = Server.MapPath(".") & "\teste.xls" ' caminho e nome do arquivo xls Dim oConn Set oConn = Server.CreateObject("ADODB.Connection") 'conexao com o xls oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDestXLS & ";Extended Properties=""Excel 8.0;HDR=NO;""" Dim oRS Set oRS = Server.CreateObject("ADODB.Recordset") 'objeto recordset que armazena os dados do xls 'F1 = coluna 1 do xls, F2 = coluna 2, e assim sucessivamente...se for * seleciona todas as colunas oRS.Open "Select F1 from tabelaXls", oConn, 1, 3 'executa o recordset do while not oRS.eof 'listando as celulas do arquivo Response.Write(oRS.Fields(0).Value)'fields tem o numero da coluna do xls, Response.Write("<br>") oRS.movenext loop oRS.close set oRS=nothing oConn.Close Set oConn = Nothing 'Abra o xls vá em Menu-Inserir=>>Nome=>>Definir 'escolha o nome da sua seleção de celulas, esse nome é o mesmo que vai no sql, como se fosse o nome da tabela, no exemplo está como tabelaXLS %>
  6. ADL

    Contar Registros Variaveis

    Na linguagem SQL tem algumas funções que pode te ajudar. Exemplo: Count() conta o número de registro em um recordset max() retorna o maior valor de um campo recordset Exemplo: select count(nome do campo numerico) as nome de uma variavel from nome da tabela. 'obs você pode por uma condição where e o campo O max() funciona da mesma forma. Um exemplo pratico. sqlTabela="select count(id) as total from livro" set rsTabela = conexaoDataBase.execute(sqlTabela) para você mostrar o resultado faz assim: response.write(rsTabela("total")) Espero ter ajudado.
  7. ADL

    Linha Com Banco

    você pode fazer um select na sua tabela eu uso assim: select count(nome do campo da chave primaria) as uma variavel que você cria from nome da tabela" como ficaria exemplo sql= "select count(codigo) as totalLInha from livros" set sqlLivros = conexaoDataBase.execute(sql) para exibir e so fazer assim response.write(sqlLivros("totalLinha")) Tenta ai qualquer coisa me avise.
  8. Muito obrigado pela ajuda, valeu mesmo.
  9. Olá pessoal sera que alguém pode me ajudar por favor? É o seguinte estou criando uma tabela em mysql cujo campo vai ser valor monetario. Eu queria saber qual é o tipo de identificador que eu possa usar e como declara-lo. Desde já eu agradeço a todos.
  10. Oi como eu verifico em javascript se o botão do radio esta selecionado ou não. desde já eu agradeço.
  11. Olá pessoal alguém poderia me dizer ou indicar algum tópico ou apostila , para que eu transforme um arquivo doc em binario e grave no banco de dados? Por favor pois estou precisando muito. Desde já eu agradeço a todos.
  12. segue a função para chamar outra página <script language=JavaScript> <!-- function leapTo (link) { var new_url=link; if ( (new_url != "") && (new_url != null) ) window.location=new_url; else alert(""); } // --> </script> eu fiz assim <td><input onclick="leapTo('cadContrato.asp?cod1=<%=rsTabela("razao_social")%>&cod=<%=request.form("code")%>')" name="retorna" type="radio" ></td> e não passa o outro valor , vou por a outra url para você ver como ta. http://localhost/contratos/cadContrato.asp...0LTDA.&cod= Consegui!!!!!! eu fiz assim: <td><input onclick="leapTo('cadContrato.asp?cod1=<%=rsTabela("razao_social")%>&cod2=<%=cod%>')" name="retorna" type="radio" ></td> e funcionou muito obrigado pela ajuda valeu....
  13. ADL

    Erro Na Leitura De Um Arquivo .doc

    então cara beleza, valeu a dica mas eu fia o que você fiz e ficou assim. ÐÏࡱá arquivo.Close set arquivo=nothing set fso=nothing call Fechaconexao %> O que tem no arquivo Dundas Mailer.doc é isso que segue abaixo. Esse é o testo do arquivo Dundas Mailer.doc Dundas Mailer Dundas Software (www.dundas.com) implementação CODE Dim .
  14. Olá pessoal como eu faço para passar dois valores no input, tentei mas não estou conseguindo, por favor me ajudem. Desde já eu agradeço a todos. Um dos valores vem do banco e outro vem do formulario, monde eu recupero esse valor. Segue o código. <td><input onclick="leapTo('cadContrato.asp?cod1=<%=rsTabela("razao_social")%>&cod')" name="retorna" type="radio" ></td> fiz assim e não funciona
  15. ADL

    Erro Na Leitura De Um Arquivo .doc

    ai eu fiz o que você disse deu esse erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [MySQL][ODBC 3.51 Driver][mysqld-5.0.27-community]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ''' at line 1 codigo
  16. ADL

    Erro Na Leitura De Um Arquivo .doc

    Não da nenhum erro , le e grava direitinho. mas quando o arquivo é doc ou pdf da erro .
  17. Olá´es pesquisa no forum e na net um código para leitura de um arquivo em word, achei um mas quando ele le da erro, esse mesmo código, ele funciona para txt. Eu quero ler as informações e inserir no banco de dados. Alguém pode me ajudar por favor? <%@LANGUAGE="VBSCRIPT"%> <% Option explicit %> <!--#Include file="conexao/conexao.inc"--> <% response.expires=0 dim conexaoDataBase,ConnString,fso,arquivo,arrayLinha,rsTabela,sqlTabela,a call AbreConexao set fso = Server.CreateObject("Scripting.FileSystemObject") set arquivo =fso.OpenTextFile(server.MapPath("2S Eventos_ctto parceria operacional_11_01_2006.doc"),1) Do while not arquivo.AtEndOfStream arrayLinha=split(arquivo.ReadLine,";",-1,1) sqlTabela="insert into guarda(arquivo)values('"&arrayLinha(0)&"')" set rsTabela =conexaoDataBase.execute(sqlTabela) loop response.write("Arquivo inserio com sucesso.") arquivo.Close set arquivo=nothing set fso=nothing call Fechaconexao %> segue o erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [MySQL][ODBC 3.51 Driver][mysqld-5.0.41-community-nt]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ''ÐÏࡱá' at line 1 /testeASP/ler1.asp, line 17
  18. ADL

    Duvida Na Busca

    como eu ponho o script dentro dessa tag
  19. ADL

    Duvida Na Busca

    Me tira uma duvida eu tenho duas busca no mesmo formulario. Quando eu chamo a busca 2 a busca 1 some,se eu faço a busca 1 a 2 some, teria como fazer a busca 2 ,e a busca 1 permanecer ou vice e versa? por favor. Desde já eu agradeço. Segue o código. CODE <%@LANGUAGE="VBSCRIPT"%> <% Option explicit %> <!--#Include file="conexao/oracle.inc"--> <% response.expires=0 dim conexaoDataBase,ConnString,sqlTabela,rsTabela,button %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Listar Cliente</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <form action="listar.asp" method="post" name="busca"> <table border="0" align="center" width="100%"> <tr> <td><div align="right">Buscar</div></td> <td><input name="busca" type="text" size="35" maxlength="40" ><input name="Enviar" type="submit" value="Enviar"></td> </tr> <% if request.form("busca") <> "" then button=request.form("busca") Call abreConexao sqlTabela = "Select * From rcr.cliente where cod_cliente='"&button&"' " set rsTabela = conexaoDataBase.execute(sqlTabela) if not rsTabela.eof then %> <tr> <td><div align="right">Cliente</div></td> <td><%= rsTabela("razao_social")%></td> <% else %> <tr> <td><div align="right"></div>&nbsp;</</td> <td><input name="textfield" type="text" value="<%= response.Write("Cliente não encontrado")%>" size="60"></td> </tr> <% end if end if %> <tr> <td><div align="right">Buscar</div></td> <td><input name="busca1" type="text" id="busca1" size="35" maxlength="40" > <input name="Enviar" type="submit" value="Enviar"></td> </tr> <% if request.form("busca1") <> "" then response.expires=0 button=request.form("busca1") Call abreConexao sqlTabela = "Select * From rcr.cliente where razao_social='"&button&"' " set rsTabela = conexaoDataBase.execute(sqlTabela) if not rsTabela.eof then %> <tr> <td><div align="right">Cliente</div></td> <td><%= rsTabela("cod_cliente")%></td> <% else %> <tr> <td><div align="right"></div>&nbsp;</</td> <td><input name="textfield" type="text" value="<%= response.Write("Cliente não encontrado")%>" size="60"></td> </tr> <% end if end if %> </table> </form> </body> </html>
  20. Olá pessoal estou com uma dúvida no validador do CPF do site do correio. Eu peguei o script lá para fazer a validação funciona diretinho, mas as informações do endereço aparece no site do correio eu gostaria de recuperar as informações e colocar no meu site, como eu posso fazer isso?
  21. esse é o código para mandar o email ele busca a mensagem do banco. <? include "valida_cookies.php"; include "config.php"; ?> <? // ALTERAR SOMENTE O TEXTO QUE ESTIVER ENTRE AS TAGS <HTML> E </HTML> // SALVAR E FAZER UPLOAD $titulo = $_POST['titulo']; $texto = $_POST['texto']; $sql=mysql_query("SELECT empresa,contato,email,titulo,texto,id FROM $tb3,$tabela"); if(!$sql){ echo "Erro ao localizar usuários em tabela da base de dados !<br>";} else { while ($reg = mysql_fetch_array($sql)) { $titulo1 = $reg['titulo']; $mensagem= $reg['texto']; $mensagem1 = trim($mensagem); $empresa= $reg['empresa']; $contato= $reg['contato']; $email= $reg['email']; $headers = "MIME-Version: 1.0\r\n"; $headers .= "Content-type: text/html; charset=iso-8859-1\r\n"; $headers .= "From: Honda Dias Estevão Ferreira Advogados<meu email>"; mail("$email"," $titulo1 $titulo", "Prezado(a) $contato, <p> $mensagem1 $texto","$headers"); echo "Envio número<b> $cont </b>para :<b> $email </b><br>"; } echo "<CENTER>Mensagem enviada com sucesso !<BR><BR><a href=\"envia.php\" target=\"_self\">Enviar outra mensagem</a></CENTER>"; } ?> Os campos lá são 3: 1 titulo, e mensagem onde eu coloquei TEXT por ser grande e um id INT AUTO_INCREMENT. valeu a ajuda ai cara.
  22. Ai eu fiz assim e deu certo $novo_texto = str_replace('"', '\"', $texto); vai entender ne rsrsrrs. Me tira uma dúvida nesse texto eu tenho links que redireciona para outra página. quando eu enconsto o ponteiro do mouse nele aparece um monte de número e não abre a página. fui no banco e olhei ta tudo certinho sem tirar e nem colocar as informações. Quando chega não abre a olink e aparece um monte de número o que pode ser? Ai muito obrigado pela ajuda de todos vocês mesmo heim.
  23. Vou testar obrigado por enquanto! Então eu fiz assim $mensagemcorrigida = implode("\\\"", explode("\"", $mensagem)); e a função está colocando duas barras com aspas. Como eu faria para a função colocar uma barra e uma aspas assim \"
  24. Olá pessoal sou novato em php e estou dando namutenção no site da empresa. Eu tenho uma parte do site que é onde envia mensagem para os clientes só que antes de enviar essa mensagem ela vai para o banco de dados, por tanto vai também todo o html. Eu gostaria de saber como fazer uma função que percorre todo o texto html e onde ele encontrar uma aspas ele substituir por barra aspas. Alguém pode me ajudar por favor ou me disser como começar estou pesquisando no google, mas a sque eu achei so retira de uma palavra. Desde de já eu agradeço a todos.
×
×
  • Criar Novo...