Bouton qui execute une fonction ASP envoi de mail

Bonjour à tous !

J'ai une question qui peut paraitre plutôt simple mais je n'ai pas trouvé la méthode pour le faire donc je me tourne vers vous

Je voudrais créer un bouton qui execute ma fonction d'envoi de mail.

Voici ce que j'ai pour le moment :

Ma fonction :

Function Envoi_mail()
 numero_semaine =DatePart("ww",Date)& "/"& DatePart("yyyy",Date)
 call Text_mail()
 set mailer     = CreateObject("CDO.message")
 mailer.Subject = "Permanence exploit de la semaine " & numero_semaine
 mailer.HTMLBody = Text_Mail
 mailer.From = "moi@fournisseur.fr"
 mailer.To = "moi@fournisseur.fr"
 mailer.send()
 Set mailer = nothing
End function

Et mon formulaire d'envoi (je veux juste mettre un bouton)

<form ID="form_envoi_mail" runat="server">
 <asp:button ID="bouton1" runat="server" onServerClick="<%Envoi_Mail()%>" Text="ENVOYER MAIL" />
</form>

<form name="form_envoi_mail" method="post" action="Insert_permanence(2).asp" id="form_envoi_mail">
 <input type="submit" name="bouton1" value="Envoi_Mail" id="bouton1" /><br>
<form>


J'ai trouvé ça sur internet mais je ne suis pas sûr que ça soit la bonne méthode :s

<%
Function Envoi_mail()
 numero_semaine =DatePart("ww",Date)& "/"& DatePart("yyyy",Date)
 call Text_mail()
 set mailer     = CreateObject("CDO.message")
 mailer.Subject = "Permanence exploit de la semaine " & numero_semaine
 mailer.HTMLBody = Text_Mail
 mailer.From = "moi@fournisseur.fr"
 mailer.To = "moi@fournisseur.fr"
 mailer.send()
 Set mailer = nothing
End function

Dim Action : Action = Request.Form("Action")
Select Case Action
 Case "envoi"
  Envoi_mail
 Case Else
  %>
<form name="myform" method="post">
    <input type="hidden" name="Action" value="envoi">
    <input type="submit" value="ENVOYER MAIL">
</form>
  <%
End Select
%>
_________________________________________________________________________
VB.NETis good ...VB6is better<