JMail sender kun til egen mailserver

Hej...

Nedenstående script vil kun sende mails til adresser der ender med @hjemmeside.dk, alle andre vil den ikke sende til
Hvad er galt?

  <%
if request.Form("subject") = "" then
    Response.write "Vælg det emne, der passer bedst til din besked"
    Response.write "<br><br><a href=""java script:history.go(-1)"" OnFocus=""window.status='Et trin tilbage'; return true;"" OnMouseOver=""window.status='Et trin tilbage'; return true;"" onMouseOut=""window.status=''; return true;"">Prøv igen</a>"
    Response.end
    elseif request.Form("body") = "" then
    Response.Write "Du har glemt at skrive en besked!"
    Response.write "<br><br><a href=""java script:history.go(-1)"" OnFocus=""window.status='Et trin tilbage'; return true;"" OnMouseOver=""window.status='Et trin tilbage'; return true;"" onMouseOut=""window.status=''; return true;"">Prøv igen</a>"
    Response.end
else
    subject = "Meddelelse fra Hjemmeside.dk, d. " & FormatDateTime(Now, vbLongDate)

    Signature = "Med venlig hilsen" & vbCrLf & "Mig" & vbCrLf & "www.hjemmeside.dk"
   
    ' Databaseforbindelse - husk at angive sti til din database
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("/db/database.mdb")
    Conn.Open DSN

    ' SQL forespørgsel
    strSQL = "Select * from Mailliste"
    Set rs = Conn.Execute(strSQL)
   
Do
    ' Get the form data
            senderEmail = "robot@hjemmeside.dk"
            recipient  = rs("Email")
            body        = vbCrLf & Request.Form("body") & vbCrLf & vbCrLf & Signature

    ' Create the JMail message Object
    set msg = Server.CreateOBject( "JMail.Message" )

    ' Set logging to true to ease any potential debugging
    ' And set silent to true as we wish to handle our errors ourself
    msg.Logging = true
    msg.silent = true

    ' Enter the sender data
    msg.From = senderEmail

    ' Note that as addRecipient is method and not
    ' a property, we do not use an equals ( = ) sign
    msg.AddRecipient recipient

    ' The subject of the message
    msg.Subject = subject

    ' And the body
    msg.body = body

    ' Now send the message, using the indicated mailserver
        if not msg.Send("mail.hjemmeside.dk" ) then
            Response.write "<br>Meddelelsen kunne ikke leveres til: <font color =""#FF0000"">" & recipient & "</font>"
        else
            Response.write "<br>Meddelelsen blev leveret til: <font color =""#00FF00"">" & recipient & "</font>"
        end if
   
    rs.MoveNext
    Loop While Not rs.EOF

end if
%>