Ver Mensaje Individual
  #1 (permalink)  
Antiguo 22/11/2008, 10:07
jumangre
 
Fecha de Ingreso: septiembre-2006
Mensajes: 4
Antigüedad: 18 años, 7 meses
Puntos: 0
formulario con archivo adjunto con asp

Hola, alguien me puede decir como puedo enviar el formulario con un archivo adjunto sin tener que subirlo al sever.

Mi codigo form.html es:

<head>
</head>

<body>
<form action="envio.asp" method="post" name="departamento">


<p>Nombre
<input name="nombre" type="text" size="50" />
<br />
<br />

eMail
<input name="email" type="text" size="50" />
<br />
<br />

Telefono
<input name="telefono" type="text" size="9" />
<br />
</p>
<p>Archivo<br />

<input name="adjunto" type="file" size="80" />

<br />
<br />

Comentario
<textarea name="comentario" cols="80" rows="5"></textarea>
</p>
</p>
</p>
<p>
<label>
<input type="submit" name="Submit" value="Enviar" />
</label>
</p>
</form>

</body>
</html>

y en envio.asp

<%
nombre = request.form("nombre")

telefono = request.form("telefono")

email = request.form("email")
comentario = request.form("comentario")

cuerpo = "Contácta XXXX"& VBNEWLINE & VBNEWLINE
cuerpo = cuerpo & "Nombre: " & nombre & VBNEWLINE

cuerpo = cuerpo & "Telefono: " & telefono & VBNEWLINE

cuerpo = cuerpo & "Email: " & email & VBNEWLINE
cuerpo = cuerpo & "Comentario: " & comentario

Dim Mail
Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "localhost"
Mail.Username = "[email protected]"
Mail.Password = "xxxxxxxxx"
Mail.Port = 25

mail.from = Request.Form("email")
mail.fromName = "[email protected]"

Mail.AddAddress "[email protected]"



Mail.Subject = "Formulario Contácta"
Mail.body = cuerpo

On Error Resume Next
Mail.Send
if Err ><0 then
response.redirect "fallo.html"
else

saludo = "gracias.html"

response.redirect saludo end if
Set Mail=Nothing
%>

el codigo en asp me funciona perfectamente, pero no se como incluir el adjunto.

gracias de antemano