Ir para conteúdo
Fórum Script Brasil

Flavia Soul

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    94

  • Registro em

  • Última visita

Sobre Flavia Soul

  • Data de Nascimento 09/02/1976

Contatos

  • MSN
    zonaonline@zonacarioca.com
  • Website URL
    http://www.zonacarioca.com
  • ICQ
    97064355

Perfil

  • Location
    Rio de janeiro

Flavia Soul's Achievements

0

Reputação

  1. Flavia Soul
    Olá pessoal Preciso de ajuda! Estou fazendo uma página em html que tem um index e seus links abrem em um iframe do centro e na parte superior dessa página. O que acontece: Nos links lá em baixo da página, quando são clicados eles abrem no iframe lá em cima, porém a página index não se movimenta, fica lá em baixo e o internauta tem que subir a página para ver o conteúdo desde o início. Já vi na net que algumas pessoas usaram o código abaixo e funcionou: function topo() { parent.scroll(0,0); } Mas no meu caso não rolou... Será que é porque eu uso iframe dinâmico (que se adapta ao tamanho da página?) HEEEELPP PLZZZ Bjs Flavinha
  2. Flavia Soul

    Formail No Dataform 2

    pergunta respondeu ao Flavia Soul de Flavia Soul em ASP

    já tentei com AspMail tb... Não rola... Até achei que fosse porque o dll poderia não estar instalado, instalei e deu sucesso... Mas não funciona nem a pau! :unsure:
  3. Flavia Soul
    Hello geral Sei que alguns de vocês não curtem o Dataform, mas no momento é o ideal para o que estou precisando. O problema é que estou tentando fazer com que o formail envie as informações, ele funciona legal, diz que enviou mas ele simplesmente não chega. Já testei com vários servidores diferentes e nada. Queria pedir um help para ver se o código pode estar errado. aí vai a bomba: <% @ LANGUAGE="VBSCRIPT" %> <% '******************************************************************* ' Página gerada pelo sistema Dataform 2 - http://www.dataform.com.br '******************************************************************* 'Email para onde serão enviados os dados do formulário email_form = "suporte@zonacarioca.com" 'Título do email assunto_form = "Teste Dataform" 'Servidor de email servidor = "200.155.18.14" 'Componente para envio do email: CDONTS | AspMail | AspEmail | AspQmail componente = "CDONTS" 'Cabeçalho do texto do email recebido cabecalho_email = "Dados do Usuário" '******************************************************************* %> <HTML> <HEAD> <TITLE>Incluir Registro</TITLE> <meta name="copyright" content="Dataform"> <meta name="keywords" content="dataform, asp dataform, aspdataform, asp-dataform"> <meta name="robots" content="ALL"> <style type="text/css"> <!-- .campo_alerta { font-family: Tahoma, Verdana, Arial; font-size: 11px; border: 1px solid black; background-color: #ffff99; } .texto_pagina { font-family: Tahoma, Verdana, Arial; font-size: 11px; color: dimgray; } .tabela_formulario { width: 200; background-color: white; } .titulo_campos { font-family: Tahoma, Verdana, Arial; font-size: 11px; color: dimgray; background-color: whitesmoke; } .campos_formulario { font-family: Tahoma, Verdana, Arial; font-size: 11px; color: dimgray; background-color: gainsboro; border: 1px inset; } .botao_enviar { font-family: Tahoma, Verdana, Arial; font-size: 11px; color: white; background-color: gray; } --> </style> &lt;script language="JavaScript" type="text/javascript"> <!-- function abre_janela(width, height, nome) { var top; var left; top = ( (screen.height/2) - (height/2) ) left = ( (screen.width/2) - (width/2) ) window.open('',nome,'width='+width+',height='+height+',scrollbars=no,toolbar=no,location=no,status=no,menubar=no,resizable=no,left '+left+',top='+top); } function recebe_imagem(campo, imagem){ var foto = 'img_' + campo document.form_incluir[campo].value = imagem; document.form_incluir[foto].src = imagem; } function verifica_form(form) { var passed = false; var ok = false var campo for (i = 0; i < form.length; i++) { campo = form[i].name; if (form[i].df_verificar == "sim") { if (form[i].type == "text" | form[i].type == "textarea" | form[i].type == "select-one") { if (form[i].value == "" | form[i].value == "http://") { form[campo].className='campo_alerta' form[campo].focus(); alert("Preencha corretamente o campo"); return passed; stop; } } else if (form[i].type == "radio") { for (x = 0; x < form[campo].length; x++) { ok = false; if (form[campo][x].checked) { ok = true; break; } } if (ok == false) { form[campo][0].focus(); form[campo][0].select(); alert("Informe uma das opcões"); return passed; stop; } } var msg = "" if (form[campo].df_validar == "cpf") msg = checa_cpf(form[campo].value); if (form[campo].df_validar == "cnpj") msg = checa_cnpj(form[campo].value); if (form[campo].df_validar == "cpf_cnpj") { msg = checa_cpf(form[campo].value); if (msg != "") msg = checa_cnpj(form[campo].value); } if (form[campo].df_validar == "email") msg = checa_email(form[campo].value); if (form[campo].df_validar == "numerico") msg = checa_numerico(form[campo].value); if (msg != "") { if (form[campo].df_validar == "cpf_cnpj") msg = "informe corretamente o número do CPF ou CNPJ"; form[campo].className='campo_alerta' form[campo].focus(); form[campo].select(); alert(msg); return passed; stop; } } } passed = true; return passed; } function desabilita_cor(campo) { campo.className='campos_formulario' } function checa_numerico(String) { var mensagem = "Este campo aceita somente números" var msg = ""; if (isNaN(String)) msg = mensagem; return msg; } function checa_email(campo) { var mensagem = "Informe corretamente o email" var msg = ""; var email = campo.match(/(\w+)@(.+)\.(\w+)$/); if (email == null){ msg = mensagem; } return msg; } function checa_cpf(CPF) { var mensagem = "informe corretamente o número do CPF" var msg = ""; if (CPF.length != 11 || CPF == "00000000000" || CPF == "11111111111" || CPF == "22222222222" || CPF == "33333333333" || CPF == "44444444444" || CPF == "55555555555" || CPF == "66666666666" || CPF == "77777777777" || CPF == "88888888888" || CPF == "99999999999") msg = mensagem; soma = 0; for (y=0; y < 9; y ++) soma += parseInt(CPF.charAt(y)) * (10 - y); resto = 11 - (soma % 11); if (resto == 10 || resto == 11)resto = 0; if (resto != parseInt(CPF.charAt(9))) msg = mensagem; soma = 0; for (y = 0; y < 10; y ++) soma += parseInt(CPF.charAt(y)) * (11 - y); resto = 11 - (soma % 11); if (resto == 10 || resto == 11) resto = 0; if (resto != parseInt(CPF.charAt(10))) msg = mensagem; return msg; } function checa_cnpj(s) { var mensagem = "informe corretamente o número do CNPJ" var msg = ""; var y; var c = s.substr(0,12); var dv = s.substr(12,2); var d1 = 0; for (y = 0; y < 12; y++) { d1 += c.charAt(11-y)*(2+(y % 8)); } if (d1 == 0) msg = mensagem; d1 = 11 - (d1 % 11); if (d1 > 9) d1 = 0; if (dv.charAt(0) != d1)msg = mensagem; d1 *= 2; for (y = 0; y < 12; y++) { d1 += c.charAt(11-y)*(2+((y+1) % 8)); } d1 = 11 - (d1 % 11); if (d1 > 9) d1 = 0; if (dv.charAt(1) != d1) msg = mensagem; return msg; } function mascara_data(data){ var mydata = ''; mydata = mydata + data; if (mydata.length == 2){ mydata = mydata + '/'; } if (mydata.length == 5){ mydata = mydata + '/'; } return mydata; } function verifica_data(data) { if (data.value != "") { dia = (data.value.substring(0,2)); mes = (data.value.substring(3,5)); ano = (data.value.substring(6,10)); situacao = ""; if ((dia < 01)||(dia < 01 || dia > 30) && ( mes == 04 || mes == 06 || mes == 09 || mes == 11 ) || dia > 31) { situacao = "falsa"; } if (mes < 01 || mes > 12 ) { situacao = "falsa"; } if (mes == 2 && ( dia < 01 || dia > 29 || ( dia > 28 && (parseInt(ano / 4) != ano / 4)))) { situacao = "falsa"; } if (situacao == "falsa") { data.focus(); data.select(); alert("Data inválida!"); } } } //--> </script> </HEAD> <BODY class=texto_pagina> <% If Not IsEmpty(Request.Form) Then strMsg = "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>" strMsg = strMsg & "<HTML><HEAD>" strMsg = strMsg & "<META content='text/html; charset=iso-8859-1' http-equiv=Content-Type>" strMsg = strMsg & "<META content='MSHTML 5.00.2614.3500' name=GENERATOR></HEAD>" strMsg = strMsg & "<BODY><FONT face=Tahoma size=2><B>" & cabecalho_email & "</B><BR><BR>" strMsg = strMsg & "<B>Nome</B><BR><BR>" & Trim(Request.Form("Campo1")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>E-mail</B><BR><BR>" & Trim(Request.Form("Campo2")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Comentários</B><BR><BR>" & Trim(Request.Form("Campo3")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "</FONT></BOBY>" strMsg = strMsg & "</HTML>" EnviaEmail servidor, componente, email_form, email_form, email_form, assunto_form, strMsg Function EnviaEmail(Host,Componente,Email,NomeEmail,ParaEmail,Assunto,Mensagem) Select Case Componente Case "AspMail" on error resume next Set eObjMail = Server.CreateObject("SMTPsvg.Mailer") eObjMail.FromName = NomeEmail eObjMail.FromAddress = Email eObjMail.RemoteHost = Host eObjMail.AddRecipient "", ParaEmail eObjMail.Subject = Assunto eObjMail.ContentType = "text/html" eObjMail.BodyText = Mensagem eObjMail.SendMail Set eObjMail = nothing Case "AspEmail" on error resume next Set eObjMail = Server.CreateObject("Persits.MailSender") eObjMail.Host = Host eObjMail.From = Email eObjMail.FromName = NomeEmail eObjMail.AddReplyTo Email eObjMail.AddAddress ParaEmail eObjMail.Subject = Assunto eObjMail.isHTML = true eObjMail.Body = Mensagem eObjMail.Send Set eObjMail = nothing Case "AspQmail" on error resume next Set eObjMail = Server.CreateObject("SMTPsvg.Mailer") eObjMail.QMessage = 1 eObjMail.FromName = NomeEmail eObjMail.FromAddress = Email eObjMail.RemoteHost = Host eObjMail.AddRecipient "", ParaEmail eObjMail.Subject = Assunto eObjMail.BodyText = Mensagem objNewMail.SendMail Set eObjMail = nothing Case "CDONTS" on error resume next Set eObjMail = Server.CreateObject("CDONTS.NewMail") eObjMail.to = ParaEmail eObjMail.from = NomeEmail & "<" & Email & ">" eObjMail.subject = Assunto eObjMail.Importance = 1 eObjMail.BodyFormat = 0 eObjMail.MailFormat = 0 eObjMail.body = Mensagem eObjMail.send Set eObjMail = nothing End Select End Function %> <B>Dados enviados</B><BR>Obrigado, seus dados foram enviados com sucesso. <% Else %> <B>Enviar Dados</B><BR>Informe os dados abaixo: <form name="form_incluir" method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>" onsubmit="return verifica_form(this);"> <TABLE border=0 cellpadding=2 cellspacing=1 class=tabela_formulario> <TR class=titulo_campos><TD>Nome<br> <INPUT style="width=350" type="text" name="Campo1" maxlength="255" value="" onKeyPress="desabilita_cor(this)" df_verificar="sim" class=campos_formulario> </TD></TR> <TR class=titulo_campos><TD>E-mail<br> <INPUT style="width=350" type="text" name="Campo2" maxlength="255" value="" onKeyPress="desabilita_cor(this)" df_verificar="sim" class=campos_formulario> </TD></TR> <TR class=titulo_campos><TD>Comentários<br> <TEXTAREA style="width=350;height=50" name="Campo3" onKeyPress="desabilita_cor(this)" class=campos_formulario></TEXTAREA> </TD></TR> </TABLE> <input type="submit" name="submit" value="Enviar" class=botao_enviar> </form> <% End If %> </BODY> </HTML> alguém saberia me dizer porque não consigo enviar? bjs mil Flavia Soul
  4. Flavia Soul
    Olá gente... Estou com um problema a séculos e agora a coisa começou a apertar... Tenho um script de form mail em Asp que envia os resultados do formulario numa boa, mas o único problema é a ordem que ele chega... Um exemplo: Na página form.htm está nessa ordem Nome: E-mail: Telefone: Comentários: Mas a resposta que recebo no meu e-mail é essa: Nome: Flavia Comentários: blá, blá, blá E-mail: flavia@.....com.br Telefone: 215555555 Quero saber como colocar exatamente na ordem que está na página form. Nome: Flavia E-mail: flavia@.....com.br Telefone: 215555555 Comentários: blá, blá, blá Segue abaixo o script (a página form.htm é normal com o action chamando o envia.asp) envia.asp <%@ Language=VBScript %> <% 'Script para envio de e-mail em formulário Dim vErro,vSucesso,vErr vErro = "" vSucesso = "obrigado.htm" vErr = "erro.htm" if Request.Form.Count + Request.QueryString.Count > 0 then Call Respform Call Resp end if '----------------------------------------------------------- Sub Respform() On Error Resume Next Dim msg,vData,vHora,vPara,vNomeform,vFrom,vAssunto,vCc,vDom vNomeForm = "Contato" vPara = "suporte@zonacarioca.com" vFrom = "suporte@zonacarioca.com" vCc = "suporte@zonacarioca.com" vAssunto = "Contato - Zona Carioca" vData = Date() vData = day(vData) & "/" & month(vData) & "/" & year(vData) vHora = Time() vHora = hour(vHora) & "h" & minute(vHora) & "min" & second(vHora) & "s" msg = "Formulário " & vNomeForm msg = msg & " submetido em " & vData & " às " & vHora & VbCrLf & VbCrLf if Request.ServerVariables("REQUEST_METHOD") = "POST" then for each campo in Request.Form if campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then msg = msg & string(60,"-") & vbcrlf msg = msg & campo & " : " & Request.Form(campo) & VbCrLf end if next else for each campo in Request.QueryString if campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then msg = msg & string(60,"-") & vbcrlf msg = msg & campo & " : " & Request.QueryString(campo) & VbCrLf end if next end if msg = msg & string(60,"*") & vbcrlf EnviaEmail msg,vFrom,vPara,vCc,vAssunto If Err then vErro = Err.number & " : " vErro = Err.description Err.Clear End if End Sub '----------------------------------------------------------- Function EnviaEmail(ByVal p_body, Byval p_from, ByVal p_to, ByVal p_cc, Byval p_subject) On Error Resume Next Dim iMsg, Flds, iConf, status Const SERVIDOR_SMTP = "200.155.18.14" status = true Set iMsg = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SERVIDOR_SMTP Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 Flds.Update With iMsg Set .Configuration = iConf .To = p_to .CC = p_cc .From = p_from .Sender = p_from .Subject = p_subject .TextBody = p_body .Send End With If Err.number <> 0 Then status = false End If If IsObject(iMsg) Then Set iMsg = Nothing If IsObject(Flds) Then Set Flds = Nothing If IsObject(iConf) Then Set iConf = Nothing EnviaEmail = status End Function '----------------------------------------------------------- Sub Resp() if vErro = "" then Response.Redirect(vSucesso) else Response.Redirect(vErr) end if End Sub %> Alguém poderia me ajudar? :unsure: Tks
  5. Flavia Soul
    Fala galera! Trabalho com iframe dinâmico, mas não estou conseguindo fazer o action de minha busca reconhecer o código... Exemplo: No iframe normal, ele reconheceria tranquilamente a linha abaixo: <form method="get" name="frmInterSaerch" action="busca/search.asp" target="centro" onSubmit="return CheckForm();"> Mas o dinâmico não, pois ele chama um java script. java script:loadintoIframe('centro', 'principal.htm') O código do Iframe dinâmico esta nesse post http://scriptbrasil.com.br/forum/index.php?showtopic=106371 Que faço para que o action leia o java? :blink: Abs Soul
  6. Flavia Soul
    Hoje em dia existe o Iframe Dinâmico Segura o código Esse você coloca na página que será a base (index, default...) após a tag HEAD. ATENÇÃO NESSE SCRIPT PARA A MUDANÇA DO TARGET. <script type="text/javascript"> /*********************************************** * IFrame SSI script II- © Dynamic Drive DHTML code library (http://www.dynamicdrive.com) * Visit DynamicDrive.com for hundreds of original DHTML scripts * This notice must stay intact for legal use ***********************************************/ //Input the IDs of the IFRAMES you wish to dynamically resize to match its content height: //Separate each ID with a comma. Examples: ["myframe1", "myframe2"] or ["myframe"] or [] for none: var iframeids=["centro"] //Should script hide iframe from browsers that don't support this script (non IE5+/NS6+ browsers. Recommended): var iframehide="yes" var getFFVersion=navigator.userAgent.substring(navigator.userAgent.indexOf("Firefox")).split("/")[1] var FFextraHeight=parseFloat(getFFVersion)>=0.1? 16 : 0 //extra height in px to add to iframe in FireFox 1.0+ browsers function resizeCaller() { var dyniframe=new Array() for (i=0; i<iframeids.length; i++){ if (document.getElementById) resizeIframe(iframeids[i]) //reveal iframe for lower end browsers? (see var above): if ((document.all || document.getElementById) && iframehide=="no"){ var tempobj=document.all? document.all[iframeids[i]] : document.getElementById(iframeids[i]) tempobj.style.display="block" } } } function resizeIframe(frameid){ var currentfr=document.getElementById(frameid) if (currentfr && !window.opera){ currentfr.style.display="block" if (currentfr.contentDocument && currentfr.contentDocument.body.offsetHeight) //ns6 syntax currentfr.height = currentfr.contentDocument.body.offsetHeight+FFextraHeight; else if (currentfr.Document && currentfr.Document.body.scrollHeight) //ie5+ syntax currentfr.height = currentfr.Document.body.scrollHeight; if (currentfr.addEventListener) currentfr.addEventListener("load", readjustIframe, false) else if (currentfr.attachEvent){ currentfr.detachEvent("onload", readjustIframe) // Bug fix line currentfr.attachEvent("onload", readjustIframe) } } } function readjustIframe(loadevt) { var crossevt=(window.event)? event : loadevt var iframeroot=(crossevt.currentTarget)? crossevt.currentTarget : crossevt.srcElement if (iframeroot) resizeIframe(iframeroot.id); } function loadintoIframe(iframeid, url){ if (document.getElementById) document.getElementById(iframeid).src=url } if (window.addEventListener) window.addEventListener("load", resizeCaller, false) else if (window.attachEvent) window.attachEvent("onload", resizeCaller) else window.onload=resizeCaller </script> Esse é o código do Iframe <iframe id="nome do target" src="nomedapagina.htm" scrolling="no" marginwidth="0" marginheight="0" frameborder="0" vspace="0" hspace="0" style="overflow:visible; width:100%; display:none"></iframe> Esse é o código que vai no botão "java script:loadintoIframe('nome do target', 'nomedapagina.htm') :lol: funciona certinho!
  7. Flavia Soul
    Vlw mesmo... Deu super certo!!! Mas nos links principais que levam ao iframe... (menu) e se eu tiver um link dentro do iframe? Tks Soul
  8. Flavia Soul
    sem âncora... é o carregamento da página pura e simples... ela em vez de voltar ao topo, ela para no lugar que você clicou... por exemplo... veja esse site: www.arportoes.com.br clique no link portões... desça até pivotantes... agora clique em seg... ele simplesmente continua no mesmo lugar e aparece uma página branca, pois as informações estão mais acima... eu fui obrigada a colocar uma âncora, mas o que eu quero é que ele volte normalmente ao topo do site, sozinho sem o uso da âncora... se alguém souber e puder me ajudar agradeço... estou usando iframe... Abs Soul
  9. Flavia Soul
    Hello galerinha... Seguinte... Estou com problemas ao fazer o site carregar do inicio, vou explicar: Quando você acessa um site, ele aparece o topo e tal... Aí você clica num link qualquer (no meio ou fim da pagina) e ele vai para esse link, mas volta a mostrar o site do inicio... lá no topo... O que está rolando comigo é que se clico num link no meio da página, ele continua no meio, não sobe... Eu trabalho com um index e coloco um iframe. Como fazer para a página, cada vez que clico volte pro topo??? Se alguém puder me ajudar seria um adianto e tanto... Vlws
  10. Flavia Soul

    Calculo De Frete

    pergunta respondeu ao dark0 de Flavia Soul em ASP

    Olá galera... Gostei a beça do tópico, aqui está funcionando muito bem... Mas existe alguma forma de eu formatar a resposta? Mudar fonte, cor, dar ênfase ao preço e colocar em R$--,00 ? exatamente como está lá no site dos correios? Abraços Flavia
  11. Flavia Soul
    Esqueci de falar... Queria que ficasse na ordem que está on line. e outra coisa... não conheço muito o asp, por isso, onde eu ponho isso? Beijos
  12. Flavia Soul
    Vou enviar o endereço do formulário pra você saber. Lembrando que ele tem obrigatoriedade em alguns campos. Aqui vai o endereço do form Beijos
  13. Flavia Soul
    Ah, Andréia... Foi maaal... hehehe Oieeee meninos e meninas....
  14. Flavia Soul
    São 4 arquivos: • o formulário em html que tem o "action= envia.asp". • obrigado.htm • erro.htm • envia.asp Abaixo vai o código do envia.asp: <%@ Language=VBScript %> <% 'Script para envio de e-mail em formulário Dim vErro,vSucesso,vErr vErro = "" vSucesso = "obrigado.htm" vErr = "erro.htm" if Request.Form.Count + Request.QueryString.Count > 0 then Call Respform Call Resp end if '----------------------------------------------------------- Sub Respform() On Error Resume Next Dim msg,vData,vHora,vPara,vNomeform,vFrom,vAssunto,vCc,vDom vNomeForm = "Contato" vPara = "suporte@netdominio.com.br" vFrom = "suporte@netdominio.com.br" vCc = "comercial@sosserve.com.br" vAssunto = "Novo Orçamento - Castelo do Frio" vData = Date() vData = day(vData) & "/" & month(vData) & "/" & year(vData) vHora = Time() vHora = hour(vHora) & "h" & minute(vHora) & "min" & second(vHora) & "s" msg = "Formulário " & vNomeForm msg = msg & " submetido em " & vData & " às " & vHora & VbCrLf & VbCrLf if Request.ServerVariables("REQUEST_METHOD") = "POST" then for each campo in Request.Form if campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then msg = msg & string(60,"-") & vbcrlf msg = msg & campo & " : " & Request.Form(campo) & VbCrLf end if next else for each campo in Request.QueryString if campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then msg = msg & string(60,"-") & vbcrlf msg = msg & campo & " : " & Request.QueryString(campo) & VbCrLf end if next end if msg = msg & string(60,"*") & vbcrlf EnviaEmail msg,vFrom,vPara,vCc,vAssunto If Err then vErro = Err.number & " : " vErro = Err.description Err.Clear End if End Sub '----------------------------------------------------------- Function EnviaEmail(ByVal p_body, Byval p_from, ByVal p_to, ByVal p_cc, Byval p_subject) On Error Resume Next Dim iMsg, Flds, iConf, status Const SERVIDOR_SMTP = "200.155.18.14" status = true Set iMsg = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SERVIDOR_SMTP Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 Flds.Update With iMsg Set .Configuration = iConf .To = p_to .CC = p_cc .From = p_from .Sender = p_from .Subject = p_subject .TextBody = p_body .Send End With If Err.number <> 0 Then status = false End If If IsObject(iMsg) Then Set iMsg = Nothing If IsObject(Flds) Then Set Flds = Nothing If IsObject(iConf) Then Set iConf = Nothing EnviaEmail = status End Function '----------------------------------------------------------- Sub Resp() if vErro = "" then Response.Redirect(vSucesso) else Response.Redirect(vErr) end if End Sub %> Beijinhos...
  15. Flavia Soul
    Olá meninos... Seguinte Tenho um script de envio de formulário que deixa as repostas uma bagunça. As ordens de recebimento ficam completamente fora da ordem do form original. alguém saberia por que? E se tem solução para isso? Beijos
×
×
  • Criar Novo...