Hvorfor får jeg ikke mailen her?

Et andet sted på sitet får jeg en mail med samme setup af mailkomponenten....


<%

  mail = Request.form(\"mail\")
  if mail=1 then
    email = Request.form(\"email\")
      tekst = Request.form(\"bestil\")
      \'Company = Request.form(\"Company\")
      \'ToComments = Request.form(\"ToComments\")
      \'HearAbout = Request.form(\"HearAbout\")

      strName = \"Dennis\"
      strEmail = \"dennis@kragekjaer.dk\"

      strSubject = \"Bestilling af minipjecer fra website.\"
      strBody = tekst

Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
      Mailer.RemoteHost = \"mail.kragekjaer.dk\"
      Mailer.FromName = email
      Mailer.FromAddress = email
      Mailer.AddRecipient strName, strEmail
      Mailer.Subject = (strSubject)
      Mailer.BodyText = strBody

if Mailer.SendMail then
      status=\"cool\"
    else
      status=\"not cool\"
      Response.Write Mailer.Response
  end if
 
  end if
  %>
<html>
<head>
<!-- #BeginEditable \"doctitle\" -->
<title>Fokus-net</title>
<!-- #EndEditable -->
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<link rel=\"STYLESHEET\" type=\"text/css\" href=\"fokus.css\">
<link rel=\"stylesheet\" href=\"oversigt.css\" type=\"text/css\"/>
<script type=\"text/javascript\" src=\"oversigt.js\"></script>
</head>

<body bgcolor=\"#cccccc\" text=\"#000000\" leftmargin=\"0\" topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\" background=\"images/vertikal.gif\">
<table width=\"750\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" height=\"100%\">
  <tr>
    <td height=\"100%\" width=\"80\">&nbsp;</td>
    <td height=\"100%\" valign=\"top\">
      <table width=\"90%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
        <tr>
          <td>&nbsp;</td>
        </tr>
        <tr>
          <td class=\"overskrift\" valign=\"top\"><!-- #BeginEditable \"Headline\" -->Bestilling
            af pjecer<!-- #EndEditable --></td>
        </tr>
        <tr>
          <td>&nbsp;</td>
        </tr>
        <tr>
          <td><img src=\"images/horisontal.gif\" width=\"100%\" height=\"1\"></td>
        </tr>
        <tr>
          <td class=\"overskrift\"><%=status%></td>
        </tr>
        <tr>
          <td class=\"tekst\" valign=\"top\">
<!-- #BeginEditable \"Tekst\" -->
<form name=\"bestillling\" method=\"post\" action=\"takmail.asp?mail=1\">
<%
if mail=\"\" then
       
        Set Con = Server.CreateObject    (\"ADODB.Connection\")
        Con.open = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"& Server.MapPath(\"minipjecer.mdb\")    
   
    response.write \"<br>Du vil bestille:<br><br>\"
    response.write \"<textarea name=bestil cols=50 rows=10 wrap=VIRTUAL class=FormBox>\"
    sqlString= \"Select * from mini\"
    set rs=Con.Execute (sqlString)
   
    while not rs.eof
    If Request.form(CStr(rs(\"id\"))) <> \"\" Then
    response.write Request.form(CStr(rs(\"id\")))
    response.write \"&nbsp;\"
    response.write \"stk. af pjecen:&nbsp\"
   
    response.write rs(\"titel\")
   
    response.write VbCrLf    
    End if
    rs.movenext
    wend
   
    response.write \"</textarea><br><br>\"
   
    end if
%>
              F&oslash;r du bestiller skal nedenst&aring;ende udfyldes:<br>
              <br>

                   
              <table width=\"100%\" border=\"0\" cellspacing=\"2\" cellpadding=\"0\">
                <tr>
                  <td width=\"39%\" class=\"tekst\" height=\"13\">Titel</td>
                  <td width=\"61%\" height=\"13\">
                    <input type=\"text\" name=\"titel\" class=\"FormBox\">
                  </td>
                </tr>
                <tr>
                  <td width=\"39%\" class=\"tekst\" height=\"11\">Navn</td>
                  <td width=\"61%\" height=\"11\">
                    <input type=\"text\" name=\"navn\" class=\"FormBox\">
                  </td>
                </tr>
                <tr>
                  <td width=\"39%\" class=\"tekst\">Institution</td>
                  <td width=\"61%\">
                    <input type=\"text\" name=\"institution\" class=\"FormBox\">
                  </td>
                </tr>
                <tr>
                  <td width=\"39%\" class=\"tekst\">Afdeling</td>
                  <td width=\"61%\">
                    <input type=\"text\" name=\"afdeling\" class=\"FormBox\">
                  </td>
                </tr>
                <tr>
                  <td width=\"39%\" class=\"tekst\">Adresse</td>
                  <td width=\"61%\">
                    <input type=\"text\" name=\"adresse\" class=\"FormBox\">
                  </td>
                </tr>
                <tr>
                  <td width=\"39%\" class=\"tekst\">Postnummer &amp; by </td>
                  <td width=\"61%\">
                    <input type=\"text\" name=\"postnummer\" size=\"4\" class=\"FormBox\">
                    <input type=\"text\" name=\"by\" size=\"13\" class=\"FormBox\">
                  </td>
                </tr>
                <tr>
                  <td width=\"39%\" class=\"tekst\">Telefon/e-mail adresse</td>
                  <td width=\"61%\">
                    <input type=\"text\" name=\"email\" class=\"FormBox\">
                  </td>
                </tr>
                <tr>
                  <td width=\"39%\" class=\"tekst\">&nbsp;</td>
                  <td width=\"61%\" class=\"tekst\">&nbsp;</td>
                </tr>
                <tr>
                  <td width=\"39%\" class=\"tekst\">&nbsp;</td>
                  <td width=\"61%\">
                    <input type=\"submit\" name=\"Submit\" value=\"send\" class=\"FormBox\">
                  </td>
                </tr>
              </table>
</form>
<!-- #EndEditable -->

det kan ses på www.kragegekjaer.dk/fokus...under publikationer, minipjecer