Ho questo codice:
<%Function CheckMail(strMail)
if len(strMail) > 6 then
pos = Instr(1,strMail, "@")
if pos >= len(strMail)-3 then
Exit Function
end if
if pos < 2 then
Exit Function
end if
dotpos = Instr(pos+1 ,strMail, ".")
if dotpos > len(strMail)-2 then
Exit Function
end if
if len( Mid(strMail, pos+1) ) < 5 or dotpos = 0 then
Exit Function
end if
CheckMail = True
else
CheckMail = False
end if
End function
Cosa = request.form("Cosa")
if Cosa <> "" then ' è postback e il form è stato inviato
MailMittente = request.form("Mittente")
if CheckMail(MailMittente) = true then
'invio la mail
Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
miaMail.From = "Utente sito<" & MailMittente & ">"
miaMail.To = "Iscrizione Newsletter di Tradare.it<info@tradare.it>"
'MiaMail.Cc = "altroindirizzo@aruba.it;ancora@aruba.it"
'MiaMail.Bcc = "altroindirizzo@aruba.it;ancora@aruba.it"
miaMail.Subject = request.form("Oggetto")
MiaMail.TextBody = replace(request.form("Contenuto"), chr(13), VBClrf) & vbclrf
'MiaMail.AddAttachment "d:\inetpub\webs\tuodominiocom\file.zip"
MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing
esito = "e-Mail inviata correttamente"
else ' la mail non è corretta
esito = "L'indirizzo e-mail inserito non è corretto."
end if
end if ' di "cosa", cioè se il form è stato inviato o è il primo caricamento della pagina%>
<TITLE></TITLE>
<style>
.cell {color: #3D3D3D; BORDER-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; FONT-SIZE: 11px; background-color: #ffffff; FONT-FAMILY: arial, sans-serif}
</style>
</HEAD>
<BODY>
<script language="JavaScript">
<!--
function AddFormat(formattazione)
{
txtdaformattare=prompt('Inserire il testo da porre fra <'+formattazione+'> e </'+formattazione+'>:');
txt="<"+formattazione+">"+txtdaformattare+"</"+formattazione+">";
document.mail.contenuto.value+=txt;
}
-->
</script>
<table border="0" cellpadding="3" cellspacing="5" width="765" align="center" background-color= #008000">
<tr>
<td colspan="2" align="center">
[img]/banneriniziale6.bmp[/img]</td>
</tr>
<tr>
<td width="50%">
</td>
<td width="50%">
</td>
</tr>
<tr>
</tr>
<tr>
<td colspan="2" >Iscriviti gratuitamente alla Newsletter di Tradare.it! E' sufficiente inserire il tuo indirizzo email nel box sottostante. Ogni fine settimana ti segnaleremo il titolo più interessante per la settimana successiva! Inoltre verrai prontamente informato qualora ci fossero cambiamenti importanti all'interno del sito!</td>
</tr>
<tr>
</style>
<tr>
</tr>
<tr>
<td colspan="2" align="center">
<%=esito%>
</td>
</tr>
<tr>
<td align="center" class="cellettabianca"><form name="mail" action="contatti.asp" method="post"><input type="Hidden" name="Cosa" value="Invia">
Inserisci il tuo indirizzo email:
<input style="WIDTH: 200px" type="text" name="Mittente" size="40" class="cell" value="">
<input type="image" src="invia.gif" onclick="document.mail.submit()" name="Submit" value="Invia"></td>
</tr>
</tr>
<tr>
</tr>
</table>
<TABLE cellspacing="0" cellpadding="0" width="765" align="center" border="0" hspace="0" vspace="0">
<TBODY>
<TR valign="top" align="middle">
</TR>
</TBODY>
</TABLE>
Come faccio ad inserire lo sfondo di colore #096A096?
Come posso inserire un link che riporti all'homepage?
Grazie
Rispondi quotando
