Hvad mener den med mangler?

må vi se hele koden...?

<%
' Smart Mailer 1.0.1
' Send on submit of form form2
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  Server.ScriptTimeout = 300
  Set sm1 = new SmartMailer
  sm1.checkVersion "1.0"
  sm1.smtpSetup "mail.rackserv.com", "", "", ""
  sm1.component = "jmail"
  sm1.tmpFolder = ""
  sm1.embedImages = false
  sm1.progressBar = ""
  sm1.ignore_errors = true
  sm1.setFrom "Kitchnkool", "butik@kitchnkool.dk"
  sm1.setTo CustomerRS.Fields.Item("FirstName").Value, CustomerRS.Fields.Item("CustomerEmail").Value
  sm1.setCc "", "butik@kitchnkool.dk"
  sm1.setBcc "Ordre bekræftelse", "tommy@fcweb.dk"
  sm1.Subject = "Ordre bekræftelse fra Kitchnkool"
  ' using static for body
  sm1.setBody_Static_html ""
  ' Attachments none
  sm1.sendMail "one"
end if
SM_mailAction = getMailAction()
%>

hele scriptet, altså inklusiv linie 49...

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="Connections/Kitchnkool1.asp" -->
<!--#include file="ScriptLibrary/incSmartMailer.asp" -->

<!--#include file="classes/Cart.asp" -->
<%
set objCart=new Cart
%>
<%
'on error resume next
CustomerID=Request.Cookies("Products")("CustomerID")
%>
<%
Dim CustomerRS__value
CustomerRS__value = "0"
if (CustomerID <> "") then CustomerRS__value = CustomerID
%>
<%
set CustomerRS = Server.CreateObject("ADODB.Recordset")
CustomerRS.ActiveConnection = MM_Kitchnkool1_STRING
CustomerRS.Source = "SELECT *, FirstName + ' ' + LastName as FullName  FROM Customers  WHERE CustomerID=" + Replace(CustomerRS__value, "'", "''") + ""
CustomerRS.CursorType = 0
CustomerRS.CursorLocation = 2
CustomerRS.LockType = 3
CustomerRS.Open()
CustomerRS_numRows = 0
%>
<%
' Smart Mailer 1.0.1
' Send on submit of form form2
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  Server.ScriptTimeout = 300
  Set sm1 = new SmartMailer
  sm1.checkVersion "1.0"
  sm1.smtpSetup "mail.rackserv.com", "", "", ""
  sm1.component = "jmail"
  sm1.tmpFolder = ""
  sm1.embedImages = false
  sm1.progressBar = ""
  sm1.ignore_errors = true
  sm1.setFrom "Kitchnkool", "butik@kitchnkool.dk"
  sm1.setTo CustomerRS.Fields.Item("FirstName").Value, CustomerRS.Fields.Item("CustomerEmail").Value
  sm1.setCc "", "butik@kitchnkool.dk"
  sm1.setBcc "Ordre bekræftelse", "tommy@fcweb.dk"
  sm1.Subject = "Ordre bekræftelse fra Kitchnkool"
  ' using static for body
Linje 49 =  sm1.setBody_Template_html "modul_kunder_order_detajle.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "OrderID=" & rsOrder.Fields.Item("OrderID").Value %>" class="linkshvid"><%=(rsOrder.Fields.Item("OrderID").Value)%>

  ' Attachments none
  sm1.sendMail "one"
end if
SM_mailAction = getMailAction()
%>


<%
'
'Add customised shipping criteria to cart
if objCart.SubTotal <500 then
objCart.Shipping=35
end if
%>
<%
'
'Add customised shipping criteria to cart
if objCart.SubTotal  >500 then
objCart.Shipping=50
end if

%>
<%
'
'Add customised shipping criteria to cart
if objCart.SubTotal  >1000 then
objCart.Shipping=0
end if

%>


<%
'
'Insert record into Orders recordset when form is submitted
'and store the unique OrderID
'
CC_OrderAction=Request.ServerVariables("SCRIPT_NAME")
if Request("CC_OrderInsert") <> "" then
objCart.OrdersTable="Orders"
objCart.OrdersConnectionString=MM_Kitchnkool1_STRING
objCart.OrderKey="OrderID"
objCart.InsertOrder
Session("OrderID")=objCart.OrderID
end if
%>
<%
'
'**Save cart to OrderDetails table in Database**
'
if Request("CC_OrderInsert") <> "" then
objCart.OrderDetailsTable="OrderDetails"
objCart.OrderDetailsConnectionString=MM_Kitchnkool1_STRING
objCart.Bindingvalues=("VarerID,Quantity,,UnitPrice,,,ProductID,ProductName,,,,,")
objCart.Bindingcolumns=("ProductID,Quantity,Name,Price,Weight,Key,VarerID,Varernavn,Varertekst,Pris,Tilbud,Erhverspris,Antal")
objCart.OrderIdColumn="OrderID"
objCart.InsertOrderDetails

