Salve, devo spedire una mail, ho inserito questo codice in una pagina, non dà errore ma la mail non arriva...
Qualche consiglio...
<html>
<body>
<%
If Request.Form("aggiungi") <> "" Then
' Dim conn,a,b,c,d,e,f,g,h,i,tmp_nome, tmp_nome2
' set conn = server.createobject("adodb.connection")
' conn.open("Provider=Microsoft.Jet.oledb.4.0;Data Source=D:\Ilg\giornalisti\mail.mdb")
' set rs = server.createobject("adodb.recordset")
' rs.activeconnection = conn
' rs.source = "SELECT * FROM TMail"
' rs.open
' a = Request.Form("nome") ' Recupero i dati nel form
' b = Request.Form("nome2")
' c = Request.Form("nome3")
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From="mmmmmmm@mmmm.it"
objMail.To="marco.banterla@ilgtravel.com"
objMail.Subject="OGGETTO_DELLA_MAIL"
objMail.Body="TESTO_DEL_MESSAGGIO"
objMail.importance=0
objMail.Send
Set objMail = nothing
End If
%>
<form method="post">
<div align="center">
<table width="200" border="0">
<tr>
<td><div align="left"><font color="#FFFFFF" size="2" face="Verdana, Verdana, Arial, Helvetica, sans-serif">Nome:</font></div></td>
<td><input type="text" name="nome"></td>
</tr>
<tr>
<td><font color="#FFFFFF" size="2" face="Verdana, Verdana, Arial, Helvetica, sans-serif">Cognome:</font></td>
<td><input type="text" name="nome2"></td>
</tr>
<tr>
<td><font color="#FFFFFF" size="2" face="Verdana, Verdana, Arial, Helvetica, sans-serif">Telefono:</font></td>
<td><input type="text" name="nome3"></td>
</tr>
<tr>
<td></td>
<td><input type="submit" name="aggiungi" value="Iscrizione"></td>
</tr>
</table>
</div>
</form>
</body>
</html>
Rispondi quotando
