Tengo una página que una de las opciones tiene que enviar un formulario, pero no me esta funcionando, los códigos son los siguientes:
Reservas.asp
</td>
<td width="79%" height="442" valign="top">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber2" width="683" height="435">
<tr>
<td width="683" height="435">
<!--webbot bot="PurpleText" preview="Formulario de comentarios: personalice el formulario siguiente para obtener la información que necesita. Los datos del formulario se guardan de forma predeterminada en un archivo de texto en el servidor Web mediante el componente de FrontPage Guardar resultados. Modifique las Propiedades del formulario para cambiar su comportamiento." -->
<p>Por favor, rellene el formario para solicitar la reserva.</p>
<form method="POST" action="Reservas_enviar.asp">
<p><strong>¿Qué clase de servício quiere reservar?</strong></p>
<dl>
<dd><input type="radio" name="Tipo mensaje" value="Comida de Empresa">Comida de Empresa
<input type="radio" name="Tipo mensaje" value="Comida Familiar">Comida Familiar
<input type="radio" checked name="Tipo mensaje" value="Boda">Boda
<input type="radio" name="Tipo mensaje" value="Comunion">Comunión
<input type="radio" name="Tipo mensaje" value="Grupo">Grupo</dd>
</dl>
<p><strong>Díganos cómo ponernos en contacto con usted:</strong></p>
<dl>
<dd><table>
<tr>
<td colspan="4" align="center"><font size="+2"><b>Datos</b></font></td>
</tr>
<tr>
<td align="right"><b>Nombre y Apellidos:</b></td>
<td colspan="3"><input type="Text" name="NOMBRE" size="40" maxlength="60"></td>
</tr>
<tr>
<td align="right"><b>Empresa:</b></td>
<td colspan="3"><input type="Text" name="EMPRESA" size="40" maxlength="60"></td>
</tr>
<tr>
<td align="right"><b>Dirección:</b></td>
<td colspan="3"><input type="Text" name="DIRECCION" size="40" maxlength="60"></td>
</tr>
<tr>
<td align="right"><b>Teléfono:</b></td>
<td><input type="Text" name="TELEFONO" size="15" maxlength="20"></td>
<td align="right"><b>Fax:</b></td>
<td align="right"><input type="Text" name="FAX" size="15" maxlength="20"></td>
</tr>
<tr>
<td align="right"><b>E-mail:</b></td>
<td colspan="3"><input type="Text" name="EMAIL" size="40" maxlength="60"></td>
</tr>
</table></dd>
</dl>
<p><strong>Tipo de servício </strong></p>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3">
<tr>
<td colspan="2" align="center"><font size="+2"><b>Servicio</b></font></td>
</tr>
<tr>
<td align="right"><b>Servicio solicitado:</b></td>
<td><input type="Checkbox" name="SERVICIO" value="ALMUERZO">Almuerzo <input type="Checkbox" name="SERVICIO" value="CENA">Cena <input type="Checkbox" name="SERVICIO" value="LUNCH">Lunch</td>
</tr>
<tr>
<td align="right" valign="top"><b>Carácter:</b></td>
<td><input type="Radio" name="CARACTER" value="EMPRESA">Comida de empresa <br>
<input type="Radio" name="CARACTER" value="FAMILIAR">Comida familiar <br>
<font face="Times New Roman">
<input type="Radio" name="CARACTER" value="BODA" checked></font><font face="Garamond">Boda</font><font face="Times New Roman"><br>
<input type="Radio" name="CARACTER" value="COMUNION"></font><font face="Garamond">Comunión</font><font face="Times New Roman"><br>
<input type="Radio" name="CARACTER" value="GRUPO"></font><font face="Garamond">Grupo</font></td>
</tr>
<tr>
<td align="right"><b>Fecha:</b></td>
<td>
<select name="DIA">
<option value="DIA">DIA
<option value="1">1
<option value="2">2
<option value="3">3
<option value="4">4
<option value="5">5
<option value="6">6
<option value="7">7
<option value="8">8
<option value="9">9
<option value="10">10
<option value="11">11
<option value="12">12
<option value="13">13
<option value="14">14
<option value="15">15
<option value="16">16
<option value="17">17
<option value="18">18
<option value="19">19
<option value="20">20
<option value="21">21
<option value="22">22
<option value="23">23
<option value="24">24
<option value="25">25
<option value="26">26
<option value="27">27
<option value="28">28
<option value="29">29
<option value="30">30
<option value="31">31
</select>
<select name="MES">
<option value="MES">MES
<option value="ENERO">Enero
<option value="FEBRERO">Febrero
<option value="MARZO">Marzo
<option value="ABRIL">Abril
<option value="MAYO">Mayo
<option value="JUNIO">Junio
<option value="JULIO">Julio
<option value="AGOSTO">Agosto
<option value="SEPTIEMBRE">Septiembre
<option value="OCTUBRE">Octubre
<option value="NOVIEMBRE">Noviembre
<option value="DICIEMBRE">Diciembre
</select> </td>
</tr>
<tr>
<td align="right"><b>N<sup>o</sup> de comensales:</b></td>
<td><input type="Text" name="COMENSALES" size="3" maxlength="3"> Apróx.</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</center>
</div>
<p><strong><br>Escriba sus comentarios en el espacio siguiente:</strong></p>
<dl>
<dd><textarea name="Comentarios" rows="5" cols="42"></textarea></dd>
<dd>
<input type="checkbox" name="Solicitado contacto" value="ContactoSolicitado">
Por favor, pónganse en contacto conmigo tan pronto como sea posible en
referencia a esta materia.</dd>
</dl>
<p><input type="submit" value="Enviar comentarios">
<input type="reset" value="Borrar formulario"></p>
</form>
<p> </td>
</tr>
</table>
</center>
</div>
</td>
</tr>
Reservas_enviar.asp
<%
if request.form="" then
'no recibo formulario, entonces lo muestro
response.write "No recibo nada"
else
'si que recibo un formulario, entonces lo trato
'recojo los datos
nombre = request.form("nombre")
empresa = request.form("empresa")
direccion = request.form("direccion")
telefono = request.form("telefono")
email = request.form("email")
caracter = request.form("caracter")
dia = request.form("dia")
mes = request.form("mes")
comensales = request.form("comensales")
comentarios = request.form("comentarios")
'compongo el cuerpo del mensaje
cuerpo = "Formulario recibido" & VBNEWLINE & VBNEWLINE
cuerpo = cuerpo & "Nombre: " & nombre & VBNEWLINE
cuerpo = cuerpo & "Empresa: " & empresa & VBNEWLINE
cuerpo = cuerpo & "Direccion: " & direccion & VBNEWLINE
cuerpo = cuerpo & "Telefono: " & telefono & VBNEWLINE
cuerpo = cuerpo & "Email: " & email & VBNEWLINE
cuerpo = cuerpo & "Tipo de evento: " & caracter & VBNEWLINE
cuerpo = cuerpo & "Fecha: " & dia & "/" & mes & VBNEWLINE
cuerpo = cuerpo & "Comensales: " & comensales & VBNEWLINE
cuerpo = cuerpo & "Observaciones: " & comentarios & VBNEWLINE
'mando el correo.....................
response.write "Gracias por rellenar el formulario. Se ha enviado correctamente."
'---------------------------------------------------------------
<p>
<SPAN class=codigo>'creo el objeto correo
set mail = server.createObject("Persits.MailSender")
'configuro el mensaje
'señalo el servidor de salida para enviar el correo
mail.host = "mail.ran.es"
'indico la dirección de correo del remitente
mail.from = request.form(email)
'indico la dirección del destinatario del mensaje
mail.addAddress "
[email protected]"
'indico el cuerpo del mensaje
mail.body = cuerpo
'lo envio
'aseguro que no se presenten errores en la página si se producen
On Error Resume Next
mail.send
if Err ><0 then
response.write "Error, no se ha podido completar la operación"
else
response.write "Gracias por rellenar el formulario. Se ha enviado correctamente."
response.redirect "reservas.asp"
end if
end if
</SPAN>
</p>
%>
A ver si alguien puede ayudarme