end if
%>
<%
'
'Redirect after submitting Cart info to Database
'
if Request("CC_OrderInsert") <> "" then
Response.Redirect "OrderConfirmed.asp"
end if
%>
<%
'
'Redirect if cart is empty
'
if objCart.isCartEmpty then response.redirect "kurv_ingen_varer.asp"
%>


<html xmlns="http://www.w3.org/1999/xhtml"><!-- InstanceBegin template="/Templates/start.dwt" codeOutsideHTMLIsLocked="false" -->
<head>
<!-- InstanceBeginEditable name="doctitle" -->
<title>[ www.kitchnkool.dk ]</title>
<script>
<!--
function doSubmit(myvalue) {
myForm=document.form2
myForm.PaymentMethodID.value=myvalue
myForm.submit()
}

function formButtonFever(formName,action){
    var myString = "document."+formName+"."+action+"();";
    eval(myString);
    }
//-->
</script>
<!-- InstanceEndEditable -->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<link href="/stylrsheet/stylrsheet.css" rel="stylesheet" type="text/css" />

<script language="JavaScript" type="text/JavaScript">
<!--

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
  if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<!-- InstanceBeginEditable name="head" --><!-- InstanceEndEditable -->
</head>

<body bgcolor="#666666" onLoad="MM_preloadImages('/gfx/knapper_05.jpg','/gfx/knapper_02.jpg','/gfx/knapper_06.jpg','/gfx/knapper_03.jpg','/gfx/knapper_04.jpg')">
<div align="center">
  <table width="760" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td><img src="/gfx/kitchnkoollogotop_prove.jpg" name="toplogo" width="760" height="85" id="toplogo" /></td>
    </tr>
    <tr>
      <td height="20" valign="top">
        <table width="760" height="20" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="130" height="20"><a href="/startside.asp"><img src="/gfx/home1.gif" alt="Tilbage til startsiden" width="24" height="15" border="0" /></a></td>
            <td width="100" height="20"><a href="/butik.asp?KontaktID=4"><img src="/gfx/knappergraa_03.jpg" name="Image1" width="100" height="20" border="0" id="Image1" onMouseOver="MM_swapImage('Image1','','/gfx/knapper_03.jpg',1)" onMouseOut="MM_swapImgRestore();MM_swapImgRestore()" /></a></td>
            <td width="100" height="20"><a href="/sidstenyt.asp"><img src="/gfx/knappergraa_05.jpg" name="sidst" width="100" height="20" border="0" id="sidst" onMouseOver="MM_swapImage('sidst','','/gfx/knapper_05.jpg',1)" onMouseOut="MM_swapImgRestore()" /></a></td>
            <td width="100" height="20"><a href="/varer.asp?KontaktID=5"><img src="/gfx/knappergraa_04.jpg" name="Image2" width="100" height="20" border="0" id="Image2" onMouseOver="MM_swapImage('Image2','','/gfx/knapper_04.jpg',1)" onMouseOut="MM_swapImgRestore();MM_swapImgRestore()" /></a></td>
          <td width="100" height="20"><a href="/erhver.asp?KontaktID=6"><img src="/gfx/knappergraa_02.jpg" name="erhver" width="100" height="20" border="0" id="erhver" onMouseOver="MM_swapImage('erhver','','/gfx/knapper_02.jpg',1)" onMouseOut="MM_swapImgRestore()" /></a></td>
            <td width="100" height="20"><a href="/email.asp"><img src="/gfx/knappergraa_06.jpg" name="kontakt" width="100" height="20" border="0" id="kontakt" onMouseOver="MM_swapImage('kontakt','','/gfx/knapper_06.jpg',1)" onMouseOut="MM_swapImgRestore()" /></a></td>
            <td width="130" height="20"></td>
          </tr>
        </table> </td>
    </tr>
  </table>
