problemer med at integrere jmail i nyt script

Har problemer med at integrere jmail i nyt script.

Den nye

<%RecSet.Close
Set RecSet = Nothing

conn.close:set conn=nothing

ElseIf Request.Querystring("action")= "spara" AND Session("nyhet") = Secure Then
  Rubrik      = FixSQL(Request.Form("rubrik"))
  Nyhet      = FixSQL(Request.Form("nyhet"))
  Namn      = FixSQL(Request.Form("namn"))

  Conn.Execute("INSERT INTO news(Rubrik,Nyhet,namn) VALUES('" & Rubrik & "','" & Nyhet & "','" & Namn & "')")
  conn.close:set conn=nothing
  Response.Redirect "admin.asp?do=inne"'


Det er i den nye at den gamle jmail funktionen skal integreres, har prøvet til hudløshed uden den store lykke.

Den gamle....

<%
if request("mode") = "send" then

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & ("news.mdb") & ";UID=admin;PWD=;"

   
            Set rs = Server.CreateObject("ADODB.RecordSet")
            strSQL = "Select * From nyheder"
            rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

          rs.AddNew
          rs("overskrift") = Request("overskrift")
          rs("skribent") = Request("skribent")
          rs("tekst") = Request("tekst")
          rs("dato") = now
            rs.Update
           
                Set rs2 = Server.CreateObject("ADODB.RecordSet")
            strSQL2 = "Select top 1 * From nyheder order by id DESC"
            rs2.Open strSQL2, Conn, adOpenKeyset, adLockOptimistic
           
    SQL = "SELECT * from mailingliste"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next
   
' her er hele jmail funktonen


response.write "<STRONG>E-mail er sendt til : "& send("email") &"</STRONG><BR>"
send.movenext
loop
conn.close
else
end if %>