Llamada desde un html a un asp

AMSavio · #1 (**permalink**) 06/07/2011, 11:19

hola
Soy nueva en el foro y estoy desesperada con este tema
supongo que es una estupidez para ustedes pero a mi me resolveria este tema de manera increible
les pido ayuda por favor es urgente
nose como enseñarles las variables quetengo de html y el asp quemedio el proveedor
puedo adjuntar archivos?

ana
aca pongo los codigos html
<html>
<head>
<title>CONTACTO</title>
</head>
<body bgcolor="#F8ACC3">
<form name="Request" method="post" action="EnviaMail.asp" onsubmit="return(this)" action= "gracias.asp">
Nombre 

<input type="text" name="nombre" size="30">
E-mail 

 <input type="text" name="email" size="30">
Mensaje 

 <textarea rows="8" name="mensaje" cols="40"></textarea>

<input type="submit" value="Enviar" name="submit" style="font-family: Times New Roman; color: #FF00FF; font-weight: bold; border: 1px solid #FF00FF">

<input type="reset" value="Borrar" name="reset" style="font-family: Times New Roman; color: #FF00FF; font-weight: bold; border: 1px solid #FF00FF">
</form>

AMSavio · #2 (**permalink**) 06/07/2011, 11:25

y estos son las variables que me autoriza el proveedor para el asp
'Creamos una instancia del objeto ASPMAIL
Set Mail = Server.CreateObject("Persits.MailSender")

' Creamos el cuerpo del mensaje
strBody = strBody & ""
strBody = strBody & "Nombre: "
strBody = strBody & Nombre & " "
strBody = strBody & "Ciudad: "
strBody = strBody & Ciudad & " "
strBody = strBody & "Provincia: "
strBody = strBody & Provincia & " "
strBody = strBody & "Email: "
strBody = strBody & Correo & " "
strBody = strBody & "Comentario: "
strBody = strBody & Consulta & chr(10)
strBody = strBody & ""

'Asignamos las propiedades al objeto con ASPMAIL
Mail.Host = servidor
Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto.
'Mail.From = "[email protected]"
Mail.FromName = Nombre ' Opcional
Mail.Subject = titulo
Mail.Body = strBody
Mail.IsHTML = True
Mail.AddAddress Destino
On Error Resume Next

Mail.Send

' El control del error es con ASPMAIL

If Err <> 0 Then
Response.Write "popup.mensaje=Error, envíelo mas tarde " '& Err.Description
Else
Response.Redirect "gracias.asp"
End If

'Destruimos el objeto con aspmail

Set Mail = Nothing

%>

AMSavio · #3 (**permalink**) 06/07/2011, 11:26

