Hjælp til en IF sætning

Hejsa

Jeg har et lille mailmodul som jeg gerne vil have udbygget lidt...

Her er koden til selve mailformen:

<form action="UdsendNyhedsbrev.asp" method="post">

  <table border="0" class=standardst>
    <tr>
      <td>Vælg Interesseområde</td>
      <td width="10" nowrap>&nbsp;</td>
      <td>
        <SELECT name=Int>
          <OPTION value="Int_1">SystemMørtel</OPTION>
          <OPTION value="Int_2">SystemBeton</OPTION>
          <OPTION value="Int_3">Tegl</OPTION>
          <OPTION value="Int_4">Serpo fliseklæb</OPTION>
          <OPTION value="Int_5">ABS Gulve</OPTION>
          <OPTION value="Int_6">Vetonit vægspartel</OPTION>
          <OPTION value="Int_8">FiboKlinker</OPTION>
          <OPTION value="Int_9">FiboBlokke</OPTION>
      <OPTION value="Int_10">Alle</OPTION>
        </SELECT>
      </td>
    </tr>
    <tr>
      <td valign="top"><p>Indhold</p></td>
      <td width="10" nowrap>&nbsp;</td>
      <td>
        <TEXTAREA rows=15 cols=50 id=Indhold name=Indhold></TEXTAREA>
      </td>
    </tr>
    <tr>
      <td valign="top">Send som testmail </td>
      <td width="10" nowrap>&nbsp;</td>
      <td><input name="TestMail" type="checkbox" value="ON" checked>
        (Fjernes n&aring;r rigtig mail skal sendes) </td>
    </tr>
    <tr>
      <td valign="top">Testmail skal sendes til: </td>
      <td width="10" nowrap>&nbsp;</td>
      <td><input name="TestMailAdr" type="text" id="TestMailAdr"></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td width="10" nowrap>&nbsp;</td>
      <td>
        <INPUT type="submit" value="Send" id=submit1 name=submit1>
      </td>
    </tr>
  </table>
</form>
-----------------------------------------------
I min fil som sender mailen ( udsendnyhedsbrev.asp ), skal jeg så have en lille if sætning ind det rigtige sted.

Hvis checkboxen TestMail er checket af skal mailen ikke sendes til alle brugerer i databasen, men kun til den mail som er indtastet i feltet TestMailAdr.

Her er koden som til udsendnyhedsbrev.asp:
-----------------------------------------
<%
' Hent antal medlemmer
sql = "SELECT * FROM TblTilmeldingTilNewsletter" '' Where " & Request.Form("Int") & " = True"
Set Member = Server.CreateObject("ADODB.Recordset")
Member.Open sql, conn, 1, 1

if member.RecordCount > 0 then

' Lav Array med emailadresser
dim MailArray()
Redim MailArray(Member.RecordCount)

For i = 0 to Member.RecordCount - 1
MailArray(i) = Member("Email")
Member.MoveNext
next

' Lav lang Streng med ; imellem emailadresser
Mailto = join(MailArray,";")

' Hent Mailvariabler
Overskrift = "Nyhedsbrev fra www.maxit.dk"
'Indhold = Request.Form("Indhold")

' Send Email
Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = "maxit@maxit.dk"
myMail.Bcc = MailTo ' "kba@optiroc.dk"
Mymail.Subject = Overskrift
myMail.BodyFormat = 0
myMail.MailFormat = 0
MyMail.body = Request.Form("Indhold")
myMail.Send
Set myMail = Nothing

Response.Write "Nyhedsbrev udsendt til " & member.RecordCount & " tilmeldte."
Response.Write "<br><br>"
Response.Write Mailto

else

Response.Write "Ingen tilmeldte"


end if
---------------------------

På forhånd tak, - håber i forstår.. :)