No encuentro el error

02/05/2006 - 17:57 por info.stoke | Informe spam

Hola:

Estoy haciendo un formulario en ASP para mandar una consulta desde una
web, pero no me llegan los datos al correo. He revisado, cambiado,
vuelta a revisar y no encuentro el error. Si alguien es tan amable de
averiguarlo, aquí les dejo el código. Por motivos de seguridad no
estan puestas las direcciones de correo ni el servidor smtp verdaderos.

//Esto es el código HTML:

form action="./cgi-bin/contacta.asp" method="post">
<table border="0" align="center">
<tr>
<td> <label> <font color="#000000" size="3" face="Times News
Roman"><strong>Empresa:</strong></font></label></td>
<td> <input type="text" name="empresa"></td>
</tr>
<tr>
<td><label><font color="#000000" size="3" face="Times News
Roman"><strong>Actividad:</strong></font></label></td>
<td><input type="text" name="actividad"></td>
</tr>
<tr>
<td><label><font color="#000000" size="3" face="Times News
Roman"><strong>Persona de contacto:</strong></font></label></td>
<td><input type="text" name="persona"></td>
</tr>
<tr>
<td><strong>
<label><font color="#000000" size="3" face="Times News
Roman">Población:</font></label>
</strong></td>
<td><input type="text" name="poblacion"></td>
</tr>
<tr>
<td><strong>
<label><font color="#000000" size="3" face="Times News
Roman">Correo Electrónico:</font></label>
</strong></td>
<td><input type="text" name=""></td>
</tr>

</table>
<br>
<center>
<textarea name="Texto_msg" cols="70" rows="6" style="font-family:
Arial; FONT-SIZE: 12px; COLOR: #000000; TEXT-ALIGN: justify;"><Escribe
aquà tu consulta></textarea>
</center>
<br>
<table border="0" align="center">
<tr>
<td width="62"><input name="Boton_Enviar" type="submit"
value="Enviar"></td>
<td width="102"><input name="Boton_Reset" type="reset"
value="Borrar Datos"></td>
</tr>
</table>
</form>

// Este es el código ASP:

<%@Language=VBScript%>
<html>
<head>
</head>

<body>
<%
empresa_var = request.form ("empresa")
actividad_var = request.Form("actividad")
persona_var = request.Form("persona")
mail_var = request.form("email")
poblacion_var = request.form("poblacion")
textomsg_var = request.form("Texto_msg")
boton_var= request.form("Boton_Enviar")

unction
enviar_mail(empresa,actividad,persona,email,poblacion,Texto_msg)
Dim iMsg
Set iMsg = CreateObject("CDO.Message") 'calls CDO message COM object
Dim iConf
Set iConf = CreateObject("CDO.Configuration") 'calls CDO configuration
COM object
Dim Flds
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/co...sing") = 1
'tells cdo we're using the local smtp service
Flds("http://schemas.microsoft.com/cdo/co...tory")
= "c:\inetpub\mailroot\pickup" 'verify that this path is correct
Flds("http://schemas.microsoft.com/cdo/co...rver")"smtp.miproveedor.com"
Flds("http://schemas.microsoft.com/cdo/co...port")25
Flds.Update 'updates CDO's configuration database

Set iMsg.Configuration = iConf
direc = "midireccion@miproveedor.com"
iMsg.To = direc
iMsg.From = persona
iMsg.Subject = "Consulta Web"
iMsg.TextBody = empresa & vbCrLf & actividad & vbCrLf & persona &
vbCrLf & email & vbCrLf & poblacion & vbCrLf & Texto_msg & vbCrLf
iMsg.TextBody = Replace(iMsg.TextBody,vbCrLf,"<BR>")
iMsg.Send

set iMsg=nothing
end function

=

Siga el debate

11 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 info.stoke

02/05/2006 - 18:07 | Informe spam

No. Es como si lo hiciera bien, pero luego no llega ningun correo a la
dirreccion que corresponde. No le encuentro el sentido.

Responder a este mensaje

#2 Dani Castillo

02/05/2006 - 18:13 | Informe spam

el codigo es "tal cual" lo has pegado? porque no haces la llamada a la
funcion en ningun caso :-S

por si acaso yo pondria "muchas instrucciones de traza"
algo asi como

response.write "estoy en la linea 10" ...
etc
para saber por donde pasa el codigo

____________________________
Daniel Castillo Martinez
Ajuntament d'Alaquàs. Societat de la Informació

____________________________
escribió en el mensaje
news:

No. Es como si lo hiciera bien, pero luego no llega ningun correo a la
dirreccion que corresponde. No le encuentro el sentido.

Responder a este mensaje

#3 Dani Castillo

02/05/2006 - 18:18 | Informe spam

... se me olvidaba , por si acaso haz tambien un "ver->codigo fuente" en la
pagina una vez enviado el mail, a veces el error queda "no visible" (porque
se imprime en el mismo color de fuente q tubieras o donde estubiera) y asi
si te vas a la ultima linea del codigo fuente podras verlo

____________________________
Daniel Castillo Martinez
Ajuntament d'Alaquàs. Societat de la Informació

____________________________
"Dani Castillo" <danicastilloarrobahotmail.com> escribió en el mensaje
news:

el codigo es "tal cual" lo has pegado? porque no haces la llamada a la
funcion en ningun caso :-S

por si acaso yo pondria "muchas instrucciones de traza"
algo asi como

response.write "estoy en la linea 10" ...
etc
para saber por donde pasa el codigo

____________________________
Daniel Castillo Martinez
Ajuntament d'Alaquàs. Societat de la Informació

____________________________
escribió en el mensaje
news:
> No. Es como si lo hiciera bien, pero luego no llega ningun correo a la
> dirreccion que corresponde. No le encuentro el sentido.
>

Responder a este mensaje

#4 info.stoke

02/05/2006 - 18:32 | Informe spam

La llamada a la funcion la haria después de la instrucción

boton_var= request.form("Boton_Enviar")

que sería esta:

enviar_mail empresa_var, actividad_var, persona_var, mail_var,
poblacion_var, textomsg_var

Se me olvidó ponerla en el post, pero si que la hago...

Responder a este mensaje

#5 info.stoke

02/05/2006 - 19:06 | Informe spam

No, ninguno. Es como si lo hiciera bien, pero luego no llega ningun
email a la direccion que corresponde.

Responder a este mensaje

Ads by Google