Skal sende mail og skrive til database samtidigt

Jhar en formular der skal sende en mail og skrive til en access database.
Jeg kan ikke rigtig får det til at virker. Nu har jeg fundet ud af at skrive til databasen, men jeg modtager ikke en mail:

Side med Form:
<%@ Language=VBScript %>
<%
    Dim strqInitials, strqModule, strqSchedule, strqStatus, objMail, strqBody
     
    strqInitials = Trim(Request.Form("initials"))
    strqModule = Trim(Request.Form("module"))
    strqSchedule = Trim(Request.Form("schedule"))
    strqStatus = Trim(Request.Form("status"))

    'Hvis felterne er udfyldt, så gør et eller andet med data'ene....
      If strqUserInitials <> "" Then

        Set objMail = Server.CreateObject("CDONTS.NewMail")
        objMail.to = "kim@sapworld.dk"
        objMail.From = strqInitials + "@sapworld.dk"
        objMail.Subject = "Registration"
        strqBody = strqBody + "User Initials: " + strqInitials + vbNewLine
        strqBody = strqBody + "Module: " + strqModule + vbNewLine
        strqBody = strqBody + "Schedule: " + strqSchedule + vbNewLine
        strqBody = strqBody + "Status: " + strqStatus + vbNewLine
        objMail.Body = strqBody
        objMail.Send
       
        Set objMail = Nothing

        Response.Redirect "result.asp"    'Husk at oprette siden result.asp
    End If
%>

Selve form'en på siden:
<form action="display1.asp" method="post" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="62%" id="AutoNumber1">
  <tr>
    <td width="104%" colspan="2" bgcolor="#6699CC">
    <p align="center"><font color="#FFFFFF"><b><span lang="da">Report new tips
    or tricks</span></b></font></td>
  </tr>
  <tr>
    <td width="54%"><span lang="da">initials</span></td>
    <td width="50%">
    <!--webbot bot="Validation" b-value-required="TRUE" i-maximum-length="20" --><input type="text" name="initials" size="20" maxlength="20"></td>
  </tr>
  <tr>
    <td width="54%"><span lang="da">Module:</span></td>
    <td width="50%">
    <!--webbot bot="Validation" b-value-required="TRUE" i-maximum-length="80" --><input type="text" name="module" size="80" maxlength="80"></td>
  </tr>
  <tr>
    <td width="54%"><span lang="da">Schedule:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    </span></td>
    <td width="50%"><input type="text" name="schedule" size="20"></td>
  </tr>
  <tr>
    <td width="54%"><span lang="da">Status:</span></td>
    <td width="50%"><input type="text" name="status" size="5" maxlength="5"></td>
  </tr>
  <tr>
    <td width="54%">&nbsp;</td>
    <td width="50%">&nbsp;</td>
  </tr>
  <tr>
    <td width="100%" colspan="2">
    <p align="center">
<input type="submit" value="Save"></td>
  </tr>
</table>
<p><br>
<span lang="da">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br>
&nbsp;</span></p>
<p>&nbsp;</p>
</form>

Kode på siden result.asp:
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open="hcb_scales_tutorial"
strSQL = "Insert into personer (subject, initials) values('" & request.Form("Course_Week") & "', '" & request.Form("Comments") & "')"
' strSQL = "Insert into personer (description) values('" & Request.Form("description") & "')"
'strSQL = "INSERT INTO PERSONER (tc) VALUES('Kim')"
objConn.Execute(strSQL)
objConn.Close
%>

Hisen

Kim