Ir para conteúdo
Fórum Script Brasil

Marcos-rj

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    638

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Marcos-rj postou

  1. Marcos-rj
    Pode, sem problemas.
  2. Marcos-rj
  3. Marcos-rj
    Normal, igual aos outros, só precisa definir o valor do campo na propriedade VALUE.
  4. Marcos-rj
    CERTO, POR QUE NÃO ESTÁ RECUPERANDO OS DADOS? TODOS OS CAMPOS DO FORMULARIO, COM EXCEÇÃO DO CAMPO EMPRESA ESTÃO COM O NOME LICENCA. POR ISSO NÃO ESTÁ RECEBENDO OS VALORES: Vdepart = Request.Form("depart") Vcontato = Request.Form("contato") Vcargo = Request.Form("cargo") POIS O NOME DO CAMPO É LICENCA Alterei sua página de envio, veja se chegou algo no e-mail que você colocou no código: Fiz um teste aqui com meu e-mail e funcionou. http://www.sexdreamshop.com.br/teste/ acessa o link e faça um teste p/ ver.
  5. Marcos-rj
    Olhando sua página de envio vi que você colocou assim na linha 25: por isso não está enviando, tenta assim: + uma coisa, na 1ª página você tem vários campos, mas nas seguintes só está recuperando 4 deles. qualquer coisa posta ai.
  6. Marcos-rj
    Posta o código completo da página, a de envio e a do formulário. você deve estar fazendo alguma coisa errada.
  7. Marcos-rj
    Não dá nenhum erro? no EnviarMail.To = "xxxx@xxx.com.br" você colocou o e-mail que irá receber os dados do formulário?
  8. Marcos-rj
    Na dica acim ele usou o CDONTS, o seu servidor aceita? E no seu código a mensagem é porque você colocou no action um endereço de e-mail, e quando se coloca um e-mail ele envia pelo outlook, por isso ele exibe a mensagem. Segue um exemplo de envio de formulario por e-mail usando o CDO <head> </head> <% Function FormataData() dd = Day(now) mm = Month(now) aa = Year(now) if len(dd) = 1 then dd = "0" & dd if len(mm) = 1 then mm = "0" & mm FormataData = CStr(dd & "/" & mm & "/" & aa) End Function '------------------------------------------------------ if request.form("enviado") = "sim" then nome = request.form("nome") email = request.form("email") telefone = "("&request.form("ddd")&")"&" "&request.form("telpre")&"-"&request.form("telsuf") assunto = request.form("assunto") mensagem = request.form("mensagem") data = FormataData ip = request.servervariableS("REMOTE_ADDR") 'Cria o objeto para o envio de e-mail Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'Cria o objeto para configuração do SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.pscifrao.com.br" 'Porta do SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 'Porta do CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Timeout objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update 'Atualiza a configuração do CDOSYS para o envio do e-mail Set objCDOSYSMail.Configuration = objCDOSYSCon 'E-mail do remetente. Você pode indicar no formato: ' Nome <e-mail@dominio> ou somente o e-mail objCDOSYSMail.From = email 'E-mail do destinatário. Você pode indicar no formato: ' Nome <e-mail@dominio> ou somente o e-mail objCDOSYSMail.To = "PSCIFRAO<suporte@pscifrao.com.br>" 'Assunto da mensagem objCDOSYSMail.Subject = request.form("assunto")&" - "&"SITE PSCIFRÃO" 'Conteúdo da mensagem 'objCDOSYSMail.TextBody = request.form("mensagem") 'para envio da mensagem no formato html altere o TextBody para HtmlBody objCDOSYSMail.HtmlBody = "<html><head><title>FORMULÁRIO DE CONTATO PSCIFRAO</title></head><body topmargin=0 leftmargin=0 rightmargin=0 bottommargin=0><table border=0 width=606><tr><td width=600><img border=0 src=http://www.pscifrao.com.br/img/topo_mensagem.gif width=600 height=118></td></tr><tr><td width=600><table border=0 width=100% ><tr><td colspan=2 height=32><p align=center><b><font face=Verdana style=font-size: 13pt>FORMULÁRIO DE CONTATO PSCIFRAO.COM.BR</font></b></td></tr><tr><td width=99% colspan=2><table border=0 width=594 cellspacing=0 cellpadding=0><tr><td width=296><font face=Verdana size=2><b>DATA:</b> <i>"&data&"</i></font></td><td width=296><font face=Verdana size=2><b>IP:</b> <i>"&ip&"</i></font></td></tr></table></td></tr><tr><td width=20% ><b><font face=Verdana size=2>NOME: </font></b></td><td width=79% ><font face=Verdana size=2><i> "&nome&"</i></font></td></tr><tr><td width=20% ><b><font face=Verdana size=2>E-MAIL: </font></b></td><td width=79% ><i><font face=Verdana size=2> "&email&"</font></i></td></tr><tr><td width=20% ><b><font face=Verdana size=2>TELEFONE: </font></b></td><td width=79% ><i><font face=Verdana size=2> "&telefone&"</font></i></td></tr><tr><td width=20% ><b><font face=Verdana size=2>ASSUNTO: </font></b></td><td width=79% ><i><font face=Verdana size=2> "&assunto&"</font></i></td></tr><tr><td width=20% ><b><font face=Verdana size=2>MENSAGEM: </font></b></td><td width=79% ><i><font face=Verdana size=2> "&mensagem&"</font></i></td></tr><tr><td width=20% > </td><td width=79% > </td></tr></table></td></tr><tr><td width=600> </td></tr></table></body></html>" 'objCDOSYSMail.fields.update 'Envia o e-mail objCDOSYSMail.Send 'Destrói os objetos Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing response.write("<script>location = 'contato.asp';alert('MENSAGEM ENVIADA COM SUCESSO!')</script>") end if %> <table width="451"><tr><td align="left" valign="top" width="445"> <table border="0" cellspacing="4" cellpadding="4" width=571 bgcolor="#FFFFFF"><tr><td> <b><i><font face="Verdana" size="4">Fale Conosco</font></i></b></td></tr> <tr><td bordercolor="#008000"><font style=font-size:11px;color:000000> <div align=justify><font style=font-size:11px > <table border=0 cellspacing=0 width="101%" cellpadding=0> <tr> <td height=1> </td> </tr> <tr> <td height=1> <div align="center"> <table border="0" width="100%" id="table1"> <tr> <td> <font face="Verdana" style="font-size: 11px; color: 000000"> <strong> <span style="font-size: 9pt"> Atendimento via formulário:</span></strong></font></td> </tr> <tr> <td> <form method="POST" action="contato.asp" name="formulario"> <div align="center"> <table border="0" width="416" id="table2" cellpadding="0" height="252"> <tr> <td width="117"> <b> <font face="Verdana" size="2" color="#535353"> NOME:</font></b></td> <td width="293"> <input type="text" name="nome" size="33" style="border: 1px solid #000000"></td> </tr> <tr> <td width="117"> <b> <font face="Verdana" size="2" color="#535353"> E-MAIL:</font></b></td> <td width="293"> <font style="font-size:11px; color:000000" > <input type="text" name="email" size="33" style="border: 1px solid #000000"></font></td> </tr> <tr> <td width="117"> <b> <font face="Verdana" size="2" color="#535353"> TELEFONE:</font></b></td> <td width="293"> <font style="font-size:11px; color:000000" > <font face="Verdana" style="color: 000000" size="2"> (</font><font face="Verdana" style="font-size: 11px; color: 000000"><input type="text" name="ddd" size="1" style="border: 1px solid #000000" maxlength=2 OnKeyPress="valida_numero(this)" onKeyUp="if(value.length==2)document.formulario.telpre.focus();" ></font><font face="Verdana" style="color: 000000" size="2">) </font> <font face="Verdana" style="font-size: 11px; color: 000000"> <input type="text" name="telpre" size="3" style="border: 1px solid #000000" maxlength=4 OnKeyPress="valida_numero(this)" onKeyUp="if(value.length==4)document.formulario.telsuf.focus();"></font><font face="Verdana" style="color: 000000" size="2">-</font><font face="Verdana" style="font-size: 11px; color: 000000"><font face="Verdana"><input type="text" name="telsuf" size="3" style="border: 1px solid #000000" maxlength=4 OnKeyPress="valida_numero(this)" onKeyUp="if(value.length==4)document.formulario.assunto.focus();"></font><font face="Verdana" style="color: 000000" size="2"> </font></font> </font> <font face="Verdana" style="font-size: 8pt; color: 000000"> (Informe DDD e telefone)</font></td> </tr> <tr> <td width="117"> <b> <font face="Verdana" size="2" color="#535353"> ASSUNTO:</font></b></td> <td width="293"> <font style="font-size:11px; color:000000" > <input type="text" name="assunto" size="33" style="border: 1px solid #000000"></font></td> </tr> <tr> <td width="117"> <b> <font face="Verdana" size="2" color="#535353"> MENSAGEM:</font></b></td> <td width="293"> <textarea rows="6" name="mensagem" cols="29" style="border: 1px solid #000000"></textarea></td> </tr> <tr> <td width="410" colspan="2"> <font style="font-size:11px; color:000000" > <input type="submit" value="enviar formulário"></font></td> </tr> </table> </div> <input type="hidden" name="enviado" value="sim"> </form> </td> </tr> </table> </div> </td> </tr> <tr> <td height=5></td> </tr> <tr> <td height=5> <hr size="1" color="#ECE9D8" width="80%"> </td> </tr></table> </font></font> <font style=font-size:11px;color:000000> <font style=font-size:11px face=Verdana><center> <a HREF="default.asp" style=text-decoration:none onMouseOut="window.status='';return true;" onMouseOver="window.status='Página Inicial';return true;">:: <b>Voltar</b> ::</a></center></td></tr> </table></td></tr> </table>
  9. Marcos-rj
    eu faço assim: Coloco este código na body onload=setInterval("window.clipboardData.clearData()",20) Ele apaga tudo da are de transferencia. ele está em uso no site: www.morangocarioca.com.br
  10. Marcos-rj

    Trabalhando Com Datas

    pergunta respondeu ao smez de Marcos-rj em ASP

    tenta Date(now)
  11. Marcos-rj
    no lugar do radio button voce pode usar os botoes, eu pode ajustar o codigo que para para funcionar com os radio button´s.
  12. Marcos-rj
    Faz assim que funciona: Qualquer coisa posta ai. T+
  13. Marcos-rj
    valeu andreia, muito obrigado! Era isso mesmo
  14. Marcos-rj
    alguém saberia me dizer como faço para pegar parte da URL. No meu caso eu preciso pegar o que vem depois da / . Exemplo: http://scriptbrasil.com.br/forum como faço para pegar a palavra forum que vem depois da / ???
  15. Marcos-rj

    Verificar Domínio

    uma questão postou Marcos-rj ASP

    Boa tarde galera, to usando o script abaixo para verificar seu um dominio é registrado ou não, porem esta dando o seguinte erro: a linha 35 é esta: alguém sabe que erro é este??? o script pode ser conferido no seguinte endereço: http://www.caac.org.br/dominio/verifica.asp o script: <% Option Explicit %> <% 'Elimina o armazenamento no Buffer Response.Buffer = false 'Função para consulta de Domínio no sites ww.registro.br Private Function VerificaDominio(Dominio) Dim ObjXML 'Variavel para o Objeto XMLHTTP Dim ResultadoConsulta 'Variavel para guardar retorno da consulta Dim Situacao ' verifica as condições básicas de sintaxe do domínio If Len(Dominio) < 9 THEN Situacao = "Erro ! O domínio deve possuir pelo menos dois caracteres" ElseIf Len(Dominio) > 32 THEN Situacao = "Erro ! O domínio deve possuir no máximo 26 caracteres" Else ' Cria a instância no objeto no servidor Set ObjXML = Server.CreateObject("Microsoft.XMLHTTP") ' Obtem a página do endereço base do registro.br ObjXML.Open "GET", "http://registro.br/cgi-bin/nicbr/whois?qr="&Dominio, False 'Envia a requisição e aguarda a Resposta ObjXML.Send 'Guarda o Retorno em uma variável para comparação posterior ResultadoConsulta = ObjXML.ResponseText 'Pesquisa por palavras chaves no texto para obter o resultado If instr(1,ResultadoConsulta,"inexistente") Then Situacao = "Disponível para Registro" ElseIf instr(1,ResultadoConsulta,"encontrada nenhuma") Then Situacao = "Erro ! Sintaxe Inválida " ElseIf instr(1,ResultadoConsulta,"Como fazer uma consulta") Then Situacao = "Erro ! Sintaxe Inválida " ElseIf instr(1,ResultadoConsulta,"Primeiro") Then Situacao = "Domínio de Primeiro Nível Inválido" Else Situacao = "Dominio já Registrado" End If End If 'retorna o resultado à função VerificaDominio = Situacao End Function %> <html> <head> <title>Verficando Domínios</title> </head> <body> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" width="400" style="border: 1 solid #000000"> <tr> <td bgcolor="#D4D4D4" align="center"><b><font size="2" face="Verdana">Digite o domínio com a extensão, e sem o www. </font></b></td> </tr> <tr> <td align="center"> <form method="GET" action="verifica.asp"> <p><br><input type="text" name="Dominio" size="20" <%IF Request.QueryString("Dominio") <> "" THEN%> value=<%=Request.QueryString("Dominio")%> <%ELSE%>value="suaempresa.com.br"<%END IF%>><br> <input type="submit" value="Consultar" name="B1"><input type="reset" value="Limpar" name="B2"></p> </form> </td> </tr> <tr> <td bgcolor="#D4D4D4" align="center"><font size="2" face="Verdana" color="#FF0000"><b><%IF Request.QueryString("Dominio") <> "" THEN%> <%=verificaDominio(Request.QueryString("Dominio"))%><%END IF%></b></font></td> </tr> </table> </center> </div> </body> </html>
  16. Marcos-rj

    Validação Direta Na Página.

    pergunta respondeu ao Rubs de Marcos-rj em ASP

    Dá uma olhada neste tópico. http://forum.imasters.com.br/index.php?showtopic=169982
  17. Marcos-rj
    Coloca este código na página: <style> @page { @top-left{ content: ""; } @bottom-center { content: ""; } } </style> assim vai imprimir sem cabeçalho e rodapé. T+
  18. Marcos-rj

    Email

    pergunta respondeu ao raphaelcarlos de Marcos-rj em ASP

    Não sei se é por isso, mas repara o seguinte: nos ifs o nMail é : mais embaixo você coloca: depois coloca que:
  19. Marcos-rj
    este script é maneiro, mas a página de pesquisa mudou, pode testar que vai dar erro. alguém tem o endereço novo?
  20. Marcos-rj

    E-commerce

    pergunta respondeu ao jntk de Marcos-rj em ASP

    Baixe a VirtuaStore, é legalzinha.
  21. Marcos-rj
    procura na sessao javascript
  22. Marcos-rj
    O que acontece na paginação? dá algum erro?
  23. Marcos-rj

    Editar Registros...

    uma questão respondeu Marcos-rj em ASP

    procura no forum sobre paginação de dados.
  24. Marcos-rj

    Upload De Fotos

    pergunta respondeu ao epacom de Marcos-rj em ASP

    Eu estive dando uma olhada no site, ele tá precisando de uma geral, não só na administração de notícias. Dá um jeito na página inicial pois tá uma bagunça só! O que você quer é mole de fazer, não é nenhum bicho de 7 cabeças. se você está falando a verdade ou não sobre a remuneração não me interessa. pode contar com a minha ajuda. eu fiz um sistema de noticias p/ uma igreja sem, poderia colocar upload de fotos nele para vc, você só teria que adapta-lo no site. me manda um e-mail. carioca.marcos@gmail.com
  25. Marcos-rj

    Upload

    pergunta respondeu ao Steven Tyler de Marcos-rj em ASP

    Faz uma busca no forum que tem muita coisa sobre este assunto.
×
×
  • Criar Novo...