Ir para conteúdo
Fórum Script Brasil

Martinsrj

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    291

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Martinsrj postou

  1. Martinsrj
    Olá Romerito, beleza?! Realmente eu inseri erradamente, porem realizei já o acerto deixando dessa forma abaixo, mas o erro continua! var inputValor = elemento.value; if (inputValor.match(".") && inputValor.match(",")){ alert("Digite apenas a virgula!"); elemento.focus(); return false; } Abraços.
  2. Martinsrj
    Olá pessoal, bom dia! Estou com duvida na utilização Método match. Quando eu digito no campo . ou , não entra nesse if: if (inputValor.match(".") && (inputValor.match(",")){ alert("Digite apenas a virgula!"); elemento.focus(); return false; } Abaixo segue o código completo: function validaValor( elemento ){ var inputValor = elemento.value; if (inputValor.match(".") && (inputValor.match(",")){ alert("Digite apenas a virgula!"); elemento.focus(); return false; } if (!inputValor.match(",")){ alert("Atenção, virgula obrigatório!"); elemento.focus(); return false; } for (i = 0; i < inputValor.length; i++){ switch(inputValor.charAt(i)) { case ".": alert("Atenção, não utilize o ponto!"); elemento.focus(); break; case ",": if (inputValor.charAt(i+1) == "" || inputValor.charAt(i+2) == "" || inputValor.charAt(i+3) != ""){ alert("Digite o valor com dois digitos após a virgula!"); elemento.focus(); } break; } } }
  3. Martinsrj
    Então o this.id irá capturar o ID do input, correto? Desde já agradeço pelos esclarecimentos. Amigão, se você tiver alguma apostila, livros em pdf ou algo para que eu venha praticar javascript envia para o meu email: paulomartinsrj@gmail.com Abraços.
  4. Martinsrj
    porque onBlur="validaValor(this.id);"? Não entendi o this.id. Abraços.
  5. Martinsrj
    Olá pessoal, bom dia! Possuo codigo abaixo que está funcionando perfeitamente. A minha dúvida é o seguinte, caso o meu formulário tenha a necessidade de incluir mais um input type="text"(id="txtValor1") quais as mudanças que tenho que fazer na função validaValor()? <html> <head> <title>Evento onblur</title> <script> function validaValor(){ var inputValor = document.getElementById("txtValor0").value; if (inputValor.match(",")){ } else { alert("Virgula não encontrado!!!"); } for (i = 0; i < inputValor.length; i++){ switch(inputValor.charAt(i)) { case ".": alert("Você digitou ponto!"); document.getElementById("txtValor0").focus() break case ",": if (inputValor.charAt(i+1) == "" || inputValor.charAt(i+2) == ""){ alert("Você não digitou os centavos corretamente!"); document.getElementById("txtValor0").focus() } break default: //alert("Valor padrão"); } } } </script> </head> <body> <form name=f1> Escreva um número inteiro: <input class="input" type="text" lang="7" title="" maxlength="6" size="20" name="txtValor0" id="txtValor0" value="" onBlur="validaValor()"/> Escreva um número inteiro(2° Input): <input class="input" type="text" lang="7" title="" maxlength="6" size="20" name="txtValor1" id="txtValor1" value="" onBlur="validaValor()"/> </form> </body> </html>
  6. Martinsrj
    Por incrivel que pareça está funcionando corretamente, pelo menos no smartphone da empresa. O código da data que as vezes funciona e as vezes não, mas o campo nome e moeda está agora funcionando perfeitamente. Consegui implementar o código da moeda: <asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server" ErrorMessage="Digite o valor corretamente" ValidationExpression="\d+\,\d{2}" ControlToValidate="TxtMoeda">*</asp:RegularExpressionValidator>
  7. Martinsrj
    Exatamente, a pagina logar.asp está com comentário de proposito. A intenção é imprimir o request do campo login e senha: var_Login = TRIM(Request.Form("txt_login")) var_Senha = TRIM(Request.Form("txt_senha")) Response.Write(var_Login) Response.Write(var_Senha) Response.End() Inclusive eu comentei a linha que você indicou, porem continua com o mesmo erro.
  8. Martinsrj
    Olá kuroi, boa noite! Realizei o seguinte procedimento. Segue o código: conexaopontoweb.asp <% 'CONEXÃO SQL Server Const gpVersaoSistema = "Versão: 1.0" Const userName_imp="paulo" Const passWord_imp="alfa30" Const dataBaseName_imp="BD_atChamado" Const serverName_imp = "JESUS-2FAB328AB" Sub gpAbreConexao() Dim strConn Set session("ObjConn") = Server.CreateObject("ADODB.Connection") strConn = "Provider=SQLOLEDB;Persist Security Info=False;User ID="&userName_imp&";Password="&passWord_imp&";Initial Catalog="&dataBaseName_imp&";Data Source="&serverName_imp 'session("ObjConn").ConnectionString = strConn ' Verifica se a conexao foi aberta, caso não, exibe mensagem e finaliza. If (Session("ConexaoAberta") <> "Sim") or isEmpty(Session("ConexaoAberta")) Then Response.Write "Conexao ainda não foi aberta." Response.End() End If On Error Resume Next session("ObjConn").Open session("ObjConn").CommandTimeout=3600 if Err <> 0 Then response.write "<font face=arial size=2 color=#000055>Ocorreu o seguinte Erro ao abrir o banco de dados : </font>" & "<font face=arial size=2 color=#FF0000>" & Err.Description & "</font>" ELSE 'response.write "<font face=arial size=2 color=#000055>conexão efetuado com sucesso : </font>" & "<font face=arial size=2 color=#FF0000>" & Err.Description & "</font>" End if On Error goto 0 Session("ConexaoAberta") = "Sim" End Sub Sub gpFechaConexao() session("ObjConn").close Set session("ObjConn") = Nothing session("ObjConn")="" Session("ConexaoAberta")="Não" End sub %> logar.asp: <% 'Call gpAbreConexao var_Login = TRIM(Request.Form("txt_login")) var_Senha = TRIM(Request.Form("txt_senha")) Response.Write(var_Login) Response.Write(var_Senha) Response.End() 'strSQL = "SELECT * FROM usuarios WHERE login='" & var_Login & "' AND senha='" & var_Senha & "'" 'Set rsLogin = session("ObjConn").Execute(strSQL) ' ' 'If rsLogin.EOF Then ' Response.Write "Login ou Senha inválida!" ' 'Response.write "<script>alert('Atenção, login ou senha inválidos!')<script>" ' Response.AddHeader "Refresh", "1;URL=http://localhost/wapReembolso/wapReembolso/login.asp" 'Else ' gpSQL = "SELECT * FROM tbChamado" ' Session("login") = rsLogin("login") ' Session("senha") = rsLogin("senha") ' Session("nome") = rsLogin("nome") ' Session("temAcesso") = 1 ' Session("gpSQL") = gpSQL ' ' Response.Redirect "http://localhost/wapReembolso/wapReembolso/index2.asp" 'página restrita ' ' 'Response.write var_Login & "<br>" ' 'Response.write var_Senha ' 'Call gpFechaConexao() ' 'End If %> Continua dando esse erro: HTTP 500.100 - Servidor interno Erro - erro do ASP Internet Information Services -------------------------------------------------------------------------------- Informações técnicas (para a equipe de suporte) Tipo de erro: ADODB.Connection (0x800A0E78) Operação não permitida quando o objeto está fechado. /wapReembolso/logar.asp, line 17 Tipo de navegador: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; GTB6.4; InfoPath.2; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; OfficeLiveConnector.1.4; OfficeLivePatch.1.3; AskTB5.6) Acredito que seja o problema do meu IIS, pois no meu trabalho funciona corretamente. A questão é, como resolver o problema do IIS, pois já desinstalei e instalei o novamente? Abraços.
  9. Martinsrj
    Fiz dessa forma conforme o código abaixo, porem a moeda não está funcionando, apenas o nome e a data está validando corretamente. A intenção do campo moeda é que quando o usuario digitar o valor assim: 1 ou 1,1 ou 15 receba uma critica como os outros campos, porem quando o usuario digitar 1,00 ou 1,10, 15,00 não receba nenhuma critica. Abraços. <%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" %> <!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Mobile - Teste</title> <head runat="server"> <title></title> <script runat="server"> </script> </head> <body> <form id="form1" runat="server"> <div style="height: 455px"> <asp:Label ID="Label1" runat="server" Text="Nome:"></asp:Label> &nbsp;<asp:TextBox ID="TxtNome" runat="server"></asp:TextBox> <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtNome" ErrorMessage="Informe o nome">*</asp:RequiredFieldValidator> <br /><br /> <asp:Label ID="Label2" runat="server" Text="Data de Nascimento:"></asp:Label> &nbsp; <asp:TextBox ID="TxtDataNascimento" runat="server"></asp:TextBox> <asp:CompareValidator ID="CompareValidator1" runat="server" ControlToValidate="TxtDataNascimento" Display="Dynamic" ErrorMessage="Data de Nascimento Inválida " Operator="GreaterThan" Type="Date" ValueToCompare="01/01/1900">*</asp:CompareValidator> <br /> <br /> <asp:Label ID="Label3" runat="server" Text="Moeda:"></asp:Label>&nbsp; <asp:TextBox ID="TxtMoeda" runat="server"></asp:TextBox> <asp:CompareValidator ID="CompareValidator2" runat="server" ControlToValidate="TxtMoeda" Display="Dynamic" ErrorMessage="Digite o Valor corretamente" Operator="DataTypeCheck" Type="Currency" ValueToCompare="#,##">*</asp:CompareValidator> <br /> <br /> <asp:Button ID="cmdLogon" runat="server" Text="Valida Dados" /> <br /> <asp:ValidationSummary ID="ValidationSummary1" runat="server" /> </div> </form> </body> </html>
  10. Martinsrj
    Possuo o código abaixo em asp.Net e está funcionando perfeitamente. O que eu quero é inserir o campo moeda (0,00) e um campo data (dd/mm/aaaa). Quando o usuario digitar o campo data ou moeda errado venha informar a mesma situação que eu mencionei no código abaixo, porem com algumas modificações, Exemplo Campo data: se o usuario digitar 4/05/2010 dar a seguinte critica: campo data digitado incorretamente favor preencher com 10 caracteres (00/00/0000). Exemplo campo moeda: quando o usuario digitar 235, automaticamente o asp.net muda para 2,35. <%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" %> <!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.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> <head runat="server"> <title></title> <script runat="server"> Sub Submit(ByVal Obj As Object, ByVal e As EventArgs) If Page.IsValid Then lblMessage.Text = "You passed validation!" End If End Sub </script> </head> <body> <form id="form1" runat="server"> <asp:Label ID = "lblMessage" runat="server" ><p></p> Digite o seu Nome: </asp:Label> <asp:TextBox ID = "tbFName" runat="server" ></asp:TextBox><br /> <asp:RequiredFieldValidator runat = "server" ControlToValidate = "tbFName" ErrorMessage="Campo Obrigatório!" > </asp:RequiredFieldValidator> <asp:Button ID = "tbSubmit" runat = "server" Text="Verifica" OnClick="Submit" /> <div> </div> </form> </body> </html> Obs.: não pode ser em javascript, pois essa situação vai rodar em mobile! Abraços.
  11. Martinsrj
    Mas segui as orientações do _Vinny_. Exemplo: no titulo coloquei um nome bem pequeno.
  12. Martinsrj
    Olá Vinny! Conforme as suas observações procurei segui rigorasamente, porem continua com erro. Veja o link: http://pastebin.com/v7LCJ8hv A unica coisa que eu concordo no W3C e vejo que não tenho como modificar é o tamanho da pagina, mas o resto não está sabendo como corrigir. Abraços.
  13. Martinsrj
    Olá pessoal, boa tarde! Segue abaixo o código atualizado conforme as correções, porem continua com erro: http://pastebin.com/ZU65FWNN
  14. Martinsrj
    O 2° item que você mencionou a tag title está dentro da tag head. O 1° item eu corrigi a situação da tag html, porem não entendi a situação do Doctype. você teria como colocar aqui no fórum como seria o inicio do meu código? Abraços.
  15. Martinsrj
    Olá pessoal, boa noite! Coloquei agora a noite as duas paginas no site do pastebin, segue o link da pagina da conexao com o banco: http://pastebin.com/EQSPkrG3 Abaixo segue verificar a situação do login: http://pastebin.com/BQ9u2LGJ Obs.: o segundo link está praticamento todo comentado e aparece o mesmo erro: HTTP 500.100 - Servidor interno Erro - erro do ASP Internet Information Services -------------------------------------------------------------------------------- Informações técnicas (para a equipe de suporte) Tipo de erro: ADODB.Connection (0x800A0E78) Operação não permitida quando o objeto está fechado. /wapReembolso/logar.asp, line 17 Tipo de navegador: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; GTB6.4; InfoPath.2; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; OfficeLiveConnector.1.4; OfficeLivePatch.1.3; AskTB5.6) Página: POST 44 bytes to /wapReembolso/logar.asp POST Data: txt_login=admin&txt_senha=admin&Submit=Login Vejo com isso que o erro não está no SQL Server e sim no IIS, porem já desinstalei o IIS e reinstalei a situação persiste.
  16. Martinsrj
    Olá pessoal, boa tarde! Procurei validar o meu código no http://validator.w3.org/mobile/ mas não consegui. O meu código que está http://pastebin.com/SMzyh7Yi fica apenas com 72%. Quando eu mexo no charset dessa tag: <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> afeta outras parte como o do javascript. Como eu não tenho experiencia em criar site para mobile solicito por gentileza alguém com mais experiencia analise o código que disponibilizei no site do pastebin: http://pastebin.com/SMzyh7Yi Desde já agradeço pelos esclarecimento e ajuda.
  17. Martinsrj
    Olá pessoal, boa noite! Tinha uma aplicação funcionando no meu micro normalmente, após a formatação do micro deixou de funcionar. Agora quando tento logar no sistema da esse erro: Tipo de erro: ADODB.Connection (0x800A0E78) Operação não permitida quando o objeto está fechado. /wapReembolso/logar.asp, line 17 Porem no proprio sql server fiz um teste de consulta incluido a clausula where está funcionando dessa forma conforme a imagem abaixo: http://uploaddeimagens.com.br/imagem/ver/sqlserver.JPG Abaixo segue o meu código: <% '-- Retirar do internet explorer o cache!!! Response.Expiresabsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" %> <!--#Include file="conexaopontoweb.asp"--> <% Call gpAbreConexao var_Login = TRIM(Request.Form("txt_login")) var_Senha = TRIM(Request.Form("txt_senha")) strSQL = "SELECT * FROM BD_atChamado.dbo.usuarios WHERE login='" & var_Login & "' AND senha='" & var_Senha & "'" Set rsLogin = session("ObjConn").Execute(strSQL) If rsLogin.EOF Then Response.Write "Login ou Senha inválida!" 'Response.write "<script>alert('Atenção, login ou senha inválidos!')<script>" Response.AddHeader "Refresh", "1;URL=http://localhost/wapReembolso/wapReembolso/login.asp" Else gpSQL = "SELECT * FROM tbChamado" Session("login") = rsLogin("login") Session("senha") = rsLogin("senha") Session("nome") = rsLogin("nome") Session("temAcesso") = 1 Session("gpSQL") = gpSQL Response.Redirect "http://localhost/wapReembolso/wapReembolso/index2.asp" 'página restrita 'Response.write var_Login & "<br>" 'Response.write var_Senha Call gpFechaConexao() End If %> Aqui segue a pagina da conexao com o banco: <% 'CONEXÃO SQL Server Const gpVersaoSistema = "Versão: 1.0" Const userName_imp="paulo" Const passWord_imp="alfa30" Const dataBaseName_imp="BD_atChamado" Const serverName_imp = "JESUS-2FAB328AB" Sub gpAbreConexao() Dim strConn Set session("ObjConn") = Server.CreateObject("ADODB.Connection") strConn = "Provider=SQLOLEDB;Persist Security Info=False;User ID="&userName_imp&";Password="&passWord_imp&";Initial Catalog="&dataBaseName_imp&";Data Source="&serverName_imp session("ObjConn").ConnectionString = strConn On Error Resume Next session("ObjConn").Open session("ObjConn").CommandTimeout=3600 if Err <> 0 Then response.write "<font face=arial size=2 color=#000055>Ocorreu o seguinte Erro ao abrir o banco de dados : </font>" & "<font face=arial size=2 color=#FF0000>" & Err.Description & "</font>" ELSE 'response.write "<font face=arial size=2 color=#000055>conexão efetuado com sucesso : </font>" & "<font face=arial size=2 color=#FF0000>" & Err.Description & "</font>" End if On Error goto 0 Session("ConexaoAberta") = "Sim" End Sub Sub gpFechaConexao() session("ObjConn").close Set session("ObjConn") = Nothing session("ObjConn")="" Session("ConexaoAberta")="Não" End sub %> Desinstalei o SQLServer 2005 e instalei o 2008 e continua dando o mesmo erro. Abaixo segue o sumario da instalação que fiz do SQL Server 2008: Overall summary: Final result: Passed Exit code (Decimal): 0 Exit message: Passed Start time: 2010-05-09 16:37:16 End time: 2010-05-09 17:01:13 Requested action: Install Machine Properties: Machine name: JESUS-2FAB328AB Machine processor count: 1 OS version: Windows XP OS service pack: Service Pack 3 OS region: United States OS language: Português (Brasil) OS architecture: x86 Process architecture: 32 Bit OS clustered: No Product features discovered: Product Instance Instance ID Feature Language Edition Version Clustered Package properties: Description: SQL Server Database Services 2008 R2 ProductName: SQL Server 2008 R2 Type: RTM Version: 10 SPLevel: 0 Installation location: d:\d7fae86ad07c07bb5bcd96ae6ce251f0\x86\setup\ Installation edition: EXPRESS_ADVANCED User Input Settings: ACTION: Install ADDCURRENTUSERASSQLADMIN: True AGTSVCACCOUNT: AUTORIDADE NT\NETWORK SERVICE AGTSVCPASSWORD: ***** AGTSVCSTARTUPTYPE: Disabled ASBACKUPDIR: Backup ASCOLLATION: Latin1_General_CI_AS ASCONFIGDIR: Config ASDATADIR: Data ASDOMAINGROUP: <empty> ASLOGDIR: Log ASPROVIDERMSOLAP: 1 ASSVCACCOUNT: <empty> ASSVCPASSWORD: ***** ASSVCSTARTUPTYPE: Automatic ASSYSADMINACCOUNTS: <empty> ASTEMPDIR: Temp BROWSERSVCSTARTUPTYPE: Disabled CONFIGURATIONFILE: CUSOURCE: ENABLERANU: True ENU: True ERRORREPORTING: False FARMACCOUNT: <empty> FARMADMINPORT: 0 FARMPASSWORD: ***** FEATURES: SQLENGINE,REPLICATION,SSMS,SNAC_SDK FILESTREAMLEVEL: 0 FILESTREAMSHARENAME: <empty> FTSVCACCOUNT: <empty> FTSVCPASSWORD: ***** HELP: False IACCEPTSQLSERVERLICENSETERMS: False INDICATEPROGRESS: False INSTALLSHAREDDIR: C:\Arquivos de programas\Microsoft SQL Server\ INSTALLSHAREDWOWDIR: C:\Arquivos de programas\Microsoft SQL Server\ INSTALLSQLDATADIR: <empty> INSTANCEDIR: C:\Arquivos de programas\Microsoft SQL Server\ INSTANCEID: SQLServer2008 INSTANCENAME: SQLSERVER2008 ISSVCACCOUNT: NT AUTHORITY\NetworkService ISSVCPASSWORD: ***** ISSVCSTARTUPTYPE: Automatic NPENABLED: 0 PASSPHRASE: ***** PCUSOURCE: PID: ***** QUIET: False QUIETSIMPLE: False ROLE: AllFeatures_WithDefaults RSINSTALLMODE: FilesOnlyMode RSSVCACCOUNT: <empty> RSSVCPASSWORD: ***** RSSVCSTARTUPTYPE: Automatic SAPWD: ***** SECURITYMODE: SQL SQLBACKUPDIR: <empty> SQLCOLLATION: Latin1_General_CI_AS SQLSVCACCOUNT: AUTORIDADE NT\SYSTEM SQLSVCPASSWORD: ***** SQLSVCSTARTUPTYPE: Automatic SQLSYSADMINACCOUNTS: JESUS-2FAB328AB\Paulo Martins SQLTEMPDBDIR: <empty> SQLTEMPDBLOGDIR: <empty> SQLUSERDBDIR: <empty> SQLUSERDBLOGDIR: <empty> SQMREPORTING: True TCPENABLED: 0 UIMODE: AutoAdvance X86: False Configuration file: C:\Arquivos de programas\Microsoft SQL Server\100\Setup Bootstrap\Log\20100509_163421\ConfigurationFile.ini Detailed results: Feature: Database Engine Services Status: Passed MSI status: Passed Configuration status: Passed Feature: SQL Client Connectivity SDK Status: Passed MSI status: Passed Configuration status: Passed Feature: SQL Server Replication Status: Passed MSI status: Passed Configuration status: Passed Feature: Management Tools - Basic Status: Passed MSI status: Passed Configuration status: Passed Rules with failures: Global rules: Scenario specific rules: Rules report file: C:\Arquivos de programas\Microsoft SQL Server\100\Setup Bootstrap\Log\20100509_163421\SystemConfigurationCheck_Report.htm
  18. Martinsrj
    Caso o email não seja enviado o asp informe o erro.
  19. Martinsrj
    Olá pessoal, boa tarde! Já estou ficando atribulado, pois esse sistema já era pra estar pronto ontem, mas não consigo localizar e reparar o erro. Possuo o formulário no link abaixo pra vocês verificarem que no computador desktop funciona a formatação da data, valor monetário, hora, porem no celular não funciona. Link do formulario: http://martinsrj.com/teste/mobile.php Link do include java script: http://pastebin.com/aHAM5w7b Um detalhe que está ocorrendo é que quando eu insiro um Tipo Despesa o campo valor não executa a formatação no mobile ou no computador desktop. Abraços e conto com ajuda de todos.
  20. Martinsrj
    Olá pessoal, boa tarde! Estou com dificuldade em utiliza um função de formatação de data no evento onkeypress. Consigo fazer funcionar estatico dessa forma: <label id="txtDtDespesa0" for="txtDtDespesa0" class="label">Data da Despesa</label><br /> <input class="input" type="text" lang="1" title="" maxlength="10" size="10" name="txtDtDespesa0" id="txtDtDespesa0" value="" onFocus="mudarCorCampo(this,'white')" onkeypress="return(FormatarData(this,event))" /><br /> Porem necessito que funcione nesse codigo também: var textDtDespesa = document.createTextNode("Data Despesa"); var fontDtDespesa = document.createElement("label"); var quebraDtDespesa = document.createElement('BR'); var el = document.createElement('input'); var quebra = document.createElement('BR'); el.type = 'text'; el.name = 'txtDtDespesa' + var_txtCont.value; el.id = 'txtDtDespesa' + var_txtCont.value; el.size = 10; //el.onkeypress = keyPressTest; el.onkeypress = FormatarData; fontDtDespesa.appendChild(textDtDespesa); cellRightSel.appendChild(fontDtDespesa); cellRightSel.appendChild(quebraDtDespesa); cellRightSel.appendChild(el); cellRightSel.appendChild(quebra); Abaixo é a função: // Script para formatar datas function FormatarData(campo,e) { var cod=0; if(document.all) { cod=event.keyCode; } else { cod=e.which; } if(cod == 08 || cod == 0) return; if (cod < 48 || cod > 57) { if ((cod < 45 || cod > 57) && (cod != 13) ) alert("Digite somente Caracteres Numéricos!"); cod=0; campo.focus(); return false; } tam=campo.value.length; if(tam > 9) return false; var caract = String.fromCharCode(cod); if(tam == 2 || tam == 5) { campo.value+="/"+caract; return false; } campo.value+=caract; return false; } Onde que eu estou errando? Abraços. Acabei de colocar no site do Pastebin o código completo: http://pastebin.com/vEP5hngh
  21. Martinsrj
    Olá pessoal, boa tarde! Possuo um código de envio de email que está funcionando corretamente, porem gostaria de saber se existe um tratamente de erro. Aqui vai o código do formulario: 'Envia email 'corpoemail = corpoemail & "<td class=texto>-- Atualização de Chamado -- <br></td>" corpoemail = corpoemail & "-- Atualização de Chamado --" corpoemail = corpoemail & "<br>" corpoemail = corpoemail & "Tipo do Chamado:<b>"&var_TpChamado&"</b>" corpoemail = corpoemail & "<br>" corpoemail = corpoemail & "Chamado Altiris: <b>"&var_ChamadoAltiris&"</b>" corpoemail = corpoemail & "<br>" corpoemail = corpoemail & "Chamado HP: <b>"&var_ChamadoHP&"</b>" corpoemail = corpoemail & "<br>" corpoemail = corpoemail & "Descri&ccedil;&atilde;o do Servi&ccedil;o: <b>"&var_DescServico&"</b>" corpoemail = corpoemail & "<br>" If var_TpChamado <> "ticoeteco@exemplo.com.br" Then corpoemail = corpoemail & "PN Removido: <b>"&var_PNRemovido&"</b>" corpoemail = corpoemail & "<br>" corpoemail = corpoemail & "N/S Removido: <b>"&var_NSRemovido&"</b>" corpoemail = corpoemail & "<br>" corpoemail = corpoemail & "PN Instalado: <b>"&var_PNInstalado&"</b>" corpoemail = corpoemail & "<br>" corpoemail = corpoemail & "N/S Instalado: <b>"&var_NSInstalado&"</b>" corpoemail = corpoemail & "<br>" End If corpoemail = corpoemail & "Quem assinou o RS: <b>"&var_QAssRS&"</b>" corpoemail = corpoemail & "<br>" corpoemail = corpoemail & "RS: <b>"&var_RS&"</b>" corpoemail = corpoemail & "<br>" corpoemail = corpoemail & "Data Inicio: <b>"&var_DtInicio&"</b>" corpoemail = corpoemail & "<br>" corpoemail = corpoemail & "Hora Inicio: <b>"&var_HrInicio&"</b>" corpoemail = corpoemail & "<br>" corpoemail = corpoemail & "Data T&eacute;rmino: <b>"&var_DtTermino&"</b>" corpoemail = corpoemail & "<br>" corpoemail = corpoemail & "Hora T&eacute;rmino: <b>"&var_HrTermino&"</b>" corpoemail = corpoemail & "<br>" 'EnviaEmail "paulo.martins@remetente.com.br", login, "Paulo Martins", corpoemail,"" EnviaEmail "paulo.martins@remetente.com.br", "paulo.martins@destinatario.com.br", "Paulo Martins", corpoemail,"" '####################### Fim envia email ####################### Aqui é a função que eu criei: Function EnviaEmail(sender, recipient, subject, body, attach) 'Serve para criar a conexão com o servidor Set JMail = Server.CreateObject("JMail.SMTPMail") 'Indica o endereço do servidor responsável pelo envio das mensagens JMail.ServerAddress = "192.168.0.1" 'Indica em que tipo seu e-mail será enviado JMail.ContentType = "text/html" 'Indica o e-mail de quem está enviando (pode ser uma variável que contém o e-mail) JMail.Sender = sender 'Indica o título da mensagem JMail.Subject = subject 'Inicializa o texto no corpo da mensagem JMail.Body = body 'Indica o endereço de quem vai receber o e-mail JMail.AddRecipient recipient if attach <> "" Then 'nome do arquivo que deseja anexar, incluindo a extensão do mesmo. 'attachment = "D:\web\seulogin\nomedoarquivo" 'msg.AddAttachment (attachment) JMail.AddAttachment attach End if JMail.Execute End Function
  22. Martinsrj
    Valeu campeao! Não havia reparado o link no post anterior. Abraços.
  23. Martinsrj
    Certo, mas no php a função é essa base64_encode($texto); No ASP a função tem o mesmo nome? Por gentileza, coloque um exemplo em asp para criptografar uma variavel qualquer e depois descriptografar. Abraços.
  24. Martinsrj
    Olá pessoal, existem alguma função do ASP que criptografa e descriptografa a URL? No php eu sei que existe, mas quero implementar no ASP, pois estou migrando um sistema para ASP. Abraços. <?php$texto = "texto"; echo base64_encode($texto); // RESUTADO: dGV4dG8= // para voltar: $texto1 = "dGV4dG8="; echo base64_decode($texto1); // RESUTADO: texto ?>
  25. Martinsrj
    Valeu amigão, com este exemplo abriu o entendimento. Abraços.
×
×
  • Criar Novo...