</div>
<table border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td valign="top">
      <table width="760" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="118" align="left" valign="top" bgcolor="#660000"> <!-- InstanceBeginEditable name="Menuvenstre" -->
            <table width="118" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td> <img src="menufarver/menusort_01.gif" width="118" height="22" alt="" /></td>
              </tr>
              <tr>
                <td> <img src="menufarver/menusort_03.gif" width="118" height="25" alt="" /></td>
              </tr>
              <tr>
                <td> <img src="menufarver/menusort_05.gif" width="118" height="24" alt="" /></td>
              </tr>
              <tr>
                <td> <img src="menufarver/menusort_07.gif" width="118" height="23" alt="" /></td>
              </tr>
              <tr>
                <td> <img src="menufarver/menusort_09.gif" width="118" height="24" alt="" /></td>
              </tr>
              <tr>
                <td> <img src="menufarver/menusort_11.gif" width="118" height="24" alt="" /></td>
              </tr>
              <tr>
                <td> <img src="menufarver/menusort_13.gif" width="118" height="23" alt="" /></td>
              </tr>
              <tr>
                <td> <img src="menufarver/menusort_15.gif" width="118" height="68" alt="" /></td>
              </tr>
              <tr>
                <td bgcolor="660000"><br>
                </td>
              </tr>
            </table>
            <!-- InstanceEndEditable --></td>
          <td width="642" valign="top" bgcolor="#660000" ><!-- InstanceBeginEditable name="brodtekst" -->
            <table width="610" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td><br />
                  <table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
                      <td><table width="450" height="" border="0" align="left">
                          <tr>
                            <td height="23" colspan="4"> <table width="450" border="0" cellpadding="0" cellspacing="0">
                                <tr>
                                  <td valign="bottom"><a href="java script:history.go(-2);"><img src="gfx/kurv_tilbage.jpg" width="100" height="30" hspace="0" vspace="0" border="0"></a></td>
                                  <td valign="bottom">&nbsp;</td>
                                  <td valign="bottom">&nbsp;</td>
                                </tr>
                                <tr>
                                  <td valign="bottom"> <h5 class="forsidetekst"><strong>Ordre
                                      status</strong></h5></td>
                                  <td width="225" valign="bottom"> </td>
                                  <td width="110" valign="bottom"> <div align="right"><a href="UpdateUser.asp"><img src="gfx/kurv_persondata.jpg" border="0"></a></div></td>
                                </tr>
                                <tr>
                                  <td colspan="3" background="gfx/streg.jpg"></td>
                                </tr>
                                <tr>
                                  <td width="282" class="forsidetekst"><strong>Faktura
                                    till:</strong></td>
                                  <td width="282" colspan="2" class="forsidetekst"><strong>Varen
                                    sendes til:</strong></td>
                                </tr>
                                <tr>
                                  <td width="282" class="hvemertekst"><%=(CustomerRS.Fields.Item("FirstName").Value)%>&nbsp;<%=(CustomerRS.Fields.Item("LastName").Value)%></td>
                                  <td width="282" colspan="2" class="hvemertekst"><%=(CustomerRS.Fields.Item("FirstName").Value)%>&nbsp;<%=(CustomerRS.Fields.Item("LastName").Value)%></td>
                                </tr>
                                <tr>
                                  <td width="282" class="hvemertekst"><%=(CustomerRS.Fields.Item("BillingAddress1").Value)%></td>
                                  <td width="282" colspan="2" class="hvemertekst"><%=(CustomerRS.Fields.Item("DeliveryAddress1").Value)%></td>
                                </tr>
                                <tr>
                                  <td width="282" class="hvemertekst"><%=(CustomerRS.Fields.Item("BillingPostalCode").Value)%>&nbsp;&nbsp;<%=(CustomerRS.Fields.Item("BillingCity").Value)%></td>
                                  <td width="282" colspan="2" class="hvemertekst"><%=(CustomerRS.Fields.Item("ShipPostalCode").Value)%>&nbsp;&nbsp;<%=(CustomerRS.Fields.Item("ShipCity").Value)%></td>
                                </tr>
                                <tr>
                                  <td colspan="3" background="gfx/streg.jpg" class="hvemertekst">&nbsp;</td>
                                </tr>
                              </table></td>
                          </tr>
                          <tr>
                            <td colspan="4" align="center">&nbsp;</td>
                          </tr>
                          <tr>
                            <td width="40" align="center"> <h5 class="forsidetekst">Antal</h5></td>
                            <td method="post" action=""> <h5 class="forsidetekst">Varernavn</h5></td>
                            <td width="80"> <h5 align="right" class="forsidetekst">Pris
                                pr. stk:</h5></td>
                            <td width="80" align="right"> <h5 class="forsidetekst">Total</h5></td>
                          </tr>
                          <%
