Salve, da poco ho ripreso a smanettare html e asp e dovrei fare un form per un amico
ho la pagina
prenotazione.htm
inviodati.asp
grazie.asp
in pratica l'invio avviene, ma solo nella casella di posta in cui inserisco nel form
vi posto il codice del form :
<body>
<form method="POST" name="modulo" action="inviodati.asp">
Nome <input type="text" name="nome" size="20"> Cognome
<input type="text" name="cognome" size="20"></p>
Città <input type="text" name="citta" size="20">
Prov <input type="text" name="prov" size="20"></p>
Cap <input type="text" name="cap" size="20">
Via <input type="text" name="via" size="20"></p>
Email <input type="text" name="email" size="20"></p>
</p>
Info Prenotazioni </p>
DAL <input type="text" name="dal" size="8"> AL
<input type="text" name="al" size="10"></p>
</p>
Camera <select size="1" name="camera">
<option>Doppia uso singola</option>
<option selected>Doppia</option>
</select> </p>
Totale n° Persone
<input type="text" name="persone" size="5"></p>
<input type="submit" value="Invia" name="B1"><input type="reset" value="Reimposta" name="B2"></p>
</form>
</body>
</html>
ed ecco il codice asp:
<%
'============ Linkbruttocane su specifiche MSDN ================
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. *
'================================================= ==============
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo, cartella, fileAllegato
'* voce da modificare con il proprio indirizzo email
invioA = "info@dominio.it"
'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica
invioDa = "prenotazioni@dominio.it"
'* indicare il nome del file da allegare, il file deve
'* risiedere in questa stessa cartella, come il file allegato a titolo di esempio
fileAllegato = "coupon.zip"
'------------fine modifiche necessarie------------------
nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
cartella = Server.MapPath("./")
'*rilevo i campi del form
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT
'* creo gli oggetti cdosys sul server e li gestisco
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "localhost"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = Request.Form("email")
.From = invioA
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
.AddAttachment (cartella & "\" & fileAllegato)
.Send
End With
%>
<script>
document.location.replace('grazie.asp');
</script>
Sono su server aruba
Grazie in anticipo
P.S. c'è nessuno che gioca a wow?
Rispondi quotando
, potrei fare arrivare l'allegato solo all'utente? 
Ciao rigrazie 