Salve amici, ho appena scaricato questo script dal sito di ar..a, questo script utilizza il CDOSYS per mandare la mail, e qui tutto bene, io lo vorrei utilizzare per segnalare un articolo, e qui iniziano i problemi, perchè mi manda la mail all'indirizzo che settato nel nella pagina formcdosys.asp.
Come si fa a fare in modo che questo script funzioni come un segnala ad un amico quest'articolo?



contatto.asp

codice:
<table border="0" cellpadding="0" cellspacing="0" width="40%" align="center">
        <tr> 
          <td width="100%"> 
            <form action="formcdosys.asp" method="post" name="form1" onSubmit="MM_validateForm('email','','RisEmail');return document.MM_returnValue">
              <table width="361" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td width="170"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#333333">Nome</font></td>
                  <td width="191"><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
                    <input type="text" name="nome" size="20">
                    </font></td>
                </tr>
                <tr> 
                  <td width="170"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#333333">E-mail 
                    *</font></td>
                  <td width="191"><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
                    <input type="text" name="email" size="20">
                    </font></td>
                </tr>
              </table>
              <p align="center"><font color="#333333" face="Verdana, Arial, Helvetica, sans-serif"> <font size="1"> 
                <input type="submit" name="Submit" value="Contatto">
                 </font></font> </p>
            </form>
            

<font size="2" face="Verdana, Arial, Helvetica, sans-serif">* richiesto
          </font>          </td>
        </tr>
      </table>

formcdosys.asp

codice:
<%
'============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

	'* voce da modificare con il proprio indirizzo email
	
invioA =  "linkbruttocane@aruba.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 =  "linkbruttocane@technet.it" 
'------------fine modifiche necessarie------------------

nomeDominio 				= Request.ServerVariables("HTTP_HOST")
indirizzoIp					= Request.ServerVariables("REMOTE_ADDR") 
modulo						= Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo		= Request.ServerVariables("HTTP_USER_AGENT")

	'*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) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = Request.Form("email")
   .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 & ""
   .Send
End With
%>