In un html?Originariamente inviato da Corinna
Prova a copiaincollare questo in un file e dimmi cosa ti dice, se poi va lo mettiamo a posto.
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 = "Vagabondando.it<info@vagabondando.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>Vagabondando .it - Un viaggio, una foto, un'emozione - Contattaci</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="760" align="center" background="http://<%=Request.ServerVariables("HTTP_HOST")%>/immagini/sfondo.gif"> <tr> <td colspan="2" align="center"> [img]immagini/contatti_header.jpg[/img]</td> </tr> <tr> <td width="50%"> </td> <td width="50%"> </td> </tr> <tr> <td colspan="2">Sei in Home > Contatti </td> </tr> <tr> <td colspan="2" align="center">.: Instant Messaging :.</td> </tr> <tr> <td align="left" class="cellettabianca">ICQ: 20283798 </td> <td align="right" class="cellettabianca">
MSN: webmistress(at)libero.it </td> </tr> <tr> <td colspan="2" align="center">.: e-Mail :.</td> </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"><input type="image" src="immagini/b.gif" name="Grassetto" value="B" onClick="AddFormat('B')"> <input type="image" src="immagini/i.gif" name="Corsivo" value="I" class="button" onClick="AddFormat('I')"> <input type="image" src="immagini/u.gif" name="Sottolineato" value="U" class="button" onClick="AddFormat('U')"> Mittente: <input style="WIDTH: 200px" type="text" name="Mittente" size="40" class="cell" value=""> Oggetto: <input style="WIDTH: 200px" type="text" name="Oggetto" size="40" class="cell"> <input type="image" src="immagini/invia.gif" onclick="document.mail.submit()" name="Submit" value="Invia"></td> <td align="center" width="50%" class="cellettabianca"><form name="mail" action="contatti.asp" method="post"><input type="Hidden" name="Cosa" value="Invia"><textarea style="WIDTH: 200; HEIGHT: 200" rows="10" name="contenuto" cols="40" class="cell"></textarea></form></td> </tr> </tr> <tr> <td align="left">[img]immagini/preferiti.gif[/img] Aggiungi ai preferiti</td> <td align="right">[img]immagini/home.gif[/img] Imposta come homepage</td> </tr> </table> <TABLE cellspacing="0" cellpadding="0" width="765" align="center" border="0" hspace="0" vspace="0"> <TBODY> <TR valign="top" align="middle"> <TD class="scuro" align="center"><fONT color="#ffffff"> © CVdM 2003</font></TD> </TR> </TBODY> </TABLE>