Foros del Web » Programando para Internet » ASP Clásico »

Formulario que no anda :(

 Estas en el tema de Formulario que no anda :( en el foro de ASP Clásico en Foros del Web. Tengo un problemita, hize un formulario en asp mirando codigos y viendo si se podia hacer algo, cuestion que hay algo fallando y no se ...
Página 1 de 2 1 2

  #1 (permalink)  
Antiguo 18/05/2005, 17:35
Huev0nMast3r
Invitado
  
Mensajes: n/a
Puntos:
Formulario que no anda :(
Tengo un problemita, hize un formulario en asp mirando codigos y viendo si se podia hacer algo, cuestion que hay algo fallando y no se que es, si me pueden dar una mano uds los expertos, se los agradeceria muchisimo.

este es el codigo del formulario
Código: 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Kad Buster - Contacto de Compra</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#DAF1DC" leftmargin="0" topmargin="2" marginwidth="0" marginheight="0">
<table width="400" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#DAF1DC">
  <tr> 
    <td width="400" height="497"> 
      <div align="center"><img src="logokad.gif" alt="Kad Buster - Soluciones Inform&aacute;ticas" width="253" height="150"></div>
      <table width="400" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td>&nbsp;</td>
        </tr>
      </table> 
      <table width="400" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="490" height="271"> 
            <form name="datos" method="post" action="gracias.asp" target="_self">
              <table width="400" height="296" border="0" cellpadding="0" cellspacing="0">
                <tr> 
                  <td width="456"><div align="center"><strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">NOMBRE 
                      Y APELLIDO</font></strong></div></td>
                </tr>
                <tr> 
                  <td><div align="center"> <strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"> 
                      <input name="nombre" type="text" id="nombre">
                      </font></strong></div></td>
                </tr>
                <tr> 
                  <td><div align="center"><strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">DIRECCI&Oacute;N</font></strong></div></td>
                </tr>
                <tr> 
                  <td><div align="center"> <strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"> 
                      <input name="direccion" type="text" id="direccion">
                      </font></strong></div></td>
                </tr>
                <tr> 
                  <td height="13">
<div align="center"><strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">TEL&Eacute;FONO</font></strong></div></td>
                </tr>
                <tr> 
                  <td><div align="center"> <strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"> 
                      <input name="tel" type="text" id="tel">
                      </font></strong></div></td>
                </tr>
                <tr> 
                  <td><div align="center"><strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">E 
                      - MAIL</font></strong></div></td>
                </tr>
                <tr> 
                  <td><div align="center"> <strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"> 
                      <input name="mail" type="text" id="mail">
                      </font></strong></div></td>
                </tr>
                <tr> 
                  <td><div align="center"><strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">C&Oacute;DIGO 
                      DEL PRODUCTO</font></strong></div></td>
                </tr>
                <tr> 
                  <td><div align="center"> <strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"> 
                      <input name="codigo" type="text" id="codigo">
                      </font></strong></div></td>
                </tr>
                <tr> 
                  <td><div align="center"><strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">OTRAS 
                      INDICACIONES:</font></strong></div></td>
                </tr>
                <tr> 
                  <td><div align="center">
                      <textarea name="texto" id="texto"></textarea></b>
                      </div></td>
                </tr>
                <tr> 
                  <td><div align="center"> <br>
                      <input name="enviar" type="submit" value="Enviar">
                      <br>
                    </div></td>
                </tr>
              </table>
              <table width="400" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td><hr align="center" width="300"></td>
                </tr>
                <tr>
                  <td><div align="center"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Kad 
                      Buster - Soluciones Inform&aacute;ticas</font></div></td>
                </tr>
              </table>
            </form></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>
y este el llamado del formulario (el cual no se muestra al apretar enviar)

Código: 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
Dim strTo, strSubject, strBody
Dim objCDOMail

strTo = "[email protected]"
strSubject = "Contacto Compra Vía WEB"

strBody = "Nombre: " & Request.Form("nombre")
strBody = strBody & vbCrLf
strBody = strBody & "Dirección: " & Request.Form("direccion")
strBody = strBody & vbCrLf
strBody = strBody & "Teléfono: " & Request.Form("tel")
strBody = strBody & vbCrLf
strBody = strBody & "e-mail: "Request.Form("mail")
strBody = strBody & vbCrLf
strBody = strBody & "Código del Producto: "Request.Form("codigo")
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Otras Indicaciones: "Request.Form("texto")


Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
 objCDOMail.From = Request.Form("email")
 objCDOMail.To = "[email protected]"
 objCDOMail.Subject = strSubject
 objCDOMail.Body = strBody
 objCDOMail.Cc = "[email protected]"
 objCDOMail.Send
 Set objCDOMail = Nothing
%>
Su mensaje ha sido enviado. Gracias por contactarse con nosotros, re 
</body>
</html>
por favor compañeros, si alguien puede darme una mano se lo agradeceria muchisimo.

gracias de antemano
  #2 (permalink)  
Antiguo 18/05/2005, 17:55
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 21 años, 2 meses
Puntos: 18
Código: 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
Dim strTo, strSubject, strBody
Dim objCDOMail

strTo = "[email protected]"
strSubject = "Contacto Compra Vía WEB"

strBody = "Nombre: " & Request.Form("nombre")
strBody = strBody & vbCrLf
strBody = strBody & "Dirección: " & Request.Form("direccion")
strBody = strBody & vbCrLf
strBody = strBody & "Teléfono: " & Request.Form("tel")
strBody = strBody & vbCrLf
strBody = strBody & "e-mail: "Request.Form("mail")
strBody = strBody & vbCrLf
strBody = strBody & "Código del Producto: "Request.Form("codigo")
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Otras Indicaciones: "Request.Form("texto")

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = strSubject 
objMessage.Sender = request.form("email")
objMessage.To = "[email protected]"
objMessage.HTMLBody =strBody
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
'también puedes borrar la línea de SMTP si pones sendusing=1
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 objMessage.Configuration.Fields.Update

objMessage.Send
set objmessage=nothing
  #3 (permalink)  
Antiguo 18/05/2005, 18:24
Huev0nMast3r
Invitado
  
Mensajes: n/a
Puntos:
gracias por la ayuda, pero disculpa mi ignorancia. He cambiado el codigo del archivo "gracias.asp" por el que escribiste vos y sigue sin andarme, cuando pongo "enviar" en el formulario me tira error de pagina.

sinceramente noi se nada de asp, lo que hize fue ver un codigo ya echo y tratar de modificarlo.
si puedes explicarmelo de una forma sencilla estare muy agradecido

gracias por tu respuesta
  #4 (permalink)  
Antiguo 18/05/2005, 19:13
Avatar de u_goldman
Moderador
  
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 10 meses
Puntos: 98
No por nada el nick eh?
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #5 (permalink)  
Antiguo 18/05/2005, 19:27
Huev0nMast3r
Invitado
  
Mensajes: n/a
Puntos:
Cita:
Iniciado por u_goldman
No por nada el nick eh?
mi nick biene de.. "web - Huev0n (que en "nuestro castellano" significa "boludo) y master.. bueno, esta mas que dicho xD

ahora sin desvirtuar, por favor amigos, una ayuda que esto lo nesesito sinceramente

un saludo muchachos
  #6 (permalink)  
Antiguo 18/05/2005, 22:29
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 21 años, 2 meses
Puntos: 18
pon aqui el error que te da (ni se te ocurra poner que es el error 500, prueba la página con firefox).

la explicación es bien sencilla:

con las primeras líneas armas el cuerpo del e-mail que vas a mandar y, a partir de la línea
Set objMessage = CreateObject("CDO.Message")
creas el mail a mandar, sus características y lo mandas. si quieres saber algo más sobre cdosys, en mi firma tienes un link interesante. si no sabes inglés, busca en google o en este mismo foro.
  #7 (permalink)  
Antiguo 19/05/2005, 06:08
Huev0nMast3r
Invitado
  
Mensajes: n/a
Puntos:
con firefox me da lo siguiente;

*****
Microsoft VBScript compilation error '800a0400'

Expected statement

/mail/gracias.asp, line 9

<%
^
*****
Cita:
pon aqui el error que te da (ni se te ocurra poner que es el error 500, prueba la página con firefox).
me da ese error con el internet explorer :verguenza:, no se ni que error es.

gracias por sus respuestas
  #8 (permalink)  
Antiguo 19/05/2005, 13:52
Huev0nMast3r
Invitado
  
Mensajes: n/a
Puntos:
el error esta en "objMessage.Send", no se que es lo que esta mal...

les muestro el codigo

Código: 
<%
Dim strTo, strSubject, strBody
Dim objCDOMail

strTo = "[email protected]"
strSubject = "Contacto Compra Vía WEB"

strBody = "Nombre: " & Request.Form("nombre")
strBody = strBody & vbCrLf
strBody = strBody & "Dirección: " & Request.Form("direccion")
strBody = strBody & vbCrLf
strBody = strBody & "Teléfono: " & Request.Form("tel")
strBody = strBody & vbCrLf
strBody = strBody & "e-mail: " & Request.Form("mail")
strBody = strBody & vbCrLf
strBody = strBody & "Código del Producto: " & Request.Form("codigo")
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Otras Indicaciones: " & Request.Form("texto")

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = strSubject 
objMessage.Sender = request.form("email")
objMessage.To = "[email protected]"
objMessage.HTMLBody =strBody
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
'también puedes borrar la línea de SMTP si pones sendusing=1
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 objMessage.Configuration.Fields.Update

objMessage.Send
set objmessage=nothing
%>
Última edición por Huev0nMast3r; 19/05/2005 a las 14:04
  #9 (permalink)  
Antiguo 19/05/2005, 14:00
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 21 años, 2 meses
Puntos: 18
te falta la etiqueta de cierre
%>
  #10 (permalink)  
Antiguo 19/05/2005, 14:07
Huev0nMast3r
Invitado
  
Mensajes: n/a
Puntos:
Cita:
Iniciado por trasgukabi
te falta la etiqueta de cierre
%>
parece que postiamos al mismo tiempo jaja

fui corrijiendo los errores que iva tirando, pero en el post que puse mas arriva, que es lo que esta mal?

gracias por tu ayuda
  #11 (permalink)  
Antiguo 19/05/2005, 14:16
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 21 años, 2 meses
Puntos: 18
pero de que da el error, de transporte? de sintaxis?

te puede dar error porque no aceptes relay en el servidor smtp(pones como remitente al usuario), por que el servidor esté parado, o no esté instalado...vete a saber
  #12 (permalink)  
Antiguo 19/05/2005, 14:17
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 21 años, 2 meses
Puntos: 18
pon estas lineas asi, por probar...

Código: 
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
'objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
  #13 (permalink)  
Antiguo 19/05/2005, 14:25
Huev0nMast3r
Invitado
  
Mensajes: n/a
Puntos:
acabo de probar con el codigo que me acabas de citar, sigue sn funcionarme

este es el error

Cita:
CDO.Message.1 error '8004020d'

At least one of the From or Sender fields is required, and neither was found.

/mail/gracias.asp, line 40
gracias
  #14 (permalink)  
Antiguo 19/05/2005, 14:34
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 21 años, 2 meses
Puntos: 18
descomenta la línea de SMTP a ver qué pasa, aunque no debería fallar.
  #15 (permalink)  
Antiguo 19/05/2005, 14:43
Huev0nMast3r
Invitado
  
Mensajes: n/a
Puntos:
tampoco funciona, borre esa linea, pero sigue tirandome el mismo error...
dice que esta en la linea 39 ahora... ahi esta escrito el "objMessage.Send"
quiza este siguiendo mal tus pasos, es que mucho no entiendo del tema...

gracias por tu ayuda y disculpas por mi ignorancia :vergüenza:
  #16 (permalink)  
Antiguo 19/05/2005, 15:01
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 21 años, 2 meses
Puntos: 18
no no, que la borres no, que la descomentes, que le quites la comilla simple(') del principio
  #17 (permalink)  
Antiguo 19/05/2005, 15:09
Huev0nMast3r
Invitado
  
Mensajes: n/a
Puntos:
No entiendo lo que me dices que haga .
Te muestro el codigo aver si me puedes guiar un poquito mejor, si no es molestia.

Código: 
<%
Dim strTo, strSubject, strBody
Dim objCDOMail

strTo = "[email protected]"
strSubject = "Contacto Compra Vía WEB"

strBody = "Nombre: " & Request.Form("nombre")
strBody = strBody & vbCrLf
strBody = strBody & "Dirección: " & Request.Form("direccion")
strBody = strBody & vbCrLf
strBody = strBody & "Teléfono: " & Request.Form("tel")
strBody = strBody & vbCrLf
strBody = strBody & "e-mail: " & Request.Form("mail")
strBody = strBody & vbCrLf
strBody = strBody & "Código del Producto: " & Request.Form("codigo")
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Otras Indicaciones: " & Request.Form("texto")

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = strSubject 
objMessage.Sender = request.form("email")
objMessage.To = "[email protected]"
objMessage.HTMLBody =strBody
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
'también puedes borrar la línea de SMTP si pones sendusing=1
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 objMessage.Configuration.Fields.Update

objMessage.Send
set objmessage=nothing
%>
gracias por tu insistencia
  #18 (permalink)  
Antiguo 19/05/2005, 15:17
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 21 años, 2 meses
Puntos: 18
Así debería funcionar si tu servidor SMTP permite relay:
Código: 
<%
Dim strTo, strSubject, strBody
Dim objCDOMail

strTo = "[email protected]"
strSubject = "Contacto Compra Vía WEB"

strBody = "Nombre: " & Request.Form("nombre")
strBody = strBody & vbCrLf
strBody = strBody & "Dirección: " & Request.Form("direccion")
strBody = strBody & vbCrLf
strBody = strBody & "Teléfono: " & Request.Form("tel")
strBody = strBody & vbCrLf
strBody = strBody & "e-mail: " & Request.Form("mail")
strBody = strBody & vbCrLf
strBody = strBody & "Código del Producto: " & Request.Form("codigo")
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Otras Indicaciones: " & Request.Form("texto")

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = strSubject 
objMessage.Sender = request.form("email")
objMessage.To = "[email protected]"
objMessage.HTMLBody =strBody
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 objMessage.Configuration.Fields.Update

objMessage.Send
set objmessage=nothing
%>
si no te permite relay, prueba a poner en llinea del .sender un correo cualquiera con el dominio que tengas activo en el servidor SMTP. osea, que si el dominio es dominio.com, pongas
objMessage.Sender = "[email protected]"

y la direccion del usuario la metes en el cuerpo del mensaje, como la tienes

o puedes ponerlo mas cómodo para tí poniendo al final del mensaje un
<a href="mailto:<%=Request.Form("mail")">Responder el mensaje</a>
  #19 (permalink)  
Antiguo 19/05/2005, 15:31
Huev0nMast3r
Invitado
  
Mensajes: n/a
Puntos:
Acabo de hacer lo que me dijiste, y sigue sin andarmee

mira, el codigo quedo asi.. lo hize bien?

Código: 
<%
Dim strTo, strSubject, strBody
Dim objCDOMail

strTo = "[email protected]"
strSubject = "Contacto Compra Vía WEB"

strBody = "Nombre: " & Request.Form("nombre")
strBody = strBody & vbCrLf
strBody = strBody & "Dirección: " & Request.Form("direccion")
strBody = strBody & vbCrLf
strBody = strBody & "Teléfono: " & Request.Form("tel")
strBody = strBody & vbCrLf
strBody = strBody & "e-mail: " & Request.Form("mail")
strBody = strBody & vbCrLf
strBody = strBody & "Código del Producto: " & Request.Form("codigo")
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Otras Indicaciones: " & Request.Form("texto")

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = strSubject 
objMessage.Sender = "[email protected]"
objMessage.To = "[email protected]"
objMessage.HTMLBody =strBody
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 objMessage.Configuration.Fields.Update

objMessage.Send
set objmessage=nothing
%>
Gracias por haberme ayudado DEMACIADO, sinceramente te lo agradezco.

Ahora mismo me tengo que ir y vuelvo en 4 horas y seguire intentando y si no funciona, buscare otro metodo para hacer un formulario...

gracias nuevamente, vuelvfo en 4 horitas
  #20 (permalink)  
Antiguo 19/05/2005, 21:43
Huev0nMast3r
Invitado
  
Mensajes: n/a
Puntos:
estoy aqui de nuevo, e intentado y no se que hacerrr, es taaaan complicado un formulario?? que injusto :(

ayuda porfaa

gracias
  #21 (permalink)  
Antiguo 20/05/2005, 07:22
Avatar de Myakire
Colaborador
  
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 9 meses
Puntos: 146
jejeje, aaaahhhh, U_G, tu lo dijiste en el 4o post. Ya es el 20 y sigue siendo válido tu comentario.
  #22 (permalink)  
Antiguo 20/05/2005, 09:05
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 21 años, 2 meses
Puntos: 18
Existe smtp.ipse-saludmental.com.ar ?



has probado las dos opciones que te di (con relay/sin relay)?
lo siento pero me he quedado seco.
te remito al enlace a cdosys de mi firma.

suerte

PD: AH! y los privados son para consultas fuera de la temática del foro. cualquier cruce de información sobre asp debe ser tratada aquí para que las posibles soluciones le puedan servir a alguien que venga más tarde (si a la gente le da de una put.a vez por usar el buscador). creo. digo yo. y yo que sé.
Última edición por trasgukabi; 20/05/2005 a las 09:10
  #23 (permalink)  
Antiguo 20/05/2005, 09:14
Huev0nMast3r
Invitado
  
Mensajes: n/a
Puntos:
MIra, yo tengo este codigo que anda PERFECTO, el formulario me llega al mail, anda todo bien.
Código: 
Dim strTo, strSubject, strBody
Dim objCDOMail

strTo = "[email protected]"
strSubject = "Contacto IPSE Salud Mental"

strBody = "Nombre: " & Request.Form("nombre")
strBody = strBody & vbCrLf
strBody = strBody & "Email: " & Request.Form("email")
strBody = strBody & vbCrLf
strBody = strBody & "Teléfono: " & Request.Form("tel")
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & Request.Form("mensaje")


Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
 objCDOMail.From = Request.Form("email")
 objCDOMail.To = "[email protected]"
 objCDOMail.Subject = strSubject
 objCDOMail.Body = strBody
 objCDOMail.Send
 Set objCDOMail = Nothing
Ahora, lo que yo quiero hize es añadir mas cosas, es decir, agregar "direccion", "codigo del producto", etc. como veras en este codigo (que es el que no anda)

Código: 
Dim strTo, strSubject, strBody
Dim objCDOMail

strTo = "[email protected]"
strSubject = "Contacto Compra Vía WEB"

strBody = "Nombre: " & Request.Form("nombre")
strBody = strBody & vbCrLf
strBody = strBody & "Dirección: " & Request.Form("direccion")
strBody = strBody & vbCrLf
strBody = strBody & "Teléfono: " & Request.Form("tel")
strBody = strBody & vbCrLf
strBody = strBody & "e-mail: " & Request.Form("mail")
strBody = strBody & vbCrLf
strBody = strBody & "Código del Producto: " & Request.Form("codigo")
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Otras Indicaciones: " & Request.Form("texto")

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = strSubject 
objMessage.Sender = "[email protected]"
objMessage.To = "[email protected]"
objMessage.HTMLBody =strBody
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 objMessage.Configuration.Fields.Update

objMessage.Send
set objmessage=nothing
No se que es lo que pasa!! lo unico que hize fue agregar campos mas para el formulario...
Los codigos son iguales, a ecepcion que agregue mas campos, se entiende?

Por que el primero anda PERFECTO y el segundo no?

Muchas gracias!!!
  #24 (permalink)  
Antiguo 20/05/2005, 09:21
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 21 años, 2 meses
Puntos: 18
mekaguen hasta en la leche puta!!!!!! y porqué no dijiste desde el principio que te mandaba el mail???!!!! sólo decías que te fallaba!!!!

haz un
response.write strbody
response.end
antes de set objMessage......

y pon aqui lo que te da
  #25 (permalink)  
Antiguo 20/05/2005, 09:36
Huev0nMast3r
Invitado
  
Mensajes: n/a
Puntos:
puse enviar y no dio ningun error, solo aparecio esto:

Nombre: sadsa Dirección: ssdasda Teléfono: sdadsadsa e-mail: sdadsadsa Código del Producto: asddas Otras Indicaciones: adsasadsa

significa que anda?

ahora veo si me llego el mail :D
  #26 (permalink)  
Antiguo 20/05/2005, 09:39
Huev0nMast3r
Invitado
  
Mensajes: n/a
Puntos:
no me llego nada :(

pero por lo menos no aparecio ningun error en la pagina "gracias.asp"

solo aparecio:

Nombre: sadsa Dirección: ssdasda Teléfono: sdadsadsa e-mail: sdadsadsa Código del Producto: asddas Otras Indicaciones: adsasadsa



gracias
  #27 (permalink)  
Antiguo 20/05/2005, 09:52
Avatar de u_goldman
Moderador
  
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 10 meses
Puntos: 98
Cita:
Iniciado por Myakire
jejeje, aaaahhhh, U_G, tu lo dijiste en el 4o post. Ya es el 20 y sigue siendo válido tu comentario.
Amén y salud, nunca había dicho estas dos palabras juntas
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #28 (permalink)  
Antiguo 20/05/2005, 09:57
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 21 años, 2 meses
Puntos: 18
strBody = "Nombre: " & Request.Form("nombre")
strBody = strBody & "<br>"
strBody = strBody & "Dirección: " & Request.Form("direccion")
strBody = strBody & "<br>"
strBody = strBody & "Teléfono: " & Request.Form("tel")
strBody = strBody & "<br>"
strBody = strBody & "e-mail: " & Request.Form("mail")
strBody = strBody & "<br>"
strBody = strBody & "Código del Producto: " & Request.Form("codigo")
strBody = strBody & "<br><br>"
strBody = strBody & "Otras Indicaciones: " & Request.Form("texto")


y ya no escribo más
  #29 (permalink)  
Antiguo 21/05/2005, 07:22
Huev0nMast3r
Invitado
  
Mensajes: n/a
Puntos:
Bueno, ya no se como hacer para que ande... el codigo procesa bien los datos. Pero en ves de mandarmelos al mail, los muestra en la pagina...

Mirenlo por sus propios ojos

http://www.ipse-saludmental.com.ar/m...ntacto_kad.asp

el codigo que quedo es este:
Código: 
<%
Dim strTo, strSubject, strBody
Dim objCDOMail

strTo = "[email protected]"
strSubject = "Contacto Compra Vía WEB"

strBody = "Nombre: " & Request.Form("nombre")
strBody = strBody & "<br>"
strBody = strBody & "Dirección: " & Request.Form("direccion")
strBody = strBody & "<br>"
strBody = strBody & "Teléfono: " & Request.Form("tel")
strBody = strBody & "<br>"
strBody = strBody & "e-mail: " & Request.Form("mail")
strBody = strBody & "<br>"
strBody = strBody & "Código del Producto: " & Request.Form("codigo")
strBody = strBody & "<br><br>"
strBody = strBody & "Otras Indicaciones: " & Request.Form("texto")

response.write strbody 
response.end

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = strSubject 
objMessage.Sender = "[email protected]"
objMessage.To = "[email protected]"
objMessage.HTMLBody =strBody
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 objMessage.Configuration.Fields.Update

objMessage.Send
set objmessage=nothing
%>
PD.: trasgukabi, ya debeser un castigo para vos.. me ayudaste un monton. Solo te lo pido por ultima vez. Gracias.
  #30 (permalink)  
Antiguo 21/05/2005, 12:07
Avatar de AlZuwaga
Colaborador
  
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 8 meses
Puntos: 535
A ver.. una pequeña introducción y luego una adivinanza:

El response.End lo que hace es FINALIZAR la ejecusión del script justamente en ese punto (todo lo que esté por debajo no va a ejecutarse)

Vista la intro anterior... ¿qué debés hacer ahora con el response.end?

;)
__________________
...___...
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Tema Cerrado


« Tema Anterior | Próximo Tema »


La zona horaria es GMT -6. Ahora son las 01:25.