navn i mail??

Hvorfor kommer modtagerens navn ikke ind i deres mail??

<%
    bRequireLogin = True
    bDontCount = True
    sPageTitle = \"Counselor - MailSender\"
    bAdminOnly = True
    lSubjectID = 0
    sTitleBar = \":: <a href=\"\"/dev/index.asp\"\" class=whitenavlink>Start</a> :: mailsender\"

%>

<!--#include virtual=\"/dev/_header.asp\"-->
<!--#include virtual=\"/dev/_db.asp\"-->
<!--#include virtual=\"/dev/_send.asp\"-->

<%
    if request(\"cmdSend\") <> \"\" then
        sSubject = request(\"txtSubject\")
        sFrom = request(\"txtFrom\")
        sGetBody = request(\"txtBody\")
        if request(\"chkNotification\") <> \"\" then sFilter = \" WHERE subNotifications = True\"
        if request(\"chkNewsletter\") <> \"\" then
            if len(sFilter) <> 0 then
                sFilter = sFilter & \" OR subNewsletter = True\"
            else
                sFilter = \" WHERE subNewsletter = True\"
            end if
        end if

        if request(\"chkAllUsers\") <> \"\" then sFilter = \"\"

        OpenDB sConnUsers

        sSQL = \"SELECT * FROM Users\" & sFilter
        rs.Open sSQL,,,adCmdTable

        response.write \"<br>Beginning MailSender Sequence...<br><br>\"

        do while not rs.eof or rs.bof
            sFirstName = rs(\"FirstName\")
            sTo = rs(\"eMail\")
            sBody = replace(sGetBody, \"*FirstName*\", sFirstName)

            SendCDOMail sTo, sSubject, sBody, sFrom

            response.write \"Mail sent to:: \" & rs(\"UserName\") & \":: \" & sTo & \"<br>\"
            rs.movenext
        loop

        response.write \"<br>All mails sent! <a href=\"\"sendmail.asp\"\">Click here</a> to return to MailSender.\"
        %>
        <!--#include virtual=\"/dev/_footer.asp\"-->
        <%
        response.end
    end if
%>

<br>

<p class=\"smallaction\"> MailSenderen</p>

Alt hvad du skriver herunder bliver sendt til alle brugerne<br>
<br>
<strong>Brugernes fornavn kommer automatisk ind i mailen.</strong> <form action=\"sendmail.asp\" method=\"post\">
<table border=0><table border=0>
    <tr>
        <td class=\"smallerheader\">Subject</td>
        <td><input type=\"text\" name=\"txtSubject\" class=\"tbflat\" value=\"<%=sSubject%>\"></td>
    </tr>
    <tr>
        <td class=\"smallerheader\">From</td>
        <td><input type=\"text\" name=\"txtFrom\" class=\"tbflat\" value=\"<%=sFrom%>\"></td>
    </tr>
    <tr>
        <td class=\"smallerheader\">Body</td>
        <td><textarea cols=40 rows=5 name=\"txtBody\" class=\"tbflat\"><%=sBody%></textarea></td>
    </tr>
    <tr>
        <td></td>
        <td><input type=\"submit\" name=\"cmdSend\" value=\" Send \" class=\"cmdflat\"></td>
    </tr>
    <tr>
        <td></td>
        <td><br><br><input type=\"checkbox\" name=\"chkNotification\" value=\"1\"<%=bNotification%>> Update Notification</td>
    </tr>
    <tr>
        <td></td>
        <td><input type=\"checkbox\" name=\"chkNewsletter\" value=\"1\"<%=bNewsletter%>> Newsletter</td>
    </tr>
    <tr>
        <td></td>
        <td><input type=\"checkbox\" name=\"chkAllUsers\" value=\"1\"<%=bAllUsers%>> Send to ALL users</td>
    </tr>
</table>
</form>

<p class=\"smalleraction\">
WARNING:
</p>

<!--#include virtual=\"/dev/_footer.asp\"-->