Form via Email e Upload

[pupys87]

Dunque ho un form che una volta compilato invia tutto via email:

<%@LANGUAGE = VBScript%>

<%

theSchema="http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig=server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(theSchema & "smtpserver")="server.smtp.com"
cdoConfig.Fields.Update

set cdoMessage=Server.CreateObject("CDO.Message")
cdoMessage.Configuration=cdoConfig


cdoMessage.From=Request.Form("email")
cdoMessage.To="info@because100.com"
cdoMessage.Subject=Request.Form("subject")
cdomessage.HtmlBody = "Nome:" & request.form("nome") & "
Cognome:" & "
Note:" & Request.form("note") & "
Nome File:" & request.form("Campo1")


cdoMessage.Send

Set cdoMessage=Nothing
Set cdoConfig=Nothing



Response.Write("La richiesta è stata inoltrata. Verrete ricontattati il prima possibile. Grazie.")
%>

dopo nella pagina html del form, ho una pop che apre una nuova finestra dove all'interno c'è il codice per uploadare dei file:

Pagina HTML


<%
If Request("Upload")="1" then
Dim oUpload
Set oUpload = new cUpload
oUpload.AutoRename = False
oUpload.Overwrite = true
oUpload.SetPath "."
oUpload.Upload
oUpload.SaveAs ""
Set oUpload=Nothing
end if
%>


<FORM METHOD="Post" enctype="multipart/form-data" ACTION="invia_upload.asp">
File : <INPUT TYPE="file" NAME="Campo1" size="14">

<INPUT TYPE="submit" NAME="Enter">
</FORM>

<%
Dim oUpload
Set oUpload = new cUpload
oUpload.SetPath "Files\"
oUpload.UploadAndSave
Set oUpload=Nothing
%>
<h1>Operazione Completata</h1>

<script language="javascript">
alert('Il File è stato caricato correttamente. Completare il modulo e inviare la richiesta.');


</script>

Adesso se volessi che il nome del file arrivasse anche via email insieme ai campi del form come devo fare?

[Roby_72]

Il metodo FileName o qualcosa del genere dell'upload di Baol ti consente di recuperare il nome del file.

Roby

[Luise]

Esempio?