Jmail - HJÆLP hvad er der galt

Jmail – Hjælp hvad er der galt her :
Den sender kun en bestillings mail til mig, den første –ordrebekræftelse- til kunden bliver ikke sendt.
Databasen med oplysningerne (kundens navn, email osv) ligger 2 biblioteker tilbage, i kunder.mdb
Den skulle gerne finde kundens email i denne database og så sende ordrebekræftelsen til denne email.


<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">
<%
mode = request.querystring(\"mode\")
%>
<html>
<head>
    <title>Bestilling</title>

</head>
<body bgcolor=\"#FFFF00\" link=\"#FF0000\" vlink=\"#FF0000\" alink=\"#FF0000\">

<table border=\"2\" width=\"100%\" bordercolor=\"#FF0000\" bordercolorlight=\"#FF0000\" bordercolordark=\"#FF0000\">
          <tr>
            <td width=\"100%\" bgcolor=\"#FF0000\">
              <p align=\"center\"><font color=\"#FFFFFF\" size=\"6\"><b>Ordreseddel</b></font></p>
            </td>
          </tr>
        </table>



<p><br>
</p>
<div align=\"center\">
  <center>
  <table border=\"2\" width=\"400\" bordercolorlight=\"#FF0000\" bordercolordark=\"#FF0000\" bordercolor=\"#FF0000\" bgcolor=\"#FFFF00\">
    <tr>
      <td width=\"100%\" bgcolor=\"#FF0000\">
        <p align=\"center\"><font color=\"#FFFFFF\"><b>bestil</b></font></td>
    </tr>
    <tr>
      <td width=\"100%\">
        <p align=\"center\">
<!--#include file=\"adovbs.inc\"-->
<%
Set ObjConn = Server.CreateObject(\"ADODB.Connection\")
Set ObjRSuser = Server.CreateObject(\"ADODB.Recordset\")
Set ObjRSuser2 = Server.CreateObject(\"ADODB.Recordset\")
ObjConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../../kunder.mdb\")
strQuery = \"SELECT * FROM bestillinger where owner_id=\'\" & Session(\"telefonnummer\") & \"\' AND afsendt=\'nej\'\"
ObjRSuser.Open strQuery, ObjConn, adOpenStatic, adLockOptimistic

if mode = \"\" then
strQuery2 = \"SELECT * FROM kunder where telefonnummer=\'\" & Session(\"telefonnummer\") & \"\'\"
ObjRSuser2.Open strQuery2, ObjConn, adOpenStatic, adLockOptimistic

  Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
  JMail.ServerAddress = \"websmtp.webadresse.dk\"
  JMail.Sender = \"bestil@webadresse.dk\"
  JMail.Subject = \"bestilling\"
  JMail.AddRecipient  ObjRSuser2(\"e-mail\")
  JMail.Priority = 3
  JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
 
mailbody = \"Tak for deres bestilling, følgende bestillinger er registreret:\" & vbCrLf & vbCrLf
do until ObjRSuser.eof
mailbody = mailbody &_
\"Fil navn: \" & ObjRSuser(\"filnavn\") & \" - Størrelse: \" & ObjRSuser(\"size\") & \" - Antal \" & ObjRSuser(\"antal\") & \" stk. - kr. \" & ObjRSuser(\"pris\") & \" ,-\" & vbCrLf

mailbody2 = mailbody2 & \"../../brugere/\" & Session(\"telefonnummer\") & \"/\" & ObjRSuser(\"filnavn\") & \" - Størrelse: \" & ObjRSuser(\"size\") & \" - Antal \" & ObjRSuser(\"antal\") & \" stk.\" & vbCrLf

ialtpris = int(ialtpris) + int(ObjRSuser(\"pris\"))
ialtbilleder = ialtbilleder + ObjRSuser(\"antal\")

ObjRSuser(\"afsendt\") = \"ja\"
ObjRSuser.Update
ObjRSuser.Movenext
loop
mailbody = mailbody & vbCrlf & \"Start gebyr kr 25 ,-\" & vbCrLf
mailbody = mailbody & vbCrLf &_
    \"Ialt: \" & ialtbilleder & \" stk, pris kr. \" & ialtpris + 25 & \",-\" & vbCrLf & vbCrLf &_
    \"Deres ordre hos os om 3-4 arbejdsdage\" & vbCrLF & vbCrlf &_

  JMail.Body = mailbody

  JMail.Execute
 
  Set JMail = Nothing

 
mailbody3 = \"Følgende er blevet bestilt af:\" & vbCrLf & vbCrLf & ObjRSuser2(\"navn\") & vbCrLf & ObjRSuser2(\"adresse\") & vbCrLf & ObjRSuser2(\"postnummer\") & vbCrLf & ObjRSuser2(\"by\") & vbCrLf &    ObjRSuser2(\"telefonnummer\") & vbCrLf & ObjRSuser2(\"e-mail\") & vbCrLf & vbCrLf & mailbody2 & vbCrLf

  Set JMail2 = Server.CreateObject(\"JMail.SMTPMail\")
  JMail2.ServerAddress = \"websmtp.webadresse.dk\"
  JMail2.Sender = \"4000@webadresse.dk\"
  JMail2.Subject = \"Bestilling modtaget\"
  JMail2.AddRecipient  \"4000@webadresse.dk\"
  JMail2.Priority = 3
  JMail2.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
  JMail2.Body = mailbody3
  JMail2.Execute
  Set JMail2 = Nothing

Response.redirect(\"bestil.asp?mode=bestillingok\")   
end if
if mode = \"sealle\" then
ialtbilleder = 0
ialtpris = 0
response.Write(\"<table>\")
do until ObjRSuser.eof
response.Write(\"<tr>\")
response.write(\"<td>\" & ObjRSuser(\"filnavn\") & \"</td>\")
response.write(\"<td>&nbsp;&nbsp;\" & ObjRSuser(\"size\") & \"</td>\")
response.write(\"<td>&nbsp;&nbsp;\" & ObjRSuser(\"antal\") & \" stk.</td>\")
response.write(\"<td>&nbsp;&nbsp;kr \" & ObjRSuser(\"pris\") & \" ,-</td>\")
response.write(\"</tr>\")
ialtpris = ialtpris + ObjRSuser(\"pris\")
ialtbilleder = ialtbilleder + ObjRSuser(\"antal\")

ObjRSuser.Movenext
loop
response.Write(\"<tr>\")
response.write(\"<td>Start Gebyr</td>\")

response.write(\"<td align=\'right\'></td>\")
response.write(\"<td align=\'right\' colspan=\'2\'>kr. 25,-</td>\")
response.write(\"</tr>\")
response.Write(\"<tr>\")
response.write(\"<td></td>\")

response.write(\"<td align=\'right\'><b>Ialt: </b></td>\")
response.write(\"<td align=\'right\'><b>\" & ialtbilleder & \" stk. </b></td>\")
response.write(\"<td align=\'right\'><b>kr. \" & ialtpris + 25 & \" ,-</b></td>\")
response.write(\"</tr>\")

response.Write(\"</table>\")
response.write(\"<a href=\'bestil.asp\'>Send Bestilling!</a>\")
end if
if mode =\"bestillingok\" then
Response.Write(\"vi har nu modtaget deres bestilling. \")
Response.Write(\"Deres ordre kan afhentes hos os om 3-4 arbejdsdage, tak for ordren.\")
end if
%>

</td>
    </tr>
  </table>
  </center>
</div>

<p align=\"center\"><b><font color=\"#FF0000\">side 5 af 5</font></b></p>

</body>
</html>