Array & Loop

Jeg har fundet et eksempel som er lavet til AspMail men jeg kan ikke få det puttet ind i ovennævnte eksempel så det passer til CDONT

<%
\' --------------------------------------------------------------------------------
\' Dette eksempel er skrevet af Dennis Knappe
\' Eksemplet kan downloades fra http://www.activeserverpages.dk, og er freeware
\' --------------------------------------------------------------------------------
Response.Buffer = True
strMode = Request.QueryString(\"mode\")

\'// Dette er vores connection streng til databasen
tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"mailliste.mdb\")

If Request.Form(\"Send\") <> \"\" Then
    \'// Her putter vi værdien af de indtastede felter i en variabel
    strSender = Request.Form(\"Afsender\")
    strSubject = Request.Form(\"Emne\")
    strMessage = Request.Form(\"Besked\")
    strMailServer = Request.Form(\"Mailserver\")

    \'// Her åbner vi databasen, og trækker alle email adresse ud i et array
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    myConn.Open tempConn
    strSQL = \"SELECT Email FROM Mailliste\"
    Set rs = myConn.Execute(strSQL)
    arrEmail = rs.GetRows()
    myConn.Close
    Set myConn = Nothing

    \'// Her laver vi et loop igennem vore email array, og sender beskeden til alle de tilmeldte
    Set objMailer = Server.CreateObject(\"ASPMail.ASPMailCtrl.1\")
    For num = 0 to Ubound(arrEmail,2)
        strResult = objMailer.SendMail(strMailserver, arrEmail(0, num), strSender, strSubject, strMessage)
    Next
    Set objMailer = Nothing
    strMode = \"messagessendt\"

    \'// Her sletter vi alt buffered output, og redirecter siden, med et parameter der fortæller at vi har sendt til listen
    Response.Clear
    Response.Redirect(\"mailliste.asp?mode=finish\")
End If
%>
<html>

<head>
<title>Mailliste</title>
</head>

<body>
<div align=\"center\"><center>

<table border=\"0\" width=\"600\" cellspacing=\"0\" cellpadding=\"3\" style=\"border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0); border-top: 1px solid rgb(0,0,0); border-bottom: 2px solid rgb(0,0,0)\">
  <tr>
    <td width=\"100%\" bgcolor=\"#000000\"><p align=\"center\"><font face=\"verdana\" size=\"4\" color=\"#FFFFFF\"><strong>Mailliste</strong></font></td>
  </tr>
  <tr align=\"center\">
    <td width=\"100%\"><%
Select Case strMode
Case \"finish\"
    Response.Write \"<p><font face=arial size=2>Besked er sendt til mailliste</font></p>\"
    Response.Write \"<p><font face=arial size=2><a href=mailliste.asp>Tryk her for at lave en ny besked</a></font></p>\"
Case Else
%>
<form method=\"POST\" action=\"mailliste.asp\">
      <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"2\">
        <tr>
          <td valign=\"middle\" align=\"left\" colspan=\"2\"><font face=\"verdana\" size=\"2\"><strong><br>
          </strong>Indtast venligst oplysningerne i følgende felter:<strong><br>
          &nbsp; </strong></font></td>
        </tr>
        <tr>
          <td valign=\"middle\" align=\"left\"><div align=\"right\"><p><font face=\"verdana\" size=\"2\"><strong>Mailserver</strong></font></td>
          <td valign=\"middle\" align=\"left\"><input type=\"text\" name=\"Mailserver\" size=\"40\"></td>
        </tr>
        <tr>
          <td valign=\"middle\" align=\"left\"><strong><div align=\"right\"><p><font face=\"verdana\" size=\"2\">Afsender</font></strong></td>
          <td valign=\"middle\" align=\"left\"><input type=\"text\" name=\"Afsender\" size=\"40\"></td>
        </tr>
        <tr>
          <td valign=\"middle\" align=\"left\"><div align=\"right\"><p><font face=\"verdana\" size=\"2\"><strong>Emne</strong></font></td>
          <td valign=\"middle\" align=\"left\"><input type=\"text\" name=\"Emne\" size=\"40\"></td>
        </tr>
        <tr>
          <td valign=\"top\" align=\"left\"><div align=\"right\"><p><font face=\"verdana\" size=\"2\"><strong>Besked</strong></font></td>
          <td valign=\"middle\" align=\"left\"><textarea rows=\"5\" name=\"Besked\" cols=\"40\"></textarea></td>
        </tr>
        <tr>
          <td valign=\"middle\" align=\"left\" colspan=\"2\"><br>
          <input type=\"submit\" value=\"Send\" name=\"Send\"></td>
        </tr>
      </table>
    </form>
<% End Select %>
    </td>
  </tr>
  <tr align=\"center\">
    <td width=\"100%\" bgcolor=\"#000000\"><p align=\"center\"><font face=\"Verdana\" size=\"1\" color=\"#FFFFFF\">Dette eksempel er skrevet af Dennis Knappe<br>
    Eksemplet kan downloades fra <a href=\"http://www.activeserverpages.dk\">http://www.activeserverpages.dk</a></font></td>
  </tr>
</table>
</center></div>
</body>
</html>

dette skulle kunne gøre det:

strSQL = \"SELECT Email FROM Mailliste\"
set Res = Conn.Execute(strSQL)
while not Res.EOF
  Set Mail = Server.CreateObject (\"CDONTS.NewMail\")
  Mail.From = \"dig@dig.dk\"
  Mail.To = res(\"emailadr\")
  Mail.Body = strMessage
  Mail.BodyFormat = 1
  Mail.Mailformat = CDOMailFormatMIME
  Mail.Send
  Set Mail = Nothing
Res.MoveNext
wend

Perfekt.

Sådan kom det til at se ud:

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"SpawnedMailer.mdb\")

Dim mFrom,mTo,mSubject,mbcc,mBody,mArchive
mFrom = Request.Form(\"myemail\")
mTo = Request.Form(\"to\")
mSubject = Request.Form(\"subject\")
mbcc = Request.Form(\"users\")
mBody = Request.Form(\"body\")
mArchive = Request.Form(\"archive\")

response.write(\"Nyhedsbrevet er sendt til:<br><br>\" & mbcc )


strSQL = \"SELECT MailingAddy FROM MailingList\"
set Res = Conn.Execute(strSQL)
while not Res.EOF
  Set Mail = Server.CreateObject (\"CDONTS.NewMail\")
  Mail.From = mFrom
  Mail.To = res(\"MailingAddy\")
  Mail.Subject = mSubject
  Mail.Body = mBody
  Mail.BodyFormat = 1
  Mail.Mailformat = CDOMailFormatMIME
  Mail.Send
  Set Mail = Nothing
Res.MoveNext
wend


if mArchive = \"1\" then

set conn=Server.CreateObject(\"ADODB.Connection\")
conn.Provider=\"Microsoft.Jet.OLEDB.4.0\"
conn.Open(Server.Mappath(\"SpawnedMailer.mdb\"))

ArchiveSQL = \"INSERT into Archive (ArchiveSubject,ArchiveBody) VALUES (\'\" & mSubject & \"\',\'\" & mBody & \"\');\"
conn.Execute ArchiveSQL
response.write(\"<br><br><br><font color=\'#FF0000\'>Brevet er nu Arkiveret!</font><br><br>\")

conn.close

end if

response.write(\"<br><br><br><center><a href=\'AdminIndex.asp\'>ADMIN HOME</a><center>\")

Jeg har samtidig et ID på mailen i samme database som jeg godt kunne tænke mig at det landet i bunden af Body så modtageren ved link kunne afmelde nyhedsmailen

noget alla:

http://www.domæne.dk/mail/Edit.asp?Action=Delete&num=ID 

Kan du hjælpe....

Kan du også hjælpe med det her

Jeg har samtidig et ID på mailen i samme database som jeg godt kunne tænke mig at det landet i bunden af Body så modtageren ved link kunne afmelde nyhedsmailen

noget alla:

http://www.domæne.dk/mail/Edit.asp?Action=Delete&num=ID 

Kan du hjælpe....