este es el codigo de la pagina asp
Código:
y este es el formulario<% dim Servidor dim Incorrecto dim Correcto dim Objeto dim strHTML dim Destino dim Asunto strHTML = "<font size='2' face='Verdana'>" strHTML = strHTML & "Esta consulta ha sido enviada desde la sección <strong>Consultas<strong><p>" strHTML = strHTML & "Nombre: <b>" & Request.QueryString("nombre") & "</b><br>" strHTML = strHTML & "Apellidos: <b>" & Request.QueryString("apellidos") & "</b><br>" strHTML = strHTML & "Correo Electronico: <b>" & Request.QueryString("correo") & "</b><br>" strHTML = strHTML & "Dirección: <b>" & Request.QueryString("direccion") & "</b><br>" strHTML = strHTML & "Localidad: <b>" & Request.QueryString("localidad") & "</b><br>" strHTML = strHTML & "Provincia: <b>" & Request.QueryString("provincia") & "</b><br>" strHTML = strHTML & "Codigo Postal: <b>" & Request.QueryString("cp") & "</b><br>" strHTML = strHTML & "Consulta: <b>" & Request.QueryString("consulta") & "</b><br></font>" Servidor = "correo.misitio.es" Destino = "[email protected]" Asunto = "Mi texto de asunto" If Request("envio") <> "" Then Set Objeto = Server.CreateObject("Persits.MailSender") Objeto.Host = Servidor Objeto.From = Request.QueryString("correo") Objeto.FromName = Request.QueryString("nombre") Objeto.AddAddress Destino Objeto.Subject = Asunto Objeto.IsHTML = True Objeto.Body = "<HTML><HEAD><TITLE></TITLE></HEAD><BODY><CENTER><TABLE><TR><TD ALIGN='left'>" & strHTML & "</TD></TR><TABLE></CENTER></BODY></HTML>" Incorrecto = "" Correcto = False On Error Resume Next Objeto.Send End If %>
Código HTML:
<form name="form1" method="post" action="../form1.asp"> <table border="0" cellpadding="0" cellspacing="0" style="width:520px;"> <tr> <td align="center" colspan="2" style="font-family:Arial, Helvetica, sans-serif;"> Puede solicitar una exposición utilizando el presente formulario.En el plazo de cinco días recibirá la confirmación de la reserva solicitada. </td> </tr> <tr><td> </td></tr> <tr> <td style="padding-left:15px;text-align:right;font-family:Arial, Helvetica, sans-serif;"><strong>Colegio/Entidad solicitante : </strong></td> <td ><input name="entidad" type="text" id="entidad" style="width:200px;"></td> </tr> <tr> <td style="padding-left:15px; text-align:right;font-family:Arial, Helvetica, sans-serif;"><strong>Dirección: </strong></td> <td><input name="direccion" type="text" id="direccion" style="width:200px;"></td> </tr> <tr> <td style="padding-left:15px; text-align:right;font-family:Arial, Helvetica, sans-serif;"><strong>Localidad: </strong></td> <td><input name="localidad" type="text" id="localidad" style="width:200px;"></td> </tr> <tr> <td style="padding-left:15px; text-align:right;font-family:Arial, Helvetica, sans-serif;"><strong>Profesor/Persona de contacto: </strong></td> <td><input name="profesor" type="text" id="profesor" style="width:200px;"></td> </tr> <tr> <td style="padding-left:15px; text-align:right;font-family:Arial, Helvetica, sans-serif;"><strong>Fax: </strong></td> <td><input name="fax" type="text" id="fax" style="width:200px;"></td> </tr> <tr> <td style="padding-left:15px; text-align:right;font-family:Arial, Helvetica, sans-serif;"><strong>Código postal : </strong></td> <td><input name="cp" type="text" id="cp" style="width:200px;"></td> </tr> <tr> <td style="padding-left:15px; text-align:right;font-family:Arial, Helvetica, sans-serif;"><strong>Provincia: </strong></td> <td><input name="provincia" type="text" id="provincia" style="width:200px;"></td> </tr> <tr> <td style="padding-left:15px; text-align:right;font-family:Arial, Helvetica, sans-serif;"><strong>Correo electrónico : </strong></td> <td><input name="correo" type="text" id="correo" style="width:200px;"></td> </tr> <tr> <td style="padding-left:15px; text-align:right;font-family:Arial, Helvetica, sans-serif;"><strong>Fechas de la exposición : </strong></td> <td><input name="fecha" type="text" id="fecha" style="width:200px;"></td> </tr> <tr> <td style="padding-left:15px; text-align:right;font-family:Arial, Helvetica, sans-serif; vertical-align:top; padding-top:3px;"><strong>Observaciones: </strong></td> <td ><textarea name="observ" rows="3" id="observ" style="width:200px;"></textarea></td> </tr> <tr> <td style="padding-left:15px; text-align:right; vertical-align:top; padding-top:3px;"> </td> <td ><input type="submit" name="Submit" value="Enviar" > <input type="reset" name="Submit2" value="Limpiar" ></td> </tr> </table> </form>