Hola! He hecho un formulario con un archivo adjunto pero no me llega ni el texto que escriben los usuarios ni el archivo que adjuntan. Me podriais ayudar?
El código del formulario es el siguiente:
<body>
<form action="envianosaltres.asp" method="post" enctype="multipart/form-data">
<p>Nom i Cognom:
<input name="nom" type="text" size="60" maxlength="60">
</p>
<p>email:
<input name="email" type="text" size="50" maxlength="50">
</p>
<p>Presentació: <br />
<textarea name="presentacio" cols="80" rows="5"></textarea>
</p>
<p>Fotografia:
<label>
<input name="file" type="file" size="50" />
</label>
</p>
<p>
<input type="submit" name="Submit" value="Enviar">
</p>
</form>
</body>
Y el código del archivo encargado de enviar la información es el siguiente:
<%
'Creación de variables para almacenar los campos del formulario
Nom= Request.Form("nom")
email= Request.Form("email")
Presentacio= Request.Form("presentacio")
Foto= Request.Form("foto")
strTo = "[email protected]" ' Esta es una dirección que corresponda a nuestro servidor
strSubject = "Nosaltres"
strBody = "<html><body>"
strBody = strBody & "Nou missatge de nosaltres<br><br>"
strBody = strBody & "Nom: "& Nom &"<br>"
strBody = strBody & "email: "& email &"<br>"
strBody = strBody & "Presentacio: "& Presentacio &"<br>"
strBody = strBody & "foto: "& Foto &"<br>"
strBody = strBody & "</body></html>"
strFrom = "[email protected]" 'No hay problema en que sea la misma que la anterior.
Set myMail = CreateObject("CDO.Message")
myMail.Subject = strSubject
myMail.From = strFrom
myMail.To = strTo
myMail.HTMLBody = strBody
myMail.Send
set myMail = nothing
'Response.redirect "gracias.html"
' O bien podemos ahorrar una página y escribir algo como
Response.write "La seva presentació ha estat enviada. Gràcies."
%>
Cual es el problema?
Muchisimas gracias
