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

=