'
'Begin cart repeat region
'
For i=0 to objCart.NumberItems - 1
%>
                          <tr>
                            <td width="40" align="center" class="hvemertekst"><%=objCart.GetCartValue("Quantity",i)%></td>
                            <td class="hvemertekst" method="post" action=""><%=objCart.GetCartValue("Varernavn",i)%></td>
                            <td width="80"> <div align="right" class="hvemertekst"><%= FormatNumber(objCart.GetCartValue("Price",i), 2, -2, -2, -2) %></div></td>
                            <td width="80" align="right" class="hvemertekst"><%= FormatNumber(objCart.LineTotal(i), 2, -2, -2, -2) %></td>
                          </tr>
                          <%
next  'end cart repeat region
%>
                          <tr>
                            <td width="40" align="center">&nbsp;</td>
                            <td method="post" action="">&nbsp; </td>
                            <td width="80" align="right" class="hvemertekst" method="post" action="">&nbsp;</td>
                            <td width="80" align="right" class="forsidetekst">&nbsp;</td>
                          </tr>
                          <tr>
                            <td width="40" align="center">&nbsp;</td>
                            <td method="post" action="">&nbsp;</td>
                            <td width="80" align="right" class="forsidetekst" method="post" action=""><strong>I
                              alt varer:</strong></td>
                            <td width="80" align="right" class="hvemertekst"><%= FormatNumber(objCart.SubTotal, 2, -2, -2, -2) %></td>
                          </tr>
                          <tr>
                            <td width="40" align="center">&nbsp;</td>
                            <td method="post" action="">&nbsp;</td>
                            <td width="80" align="right" class="hvemertekst" method="post" action=""><strong>Fragt:</strong></td>
                            <td width="80" align="right" class="hvemertekst"><%= FormatNumber(objCart.Shipping, 2, -2, -2, -2) %></td>
                          </tr>
                          <tr>
                            <td width="40" align="center">&nbsp;</td>
                            <td method="post" action="">&nbsp;</td>
                            <td width="80" align="right" class="hvemertekst" method="post" action="">&nbsp;</td>
                            <td width="80" align="right">&nbsp;</td>
                          </tr>
                          <tr>
                            <td width="40" align="center">&nbsp;</td>
                            <td method="post" action="">&nbsp;</td>
                            <td width="80" align="right" class="hvemertekst" method="post" action=""><strong>Totalt:</strong></td>
                            <td width="80" align="right" class="hvemertekst"><strong><%= FormatNumber(objCart.GrandTotal, 2, -2, -2, -2) %></strong></td>
                          </tr>
                        </table></td>
                    </tr>
                  </table>
                  <form action="<%=CC_OrderAction%>" name="form2" method="post">
                    <table width="502" border="0" align="center">
                      <tr>
                        <td> <div align="center"><img src="gfx/kurv_bestil.jpg" width="150" height="25" class="hand" onClick="formButtonFever('form2','submit')"></div></td>
                      </tr>
                    </table>
                    <input type="hidden" name="Freight" value="<%=objCart.Shipping%>">
                    <input type="hidden" name="SalesTax" value="<%=objCart.SalesTax%>">
                    <input type="hidden" name="CustomerID" value="<%=(CustomerRS.Fields.Item("CustomerID").Value)%>">
                    <input type="hidden" name="CC_OrderInsert" value="1">
                    <input name="PaymentMethodID" type="hidden">
                    <input type="hidden" name="SubTotal" value="<%=objCart.SubTotal%>">
                    <input type="hidden" name="GrandTotal" value="<%=objCart.GrandTotal%>">
                  </form>
                 
                </td>
              </tr>
            </table>
            <!-- InstanceEndEditable --> <table border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td>&nbsp;</td>
              </tr>
              <tr>
                <td></td>
              </tr>
            </table></td>
        </tr>
        <tr valign="top">
          <td height="20" colspan="2"> <table width="760" height="20" border="0" cellpadding="0" cellspacing="0" class="tabelbund">
              <tr>
                <td width="10" align="center" valign="middle" bgcolor="#666666">
                  <div align="center">
                    <p>&nbsp;</p>
                  </div></td>
                <td align="center" valign="middle" bgcolor="#666666">Nansensgade
                  36 kdl. tv.&nbsp; 1366 KBH.K&nbsp; Tlf: 33141444</td>
                <td width="10" align="center" valign="middle" bgcolor="#666666">&nbsp;</td>
              </tr>
            </table></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><a href="/modul/login.asp" target="_new"><img src="/gfx/login.jpg" alt="" width="10" height="10" border="0" /></a></td>
  </tr>
