Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 envio de correos x cdo
 Foro Bloqueado  Tema Bloqueado


Autor Temas
ulimoby
Starting Member

Mexico
5 Posts
Mensajes - 05 May 2010 :  19:19:34  Ver Perfil  Enviar Email
Tengo este codigo en el que mediante un formulario en javascprit dentro de un html, al llenar los datos los envia al archivo envia.asp y este manda un correo con los datos. Pero el problema es que sale repetido la info, me pueden ayudar? este es el codigo:

<%

if Request.Form("Enviar")<>"" then

strMail=""
strMail=Request.form("nombre")()
strmail=strMail & "<p>"
strMail=strMail & Request.form("telefono")()
strmail=strmail & "<p>"
strMail=strMail & Request.form("correo")()
strmail=strmail & "<p>"
strmail=strmail & strmail & Request("mensaje")()

sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "DIRECCION IP"
.update
End With
Set myMail=CreateObject("CDO.Message")

Set mymail.Configuration = cdoConfig
myMail.Subject="Contacto desde mi pag web"
myMail.to="enviocorreo@dominio.com"
myMail.From = "envio@dominio.com"
myMail.HTMLBody=strmail

myMail.Send
Response.redirect "gracias.html"
set myMail=nothing
end if
%>


   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar