Aquí te va el formulario.
No sé como incluir ficheros. Ya lo siento
La páginaha de llamarse prueba.asp
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Pagina nueva 1</title>
</head>
<body>
<p align="center"><b>prueba</b></p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p>
<%
if request.form="" then
%>
<form method="post" action="prueba.asp">
<table border="0" cellspacing="1" width="100%" id="AutoNumber1" style="text-align: center">
<tr>
<td width="50%">
<p align="right"><font size="2">Nombre </font></td>
<td width="50%" style="text-align: left"><input type="text" name="Nombre" size="50"></td>
</tr>
<tr>
<td width="50%" style="text-align: right">
<font size="2">Apellidos</font></td>
<td width="50%" style="text-align: left">
<input type="text" name="Apellidos" size="50"></td>
</tr>
<tr>
<td width="50%" style="text-align: right">
<font size="2">D.N.I.</font></td>
<td width="50%" style="text-align: left">
<input type="text" name="DNI" size="20"></td>
</tr>
<tr>
<td width="50%" style="text-align: right">
<font size="2">Dirección</font></td>
<td width="50%" style="text-align: left"><input type="text" name="Direccion" size="50"></td>
</tr>
<tr>
<td width="50%" style="text-align: right">
<font size="2">Localidad</font></td>
<td width="50%" style="text-align: left"><input type="text" name="Localidad" size="50"></td>
</tr>
<tr>
<td width="50%" style="text-align: right">
<font size="2">CP</font></td>
<td width="50%" style="text-align: left"><input type="text" name="Codigo" size="13"></td>
</tr>
<tr>
<td width="50%" style="text-align: right">
<font size="2">Provincia</font></td>
<td width="50%" style="text-align: left"><input type="text" name="Provincia" size="50"></td>
</tr>
<tr>
<td width="50%" style="text-align: right">
<font size="2">País/Country</font></td>
<td width="50%" style="text-align: left"><input type="text" name="Pais" size="50"></td>
</tr>
<tr>
<td width="50%" style="text-align: right">
<font size="2">Teléfono</font></td>
<td width="50%" style="text-align: left">
<input type="text" name="Telefono" size="20"></td>
</tr>
<tr>
<td width="50%" style="text-align: right">
<p align="right"><font size="2">Fax</font></td>
<td width="50%" style="text-align: left">
<input type="text" name="Fax" size="20"></td>
</tr>
<tr>
<td width="50%" align="right"><font size="2">Entidad</font></td>
<td width="50%" style="text-align: left">
<input type="text" name="Entidad" size="50"></td>
</tr>
<tr>
<td width="50%" align="right">
<font size="2">Cargo</font></td>
<td width="50%" style="text-align: left">
<input type="text" name="Cargo" size="50"></td>
</tr>
<tr>
<td width="50%" align="right">
<p align="right"><font size="2">Email</font></td>
<td width="50%" style="text-align: left"><input type="text" name="Email" size="50"></td>
</tr>
<tr>
<td width="50%" align="right">
<p align="right"><font size="2">Selecciona el idioma en el que deseas recibir la
información</font></td>
<td width="50%" style="text-align: left">
<select name="idioma">
<option value="idioma vacio"> </option>
<option value="castellano">castellano</option>
<option value="english">english</option>
<option value="francais">francais</option>
</select></td>
</tr>
<tr>
<td width="50%" align="right" valign="top">
<font size="2">Observaciones</font></td>
<td width="50%" style="text-align: left">
<textarea rows="6" name="Observaciones" cols="50"></textarea></td>
</tr>
<tr>
<td width="50%">
</td>
<td width="50%" style="text-align: left"> </td>
</tr>
<tr>
<td width="50%">
</td>
<td width="50%" style="text-align: left">
</td>
</tr>
<tr>
<td width="50%">
<input type="submit" value="Enviar" style="float: right"></td>
<td width="50%" style="text-align: left">
<button name="Borrar" type="reset">
Borrar
</button></td>
</tr>
</table>
<p></p>
</form>
<%
else
wNombre=Request.Form("Nombre")
wApellidos=Request.Form("Apellidos")
wDNI=Request.Form("DNI")
wDireccion=Request.Form("Direccion")
wLocalidad=Request.Form("Localidad")
wCodigo=Request.Form("Codigo")
wProvincia=Request.Form("Provincia")
wPais=Request.Form("Pais")
wTelefono=Request.Form("Telefono")
wFax=Request.Form("Fax")
wEntidad=Request.Form("Entidad")
wCargo=Request.Form("Cargo")
wEmail=Request.Form("Email")
wIdioma=Request.Form("Idioma")
wObservaciones=Request.Form("Observaciones")
wTexto = wNombre & VbCrLf &wApellidos & VbCrLf &wDNI & VbCrLf & wDireccion & VbCrLf &wLocalidad & VbCrLf &wCodigo & VbCrLf &wProvincia & VbCrLf &wPais & VbCrLf &wTelefono & VbCrLf &wFax & VbCrLf &wEntidad & VbCrLf &wCargo & VbCrLf & wEmail & VbCrLf & wIdioma & VbCrLf &wObservaciones
%>
<h2>
<%
set correo=Server.CreateObject("CDONTS.NewMail")
correo.From ="
[email protected]"
correo.To = "
[email protected]"
correo.Cc = "
[email protected]"
correo.Subject="asunto de la recepción del correo"
correo.Body= wTexto
correo.mailFormat = 0
correo.Send
set correo= Nothing
Response.Write "gracias por rellenar el formulario"
end if
%> </h2>
<p>
</p>
</body>
</html>