STORT PROBLEM! LIDT POINTS :( .... Hjælp haster...

Hej!
Hvordan får jeg følgende funktion til at virke?:

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/XXX/db.mdb")
SQL = "SELECT DISTINCT BruID FROM ForumSvr WHERE SpgID='" & SpgID & "' AND Email='Ja'"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql, conn, 1, 3
if rs.eof then

else
do until rs.eof

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/XXX/db.mdb")
SQL = "SELECT * FROM Medlemmer WHERE ID=" & rs("BruID") & ""
Set bruRS2 = Server.CreateObject("ADODB.RecordSet")
bruRS2.Open sql, conn, 1, 3
  Str_Email=bruRS2("Email")

  ' BEGIN - Checks if there is entered an e-mail and if its valid ####
  If Not Str_Email&""="" Then
    x=Valider(Str_Email)
    If x=false Then
      Response.Redirect "./XXX"
    end if
  end if
  ' END - Checks if there is entered an e-mail and if its valid ####

  ' #### BEGIN ## Find user-details, if an account existe with that e-mail ####
    str_Realname=XXX
    Str_Password=XXX
  ' #### END ## Find user-details, if an account existe with that e-mail ####

  ' #### BEGIN ## Generate message for e-mail ####
  Str_Message=""
  ' #### END ## Generate message for e-mail ####

  ' #### BEGIN ## Send e-mail to user using JMail component (http://tech.dimac.net/) ####
  Name = "XXX"
  SenderEmail = "XXX"
  Subject = "XXX"
  Recipient = Str_Email

  Set JMail = Server.CreateObject("JMail.SMTPMail")
  ' Enter your own SMTP-server here
  JMail.ServerAddress = "XXX"
  JMail.Sender = SenderEmail
  JMail.Subject = Subject
  JMail.Body = Str_Message
  JMail.AddRecipient Recipient
  JMail.Priority = 3
  JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
  JMail.Execute
  ' #### END ## Send e-mail to user using JMail component (http://tech.dimac.net/) ####intRecCount = intRecCount - 1
    rs.MoveNext
    loop
    end if

MVH
Mr.Meincke