mailformular med flere modtager med mulighed for at vælge

mailformular med flere modtager med mulighed for at vælge modtager

formularen se sådan ud ::

  <form method="post" action="mail_sender.asp" enctype="mutipart/form-data">
       
        <p>Besked:<BR></font>
<TEXTAREA ROWS="10" COLS="71" wrap=virtual name="besked"></textarea><BR><BR>


</p>


<table border="0" cellpadding="0" cellspacing="0" width="587">
<tr valign="top"><td width="99">
<input type="hidden" name="" value="true"/>Vælg Modtager:</td>
<BR>
<td width="688"><select name="modtager">Vælg en modtager</option>
<option value="xxx@xxx.dk">Webmaster</option>
<option value="xxx@xxx.dk">1 person</option>
<option value="xxx@xxx.dk">2 person</option>                   
</select><BR><BR></td></tr>

<tr valign="top"><td width="99">
<font face="Verdana, Arial, Helvetica" size="-1">Dit Navn:<BR><BR></font></td>
<td width="488"><INPUT SIZE="50" name="Name">
<BR><BR></td></tr>

<tr valign="top"><td width="99"><FONT SIZE="-1" FACE="Verdana, Arial, Helvetica">E-mail:</font><BR><BR></td>
<td width="488"><INPUT TYPE="TEXT" SIZE="50" name="Email"><BR><BR></td></tr></table>
<p>
<FONT SIZE="-1" FACE="Verdana, Arial, Helvetica">
<BR><BR>
<INPUT TYPE="submit" VALUE="Send beskeden!">
<input type="reset" value="Slet Indtastet"></font></p>
</form>

mail_sender.asp sådan her :::

<%
Name = Request.form("modtager")
Recipient = Request.form("Email")
SenderEmail = "xxx@xxxx.dk"
message =  Request.form("besked")
message2 = Request.form("Fandt")

      set msg = Server.CreateOBject( "JMail.Message" )
     
      msg.Logging = true
      msg.silent = true
     
      msg.From = SenderEmail
      msg.FromName = Name
      msg.AddRecipient Recipient
      msg.Subject = Subject

    msg.Body = "Hjemmesiden : " & SenderEmail & vbCrLf & "Fra: " & Recipient & vbCrLf & "Navn: " & Name & vbCrLf & "RisRos: " & message & vbCrLf & "Fundet p&aring;: " & message2

'.Send skal v&aelig;re en mail server adresse ikke email adresse
if not msg.Send("server ip adresse") then
msg.Send("xxx@xxxx.dk")
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "<p>Meddelelse afsendt den " & Date & " klokken " & Time & "</p></p>Din Besked er modtaget. Jeg vender tilbage s&aring; hurtigt som muligt til dig." & "</p>" end if
%>