el tema es que no funciona
lee el asp porque aparece el mesaje de erro que esta escrito en el asp
pero los mensajes no llegan
alguna ayuda por favor
es urgente .....necesito encontrar la variable que funcione =(

verinchi · #4 (**permalink**) 06/07/2011, 11:53

Pregunta. ¿Cuál es ese mensaje de error que mencionas?

Porque tiene un texto fijo y un mensaje con la descripción técnica del error, sería bueno que nos lo informes a ver dónde está pinchando

AMSavio · #5 (**permalink**) 06/07/2011, 12:32

Found INF = C:\dell\drivers\R153830\HDMI\IntcHdmi.inf
[Parse INFs]
{INF Info}
Current INF = C:\dell\drivers\R153830\Graphics\igxp32.inf
Date = 03/30/2007
Version = 6.14.10.4814
ClassGUID = {4D36E968-E325-11CE-BFC1-08002BE10318}

AMSavio · #6 (**permalink**) 06/07/2011, 12:33

Cita:

Iniciado por AMSavio

hola
Soy nueva en el foro y estoy desesperada con este tema
supongo que es una estupidez para ustedes pero a mi me resolveria este tema de manera increible
les pido ayuda por favor es urgente
nose como enseñarles las variables quetengo de html y el asp quemedio el proveedor
puedo adjuntar archivos?

ana
aca pongo los codigos html
<html>
<head>
<title>CONTACTO</title>
</head>
<body bgcolor="#F8ACC3">
<form name="Request" method="post" action="EnviaMail.asp" onsubmit="return(this)" action= "gracias.asp">
Nombre 

<input type="text" name="nombre" size="30">
E-mail 

 <input type="text" name="email" size="30">
Mensaje 

 <textarea rows="8" name="mensaje" cols="40"></textarea>

<input type="submit" value="Enviar" name="submit" style="font-family: Times New Roman; color: #FF00FF; font-weight: bold; border: 1px solid #FF00FF">

<input type="reset" value="Borrar" name="reset" style="font-family: Times New Roman; color: #FF00FF; font-weight: bold; border: 1px solid #FF00FF">
</form>

verinchi · #7 (**permalink**) 06/07/2011, 12:34

Cita:

Iniciado por AMSavio

Found INF = C:\dell\drivers\R153830\HDMI\IntcHdmi.inf
[Parse INFs]
{INF Info}
Current INF = C:\dell\drivers\R153830\Graphics\igxp32.inf
Date = 03/30/2007
Version = 6.14.10.4814
ClassGUID = {4D36E968-E325-11CE-BFC1-08002BE10318}

Perdón por mi asombro pero... ese es el error que ves en pantalla???

AMSavio · #8 (**permalink**) 06/07/2011, 12:38

no
esefue mi error recien ...sorry

AMSavio · #9 (**permalink**) 06/07/2011, 12:42

popup.mensaje=Error, envíelo mas tarde "
eseeselerror que apaece ....o sea que lo lee

AMSavio · #10 (**permalink**) 06/07/2011, 12:44

el asp lo esta leyendo porque aparece la linea en caso de error...

popup.mensaje=Error, envíelo mas tarde "

lo que no se es porque no envialos mensajes

AMSavio · #11 (**permalink**) 06/07/2011, 12:47

popup.mensaje=Error, envíelo mas tarde "

eso aparece despuesde poner "enviar"

AMSavio · #12 (**permalink**) 06/07/2011, 12:59

necesito saber que linea debo mocificar para que lleguen los mensajes

AMSavio · #13 (**permalink**) 06/07/2011, 13:00

que mal me siento ..me llaman para pedir el formu y yo nos e que hacer

verinchi · #14 (**permalink**) 06/07/2011, 13:02

Deben faltarte algunas cosas en la instalación.

No usé ASP Mail pero... por lo que veo... algo en javascript está faltando porque no debería escribir ese mensaje

la línea dice: Response.Write="popup.mensaje=Error, envíelo mas tarde " '& Err.Description

Lo que indica que debería abrir un pop up y escribir "Error, envíelo más tarde" y la descripción del error que se produce técnicamente.

Otra cosa, veo que en la verificación del error estás comparando:
If Err <> 0 Then

Pero... no veo donde asignas y cambias el valor de Err, dependiendo del exito o fracaso del envío.

Generalmente, eso suele hacerse colocando Err=Mail.Send pero no estoy segura, generalmente los mails no los manejo con asp.

Te sugiero que verifiques bien (NO VAYAS A POSTEAR LOS DATOS VERDADEROS!) estos datos.

'Asignamos las propiedades al objeto con ASPMAIL
Mail.Host = servidor
Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto.
'Mail.From = "[email protected]"
Mail.FromName = Nombre ' Opcional
Mail.Subject = titulo
Mail.Body = strBody
Mail.IsHTML = True
Mail.AddAddress Destino
On Error Resume Next

Por si acaso no corresponde el puerto de salida, si está en otro que no es el de defecto, o bien el usuario y password... aún así, como no seteas la variable Err en 0 al inicio, y no cambias su valor en el transcurso del programa, está dando verdadera la validación porque, al no asignar valro Err es nulo.

Te recomiendo que lo inicialices en Cero al comenzar el código, y reveas los procesos para cambiarle el valor en caso de error.

Ese código te lo pasó el proveedor de hosting??? de dónde salió?

AMSavio · #15 (**permalink**) 06/07/2011, 14:51

son ejemlos ...no originales
de todasmaneras graciaslo voy a intentar

Joch_pa · #16 (**permalink**) 07/07/2011, 00:57

pues se necesita saber el error que te genera, edita esto:

Código ASP:

Ver originalIf Err <> 0 Then
Response.Write "popup.mensaje=Error, envíelo mas tarde " '& Err.Description
Else
Response.Redirect "gracias.asp"
End If

por esto

Código ASP:

Ver originalIf Err <> 0 Then
       response.write "Error numero : " & err.number & "<br>"
       response.write "Descripcion : " & err.description & "<br>"
       'Response.Write "popup.mensaje=Error, envíelo mas tarde " '& Err.Description
Else
       Response.Redirect "gracias.asp"
End If

con eso te dira cual fue el error y su descripcion.

postealo para ayudarnos.

y tambien puedes verificar el error que te da en la pagina (bueno si es un error 800 algo)
http://tutorials.aspfaq.com/8000xxxxx-errors.html