Indkøbskurv

Jeg sidder og pusler med en indkøbskurv, men kan ikke få dataerne overførst til mail som skal sendes til mig når der en kunde der har bestilit en vare. Er der en der kan hjælpe?

<%
Response.Expires = 0
Titel = \"Indkøbskurv\"

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"shop.mdb\")

Mode = LCase(Request.QueryString(\"Mode\"))
ID = CLng(Request.QueryString(\"ID\"))
Antal = CLng(Request.QueryString(\"Antal\"))

If CLng(Session(\"CartID\")) = 0 then
  SQLstmt = \"INSERT INTO ShoppingCarts (SessionID, [Date]) VALUES (\" & Session.SessionID & \", \'\" & Now & \"\');\"
  Conn.Execute SQLstmt
  Set RS = Conn.Execute (\"SELECT * FROM ShoppingCarts ORDER BY ID Desc\")
  Session(\"CartID\") = RS(\"ID\")
End If
Select Case Mode
  Case \"tilfoej\"
  If Not Conn.Execute(\"SELECT ID FROM Articles WHERE ID = \" & ID).EOF Then
    If Conn.Execute(\"SELECT ID FROM ShoppingCartItems WHERE CartID = \" & Session(\"CartID\") & \" AND ArticleID = \" & ID).EOF Then
    SQLstmt = \"INSERT INTO ShoppingCartItems (CartID, ArticleID, ArticleAmount) VALUES (\"
    SQLstmt = SQLstmt & Session(\"CartID\") & \", \"
    SQLstmt = SQLstmt & ID & \", \"
    SQLstmt = SQLstmt & \"1);\"
    Conn.Execute SQLstmt
    Else
    Conn.Execute \"UPDATE ShoppingCartItems SET ArticleAmount = ArticleAmount + 1 WHERE CartID = \" & Session(\"CartID\") & \" AND ArticleID = \" & ID
    End If
  End If
  Case \"fjernvare\"
  Conn.Execute \"DELETE FROM ShoppingCartItems WHERE ArticleID = \" & ID
  Case \"nytantal\"
  If Antal < 1 Then
    Conn.Execute \"DELETE FROM ShoppingCartItems WHERE ArticleID = \" & ID
  Else
    Conn.Execute \"UPDATE ShoppingCartItems SET ArticleAmount = \" & Antal & \" WHERE ArticleID = \" & ID
  End If
  Response.Redirect \"viskurv.asp\"
  Case \"toem\"
  Conn.Execute \"DELETE FROM ShoppingCartItems\"
  Response.Redirect \"viskurv.asp\"
  Case \"indtastantal\"
  SQLstmt = \"SELECT \"
  SQLstmt = SQLstmt & \"(SELECT Name FROM Articles WHERE ID = ShoppingCartItems.ArticleID) AS ArticleText, \"
  SQLstmt = SQLstmt & \"ArticleAmount \"
  SQLstmt = SQLstmt & \"FROM ShoppingCartItems WHERE CartID = \" & Session(\"CartID\") & \" AND ArticleID = \" & ID & \";\"
  Set RS = Conn.Execute(SQLstmt)
End Select

SQLstmt = \"SELECT \"
SQLstmt = SQLstmt & \"(ArticleAmount * (SELECT Price FROM Articles WHERE ID = ShoppingCartItems.ArticleID)) AS ArticlePriceTotal, \"
SQLstmt = SQLstmt & \"(SELECT Price FROM Articles WHERE ID = ShoppingCartItems.ArticleID) AS ArticlePrice, \"
SQLstmt = SQLstmt & \"(SELECT Name FROM Articles WHERE ID = ShoppingCartItems.ArticleID) AS ArticleText, \"
SQLstmt = SQLstmt & \"ArticleID, ArticleAmount \"
SQLstmt = SQLstmt & \"FROM ShoppingCartItems WHERE CartID = \" & Session(\"CartID\") & \"; \"
Set RSList = Conn.Execute(SQLstmt)
%>
<%
Select Case Mode
Case \"indtastantal\"
If Not RS.EOF Then
%>
<form action=\"viskurv.asp\" method=\"nytantal\">
<table width=\"100%\" border=\"0\" cellspacing=\"2\" cellpadding=\"5\">
<tr>
<td colspan=\"3\"><font face=\'Verdana\' size=\'1\'><b><%= RS(\"ArticleText\") %></b><b></b></td>
</tr>
<tr>
<td width=\"1%\" nowrap>Nyt antal</td>
<td  width=\"99%\">
<input type=\"text\" name=\"antal\" class=\"FlatInput\" maxlength=\"3\" value=\"<%= RS(\"ArticleAmount\") %>\" style=\"width=40; text-align=right;\">
</td>
<td width=\"1%\">
<input type=\"submit\" name=\"Submit\" value=\"OK\" class=\"FlatButton\">
</td>
</tr>
</table>
<input type=\"hidden\" name=\"id\" value=\"<%= ID %>\">
<input type=\"hidden\" name=\"mode\" value=\"nytantal\">
</form>
  <%
  End If
Case Else
  If Not RSList.EOF Then
  %>
<table width=\"100%\" border=\"0\" cellspacing=\"2\" cellpadding=\"5\">
<tr>
<td width=\"1%\"><font face=\'Verdana\' size=\'1\'><center><b>Varenr.</b></td>
<td width=\"99%\"><font face=\'Verdana\' size=\'1\'><b>Tekst</b></td>
<td width=\"1%\"><font face=\'Verdana\' size=\'1\'><center><b>Antal</b></td>
<td width=\"1%\"><font face=\'Verdana\' size=\'1\'><center><b>&aacute;</b></td>
<td width=\"1%\"><font face=\'Verdana\' size=\'1\'><center><b>Total</b></td>
<td width=\"1%\"></td>
</tr>
  <%
\'
Dim intTaeller
intTaeller = 0 \' start vare tælleren på 0
  Do While Not RSList.EOF
    intTaeller = intTaeller + 1 \' læg 1 til vare tælleren
    %>
<tr>
<td><font face=\'Verdana\' size=\'1\'><center><%= RSList(\"ArticleID\") %></td>
<%
\' Dette indsætter et skujlt felt i din blanket med varens ID nummer til din e-mail behandling
  Response.Write \"<input type=hidden name=\"\"vare\" & intTaeller & \"\"\" value=\"\"\" & RSList(\"ArticleID\") & \"\"\">\" & vbCrLf
\'
%>
<td><font face=\'Verdana\' size=\'1\'><a href=\"visvare.asp?id=<%= RSList(\"ArticleID\") %>\"><%= RSList(\"ArticleText\") %></a></td>
<td><font face=\'Verdana\' size=\'1\'><center><a href=\"viskurv.asp?mode=indtastantal&id=<%= RSList(\"ArticleID\") %>\"><font face=\'Verdana\' size=\'1\'><%= RSList(\"ArticleAmount\") %></a></td>
<td><font face=\'Verdana\' size=\'1\'><center><%= RSList(\"ArticlePrice\") %>,-</td>
<td><font face=\'Verdana\' size=\'1\'><center><%= RSList(\"ArticlePriceTotal\") %>,-</td>
<td><font face=\'Verdana\' size=\'1\'><a href=\"viskurv.asp?mode=fjernvare&id=<%= RSList(\"ArticleID\") %>\">Slet</a></font></td>
</tr>
    <%
    PriceTotal = PriceTotal + RSList(\"ArticlePriceTotal\")
    RSList.MoveNext
  Loop
\'
\' Dette indsætter et skjult felt i din blanket, der indeholder antallet af vare ID numre til de andre skjulte felter.
  Response.Write \"<input type=hidden name=\"\"AntalVarer\"\" value=\"\"\" & intTaeller & \"\"\">\" & vbCrLf
\'
  %>
<tr>
<td colspan=\"4\"><font face=\'Verdana\' size=\'1\'><b>Ialt</b></td>
<td><center><font face=\'Verdana\' size=\'1\'><%= PriceTotal %>,-</td>
<td>&nbsp;</td>
</tr>
</table>
<CENTER><FONT SIZE=\"1\" FACE=\"VERDANA\"><A HREF=\"midt.asp\">Tilbage</A></FONT></CENTER>
  <%
  Else
%>
<font face=\'Verdana\' size=\'1\'><center>Indkøbskurven er tom.<P><A HREF=\"midt.asp\">Tilbage</A></center>
<%
  End If
End Select
%>
<BR><FONT FACE=\"VERDANA\" SIZE=\"1\"><B>* Skal udfyldes!</B></FONT>
<br>
<tr>
<td colspan=\"4\"align=\"left\"> <font face=\"Verdana\" size=\"1\"><B>*</B>Navn</font><br>
<input type=\"text\" name=\"navn\" size=\"40\"><BR>
</td>
</tr>
<tr>
<td colspan=\"4\"align=\"left\"> <font face=\"Verdana\" size=\"1\"><B>*</B>Adresse</font><br>
<input type=\"text\" name=\"adresse\" size=\"40\"><BR>
</td>
</tr>
<tr>
<td colspan=\"4\"align=\"left\"> <font face=\"Verdana\" size=\"1\"><B>*</B>Postnr</font><br>
<input type=\"text\" name=\"postnr\" size=\"4\" maxlength=\"4\"><BR>
</td>
</tr>
<tr>
<td colspan=\"4\"align=\"left\"> <font face=\"Verdana\" size=\"1\"><B>*</B>By</font><br>
<input type=\"text\" name=\"by\" size=\"40\"><BR>
</td>
</tr>
<tr>
<td colspan=\"4\"align=\"left\"> <font face=\"Verdana\" size=\"1\"><B>*</B>E-mail</font><br>
<input type=\"text\" name=\"email\" size=\"40\"><BR>
</td>
</tr>
<tr>
<td colspan=\"4\"align=\"left\"> <font face=\"Verdana\" size=\"1\">Telefon</font><br>
<input type=\"text\" name=\"telefon\" size=\"8\" maxlength=\"8\"><BR>
</td>
</tr>
<tr>
<td colspan=\"4\"align=\"left\">  <font face=\"Verdana\" size=\"1\">Kommentarer</font><br>
<textarea name=\"kommentarer\" cols=\"30\" rows=\"8\"></textarea><BR>
</td>
</tr>
<tr>
<td colspan=\"4\"align=\"left\">
<input type=\"submit\" name=\"submit\" value=\"Send bestilling\" style=\"font-family: Verdana; font-size: 9pt; font-weight: bold\">
</td>
</tr>
</form>
</table>