Originariamente inviato da supergeniux
questo codice invia solo una email, per cui ho posti tutto il codice o
Ecco qui:
codice:
<% response.buffer = true
%><%
ERRORE = "" 

sub insertLink()

  Titolo=request.form("Titolo")
  Sito=request.form("Sito")
  Email=request.form("Email")

Sito=replace(Sito,"'","''")
Sito=replace(Sito,"<","&lt;")
Sito=replace(Sito,">","&gt;")

Titolo=replace(Titolo,"'","''")
Titolo=replace(Titolo,"<","&lt;")
Titolo=replace(Titolo,">","&gt;")

'crea un collegamento al database e lo apre
%>
<%
  Set rs = Server.CreateObject("ADODB.Recordset")
  strSQL="SELECT * FROM Addlink WHERE Sito = '" & Sito & "';"
  rs.Open strSQL,cn

  if not rs.eof then 
  	set rs = nothing
	set cn = nothing
	ERRORE = "Url gi&agrave; inserita."
	exit sub
  end if

  rs.close		  	
  
  strSQL = "INSERT INTO Addlink (Sito, Titolo, Email) VALUES ('" 
  strSQL = strSQL & Sito & "','" & Titolo & "','" & Email & "')"
	 
  cn.Execute(strSQL) 

set cn = nothing
set rs = nothing

  response.redirect("default.asp")
end sub

  Titolo=request.form("Titolo")
  Sito=request.form("Sito")
  Email=request.form("Email")

Dim objMail, messaggio

	messaggio = messaggio & VBcrlf & "Ciao

"
	messaggio = messaggio & VBcrlf & "Titolo = " & Titolo & " 
"
	messaggio = messaggio & VBcrlf & "Sito = " & Sito & "
"
        messaggio = messaggio & VBcrlf & "E-mail = " & Email & "

"
   
	
    Set objMail = Server.CreateObject("CDONTS.NewMail")

                objMail.From = "miaemail@ana.com"
	objMail.To = email
	objMail.Subject = "Ciao"
    objMail.Body = messaggio
    objMail.importance = 2
	objMail.MailFormat = 0
    objMail.BodyFormat = 0
    objMail.Send

    Set objMail = Nothing


if request.form("type") = "I" then call insertLink()
%>


<%
strSQL="SELECT * FROM Configurazione where ID_Conf = 1"  
  rs.Open strSQL,cn

  Set objBg_color=rs("Bg_color")
  Set objFont_Tabella=rs("Font_tabella")
  Set objFont_size_tabella=rs("Font_size_tabella")
  Set objFont_color_tabella=rs("Font_color_tabella")
  Set objColor_titolo_tabella=rs("Color_titolo_tabella")
  Set objText_color=rs("Text_color")
  Set objColor_tabella_esterna=rs("Color_tabella_esterna")
  Set objColor_tabella_interna=rs("Color_tabella_interna")
  Set objColor_titolo_tabella=rs("Color_titolo_tabella")

if rs.EOF then 
		response.write("<h3>Si sono verificati dei problemi durante la lettura della base dati. Riprovate e se il problema si verifica ancora contattate il WebMaster. Grazie.</h3>")
else %>
            
            
           <form name="mioform" method="post" action="aggiungi.asp" onSubmit="return submitIt(this)">

             <%=rs("Text_color")%>">* 
                  <%if request.form("Sito") = "" then response.write("http://") else response.write(request.form("Sito"))%>" size="20">
                  <%=rs("Text_color")%>"> 
                 <%request.form("Titolo")%>" size="20">
                  <%=rs("Text_color")%>"> * 
                  <%request.form("Email")%>" size="20">
                  <%=rs("Font_color_tabella")%>">
<%
end if
Set cn = nothing
Set rs = nothing
%>