Email not sending from Include file

[e21media]

Using ASPEmail can send mail to an account on my server and external emails. However, I have 2 functions that call the same sendEmail function from an include page to send mail external. For some reason 1 function works OK, but the other doesn't. Am baffled.

Added response.writes on the calling page, all looks ok. mail not getting sent. as follows:

join.asp calls SendEmail(userID, subject, body) function via include file:

   1.
 
   2.
      '//Send confirmation to new member;
   3.
          oDB.SendEMail rs.Fields("UserID"), "Welcome to Lovebay.co.uk!", _
   4.
              "Hi " & rs.Fields("Forenames") & "!" & _
   5.
              vbcrlf & vbcrlf & _
   6.
              "Thank you for joining lovebay.  This email contains your username and password, just in case you forget it later on." & _
   7.
              vbcrlf & vbcrlf & _
   8.
              "Username: " & rs.Fields("Username") & vbcrlf & _
   9.
              "Password: " & rs.Fields("Password") & _
  10.
              vbcrlf & vbcrlf & _
  11.
              "You're a very valuable member, we hope you find what you're looking for!"
  12.
 
  13.
               '//test code
  14.
                  Response.Write rs.Fields("UserID") & "=>Join3 b4email send" & vbCRLF
  15.
                  Response.Write rs.Fields("Username") & "=>Join3 b4" & vbCRLF 
 

/include/sendemail.asp:

   2.
      Public Function SendEMail(ToUserID, Subject, Body)
   3.
              Dim cnn
   4.
              Dim SQL
   5.
              Dim rs
   6.
              Dim bOK
   7.
              Dim oMail
   8.
              Dim sName
   9.
              Dim sEMail
  10.
              Set cnn = Connect
  11.
 
  12.
               '//test code - OK response here
  13.
                  Response.Write ToUserID & ":just enter SendEmail!"
  14.
                  Response.Write Subject & ":just enter SendEmail!"
  15.
                  Response.Write Body & ":just enter SendEmail!"
  16.
 
  17.
              If ToUserID = -999 Then
  18.
              sName = "me"
  19.
              sEMail = "[e-mail]"
  20.
 
  21.
              Else
  22.
                  SQL = "SELECT users details From aTable WHERE UsersID = " & ToUserID
  23.
 
  24.
                  Set rs = Server.CreateObject("ADODB.Recordset")
  25.
                  rs.Open SQL,cnn,3,1
  26.
                  If rs.EOF Then
  27.
                      Exit Function
  28.
 
  29.
              Else
  30.
                  sName = rs.Fields("Forenames")
  31.
                  sEMail = rs.Fields("EMail")
  32.
                  rs.Close
  33.
 
  34.
                  End If
  35.
 
  36.
              End If      
  37.
 
  38.
                  '//test code
  39.
                  Response.Write ToUserID & "b4email send" & vbCRLF
  40.
                  Response.Write sEmail & "b4" & vbCRLF
  41.
 
  42.
              '//Send E-Mail;
  43.
                  Set oMail = Server.CreateObject("Persits.MailSender")           
  44.
                  oMail.FromName = "Lovebay"
  45.
                  oMail.From = "[e-mail]"
  46.
                  oMail.Host = "smtp.myhost.com"
  47.
                  oMail.AddAddress sEmail, sName
  48.
                  oMail.Subject = Subject
  49.
                  oMail.Body = Body & GetSig
  50.
                  If oMail.Send Then
  51.
                      bOK = True
  52.
                  Else
  53.
                  bOK = False
  54.
                  End If
  55.
                  oMail.ResetAll
  56.
                  Set oMail = Nothing
  57.
              SendEMail = True
  58.
          End Function 
 

When this code is called from a different page, it works. But when called from the joinUp.asp page, not getting any email, but the response.writes seem ok.

????