</table>

</body>
<!-- InstanceEnd --></html>
<%
Set objCart=Nothing
%>
<%
CustomerRS.Close()
%>

se lige om scriptet virker med det her i stedet for det du har:

sm1.setBody_Template_html "modul_kunder_order_detajle.asp?" &  MM_keepNone & MM_joinChar(MM_keepNone) & "OrderID=" & rsOrder.Fields.Item("OrderID").Value & " class='linkshvid'>" & rsOrder.Fields.Item("OrderID").Value)%>

sm1.setBody_Template_html "modul_kunder_order_detajle.asp?" & MM_keepNone & MM_joinChar(MM_keepNone) & "OrderID=" & rsOrder.Fields.Item("OrderID").Value

sm1.setBody_Template_html "modul_kunder_order_detajle.asp?" & MM_keepNone & MM_joinChar(MM_keepNone) & "OrderID=" & rsOrder.Fields.Item("OrderID").Value &" class='linkshvid'>" & rsOrder.Fields.Item("OrderID").Value

Sådan her...

Ny fejl kode nu
---------------
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'MM_joinChar'

/kurv_kassen.asp, line 49

hvad skal din mm_joinchar helt præcist gøre for dig..?

hmm.. ellebaek, hvad er forskellen på mit svar og dit?

Jeg er ikke helt sikker. Men hvis man kunnne fjerne det, vil det ikke være så skidt.
Forskellen på jeres to svar, er at ellebaek virker næsten. Mens thesurfer svar ikke virker, da jeg ikke får lov til at gå videre til næste side :-) som i ellebaeks svar

sm1.setBody_Template_html "modul_kunder_order_detajle.asp?" & MM_keepNone & "OrderID=" & rsOrder.Fields.Item("OrderID").Value &" class='linkshvid'>" & rsOrder.Fields.Item("OrderID").Value

Prøv denne så...

..det er fordi jeg har glemt at fjerne det sidste ")" lige før "%>"

hvad mener du med "virker næsten" ?

Thesurfer -> Læs hvad han skriver før du kommer med kommentare...
Mens thesurfer svar ikke virker, da jeg ikke får lov til at gå videre til næste side :-)

og forskellen var at du havde lavet fejl med den parentes ( som du selv skriver)

Ny fejl igen  :-)
------------
Microsoft VBScript runtime error '800a01a8'

Object required: 'rsOrder'

/kurv_kassen.asp, line 49
--------------------
Ja det er fordi jeg ikke får lov til at nå hen til siden hvor jeg skal bestille varen!

Det er fordi dit kald til databasen ikke eksistere at du får den fejl...

Ligger den i en af de filer som du inkludere i starten...

det var det her je henviste til: "at ellebaek virker næsten"..
enten virker det eller også gør det ikke :)

din kommer ikke videre i linket, mens min gør. Det var forskellen.

At der så kommer en anden fejl har ikke noget med den foregående fejl at gøre.
Det at det virker næsten kan være en fejlfortolkning.
Men hvis man ser på et link, og det enten ikke virker eller også virker, hvad er så at foretrække.......?

Der er fint forbindelse til databasen. Den viser alle de oplysninger den skal.
-----------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="Connections/Kitchnkool1.asp" -->
<!--#include file="ScriptLibrary/incSmartMailer.asp" -->

