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

#6 info.stoke

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

Nada... las carpetas están vacias... :o(

Responder a este mensaje

#7 info.stoke

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

... es decir... existen las carpetas... pero no hay nada dentro...

Responder a este mensaje

#8 urko binarya

02/05/2006 - 20:09 | Informe spam

Aparte de mirar con trazas si entra a la funcion con response.write("paso
por aqui")
mira si el componente que utilizas te genera y te devuelve algun error al
hacer el send, igual no le asignas el servidor,

saludos
urko

"Matías Iacono" escribió en el mensaje
news:

Te genera algún error?

Matías Iacono
Microsoft MVP ASP/ASP.net
Microsoft Student Ambassador
Coordinador de evento Comunidad MSDN Bolivia
DCE2 v.2005
escribió en el mensaje
news:
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 = ""
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

=>

Responder a este mensaje

#9 Matías Iacono

02/05/2006 - 21:01 | Informe spam

Te genera algún error?

Matías Iacono
Microsoft MVP ASP/ASP.net
Microsoft Student Ambassador
Coordinador de evento Comunidad MSDN Bolivia
DCE2 v.2005
escribió en el mensaje
news:
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 = ""
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

=

Responder a este mensaje

#10 Matías Iacono

02/05/2006 - 22:21 | Informe spam

Fijate si en tu INETPUB, en la carpeta MAILROOT, dentro de esta tienes
carpetas como BADMAIL, QUEUED, etc.

Fijate si los mails no se depositan ahi.

Matías Iacono
Microsoft MVP ASP/ASP.net
Microsoft Student Ambassador
Coordinador de evento Comunidad MSDN Bolivia
DCE2 v.2005
escribió en el mensaje
news:

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

Hacer una preguntaSiguiente

Tengo una respuesta

1 2 3

Busqueda sugerida