<!--#include file="classes/Cart.asp" -->
<%
set objCart=new Cart
%>
<%
'on error resume next
CustomerID=Request.Cookies("Products")("CustomerID")
%>
<%
Dim CustomerRS__value
CustomerRS__value = "0"
if (CustomerID <> "") then CustomerRS__value = CustomerID
%>
<%
set CustomerRS = Server.CreateObject("ADODB.Recordset")
CustomerRS.ActiveConnection = MM_Kitchnkool1_STRING
CustomerRS.Source = "SELECT *, FirstName + ' ' + LastName as FullName  FROM Customers  WHERE CustomerID=" + Replace(CustomerRS__value, "'", "''") + ""
CustomerRS.CursorType = 0
CustomerRS.CursorLocation = 2
CustomerRS.LockType = 3
CustomerRS.Open()
CustomerRS_numRows = 0
%>
<%
' Smart Mailer 1.0.1
' Send on submit of form form2
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  Server.ScriptTimeout = 300
  Set sm1 = new SmartMailer
  sm1.checkVersion "1.0"
  sm1.smtpSetup "mail.rackserv.com", "", "", ""
  sm1.component = "jmail"
  sm1.tmpFolder = ""
  sm1.embedImages = false
  sm1.progressBar = ""
  sm1.ignore_errors = true
  sm1.setFrom "Kitchnkool", "butik@kitchnkool.dk"
  sm1.setTo CustomerRS.Fields.Item("FirstName").Value, CustomerRS.Fields.Item("CustomerEmail").Value
  sm1.setCc "", "butik@kitchnkool.dk"
  sm1.setBcc "Ordre bekræftelse", "tommy@fcweb.dk"
  sm1.Subject = "Ordre bekræftelse fra Kitchnkool"
  ' using template for body
  sm1.setBody_Template_html "modul_kunder_order_detajle.asp?" & MM_keepNone & "OrderID=" & rsOrder.Fields.Item("OrderID").Value &" class='linkshvid'>" & rsOrder.Fields.Item("OrderID").Value

  ' Attachments none
  sm1.sendMail "one"
end if
SM_mailAction = getMailAction()
%>


<%
'
'Add customised shipping criteria to cart
if objCart.SubTotal <500 then
objCart.Shipping=35
end if
%>
<%
'
'Add customised shipping criteria to cart
if objCart.SubTotal  >500 then
objCart.Shipping=50
end if

%>
<%
'
'Add customised shipping criteria to cart
if objCart.SubTotal  >1000 then
objCart.Shipping=0
end if

%>


<%
'
'Insert record into Orders recordset when form is submitted
'and store the unique OrderID
'
CC_OrderAction=Request.ServerVariables("SCRIPT_NAME")
if Request("CC_OrderInsert") <> "" then
objCart.OrdersTable="Orders"
objCart.OrdersConnectionString=MM_Kitchnkool1_STRING
objCart.OrderKey="OrderID"
objCart.InsertOrder
Session("OrderID")=objCart.OrderID
end if
%>
<%
'
'**Save cart to OrderDetails table in Database**
'
if Request("CC_OrderInsert") <> "" then
objCart.OrderDetailsTable="OrderDetails"
objCart.OrderDetailsConnectionString=MM_Kitchnkool1_STRING
objCart.Bindingvalues=("VarerID,Quantity,,UnitPrice,,,ProductID,ProductName,,,,,")
objCart.Bindingcolumns=("ProductID,Quantity,Name,Price,Weight,Key,VarerID,Varernavn,Varertekst,Pris,Tilbud,Erhverspris,Antal")
objCart.OrderIdColumn="OrderID"
objCart.InsertOrderDetails

end if
%>
<%
'
'Redirect after submitting Cart info to Database
'
if Request("CC_OrderInsert") <> "" then
Response.Redirect "OrderConfirmed.asp"
end if
%>

sm1.setBody_Template_html "modul_kunder_order_detajle.asp?" & MM_keepNone & "OrderID=" & CustomerRS.Fields.Item("OrderID").Value &" class='linkshvid'>" & CustomerRS.Fields.Item("OrderID").Value

Sådan her måske....

Hvad er det jeg har rodet mig ud i  :-)
-------------------------
ADODB.Fields error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/kurv_kassen.asp, line 49

Er du sikker på at OrderID findes i databasen...

Ja for mit komplette katalog virker fint. Det er kun lige denne del, hvor den skal sende en asp side af sted som  en mail.

og CustomerID findes, så du får sat den nye variabel...: CustomerRS__value ??

Det kunne måske godt være der, problemet er. Hvis den nu ikke har det nye OrderID inden den sender mailen af sted?

Hvis den ikke har det vil den lave fejl, da du vælger dette orderID...

Det kan godt være en Item can not be found fejl...
Har selv haft problemer med denne type ting tidligere, at databasen ikke opdateres før der sendes videre til en ny side...

Jeg bliver nødt til at hoppe i seng nu.
Skriv hvis du stadig har problemer...

Mvh. Jens!

Jep det skal jeg nok.
Jeg takker for hjælpen.
Her er de 100 P. Dem har du trods alt arbejdet lidt for  :-)
Så godnat herfra