Hjælp til E-shop!

1. jeg mener at fejlen skyldes at der ikke er installeret JMail på den server der kører det

2. lav et felt i ordren der hedder besked, og lav et felt i ordretabellen i databasen der også hedder besked. Så sætter du bare in d at den også skal gemme beskeden

3. Vidst kun i demoform

4. du fjerner dette her:

      <tr>
        <td width="11%" align="center" class="story">&nbsp;</td>
        <td width="36%" class="story" method="post" action="">&nbsp;</td>
        <td width="14%" class="story" method="post" action="">&nbsp;</td>
        <td colspan="2" align="right" class="story" method="post" action="">Moms:</td>
        <td width="12%" align="right" class="story">Kr <%= FormatNumber(objCart.SalesTax, 2) %></td>
      </tr>

og

så retter du i denne funktion i cart.asp

    public function GrandTotal
        GrandTotal=cdbl(SubTotal) + cdbl(Shipping) + cdbl(SalesTax) - cdbl(Discount)
    end function

så der kun står

    public function GrandTotal
        GrandTotal=cdbl(SubTotal) + cdbl(Shipping) - cdbl(Discount)
    end function

moejensen:
1. Så vidt jeg ved er der jmail på serveren (wannafind.dk)!

2. Det vil jeg lige rode lidt med...

3. Har du nogen ide, hvordan jeg kan fixse den?

4. Den roder jeg også videre med....

1. har du et testlink, så kan vi se efter

2. ok

3. sidder selv og roder med det i øjeblikket

4. ok

For pokker det glemte jeg i spørgsmålet

http://www.lystfiskerens.net/shop2/shop/index.html

4'eren er ok nu!

jmail.Message error '8000ffff'

Error: 550 The following recipients could not be sent to: webmaster@stege-brand.dk; 550 relay not permitted

/shop2/shop/OrderConfirmed.asp, line 133

du skal i OrderConfirmed.asp rette linien JMail.Send "" så der mellem "" står den SMTP server du bruger

det er linie 133 \JMail.Send (servernavn.Fields.Item("UdgPostserver").Value)\
du mener ikk?

yep

det er sikkert også noget du kan rette i databsen i det felt der hedder UdgPostserver

Jeg har prøvet at ændre den, men det ser ikke ud til at virke

ADODB.Fields error '800a0cc1'

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

/shop2/shop/OrderConfirmed.asp, line 133

Jeg har en
udgående postser. mail.stegenet.dk
indgående postser. mail.web-byggeren.dk (web-hotel)

moejensen:

Jeg har næsten fået 2'eren til at virke, mangler lige at den tilføjer beskeden i mailen!

Kan etteren ha' noget med at gøre, at det Cc:adresse der er fejl på, den sender mailen til køberen, men ikke til sælgeren som er Cc???

i JMail.AddRecipientCC skal der stå din adresse. Enten ved at du skriver den i db'en i det rigtige feldt, eller du hardcoder den ind, således JMail.AddRecipientCC "min@mail.dk"

det samme kan du også gøre med Send komandoen, således

JMail.Send "mail.stegenet.dk"

HMM - jeg får denne fejl:

jmail.Message error '8000ffff'

Error: 550 The following recipients could not be sent to: info@web-byggeren.dk; 550 relay not permitted

/shop2/shop/OrderConfirmed.asp, line 133


med dette stykke kode:

Set JMail = Server.CreateObject("JMail.Message")
JMail.From =  (shopmail.Fields.Item("Email1").Value)
JMail.FromName = (shopnavn.Fields.Item("Shopnavn").Value)
JMail.Subject ="Ordrebekræftelse"
JMail.AddRecipient CustomersRS("CustomerEmail")
JMail.AddRecipientCC "info@web-byggeren.dk"
JMail.ContentType = "text/html"
JMail.Body = Mailbody
JMail.Send "mail.stegenet.dk"
end function

Spørgsmål 2+4 er løst!!

prøv at hør wannafind, hvilken smtp du skal bruge når du sender mails via JMail på deres servere.

moejensen:

Kan du bruge det her til noget inden jeg kontakter dem?

Det har jeg fundet på deres site

w3 JMail

Nedenstående er et eksempel på brug af JMail komponenten på vores server.

----------------------------------------------------------------------
set msg = Server.CreateOBject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = "mitnavn@web-byggeren.dk"
msg.FromName = "Mit Navn"
msg.AddRecipient "Modtagers e-mail adresse"
msg.Subject = "Emne"
msg.Body = "Hele e-mailen - bla bla!"

if not msg.Send("backup-mx.wannafind.dk") then
Response.Write "Mailen kunne ikke afsendes grundet:<br>"
Response.Write msg.log
else
Response.Write "Mailen er korrekt afsendt."
end if
----------------------------------------------------------------------

Komponenten bruges i dette tilfælde til at sende en mail vha. vores SMTP service.

Alle tekster markeret med rød, kan udskiftes med variabler.

så bruger du bare backup-mx.wannafind.dk som SMTP

HMmm nu ligner det noget....
Nu kommer der ingen fejlmeddelse op, men den sender ingen mail til sælgeren (mig)

prøv med en anden mail adresse

sender den ti lcc adressen

Har prøvet flere mailadresser, men det virker ikke!

Ja det er Cc adressen den ikke sender, men 2 til køberen????

hvordan ser din kode ud nu

UPS...........Jeg store klovn

Jeg troede jeg kunne se forskel på mailene...........det kunne man ikke, så det virker ok nu - moejensen!!!

super

moejensen- hvad fandt du ud af på 3'eren?

den kan jeg ikke hjælpe dig med desværre.

moejensen -> hænger du stadig på?

hvad mener du?

Ved ikke om du har mod til at hjælpe mig med 3'eren?

Ser du jeg har siddet og tænkt/rodet med den og jeg tror jeg har fundet en mindre krævende ide, men der mangler lidt kode hist og her!!!

Jeg prøver lige at smide min ide på "bordet" og så kan du se om det er noget du har lyst til at kaste dig ud i: Hvis ikke så er der igen bad feeling ;o))

CheckOut1.asp (betalingsdel)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/CharonCart.asp" -->
<!--#include file="classes/Cart.asp" -->
<%
set objCart=new Cart
%>
<%
'on error resume next
CustomerID=Request.Cookies("Products")("CustomerID")
%>
<%
Dim CustomersRS__value
CustomersRS__value = "0"
if (CustomerID <> "") then CustomersRS__value = CustomerID
%>
<%
set CustomersRS = Server.CreateObject("ADODB.Recordset")
CustomersRS.ActiveConnection = MM_CharonCart_STRING
CustomersRS.Source = "SELECT *, FirstName + ' ' + LastName as FullName  FROM Customers  WHERE CustomerID=" + Replace(CustomersRS__value, "'", "''") + ""
CustomersRS.CursorType = 0
CustomersRS.CursorLocation = 2
CustomersRS.LockType = 3
CustomersRS.Open()
CustomersRS_numRows = 0
%>
<%
Dim ShippingRS__value
ShippingRS__value = "0"
if (CCcart_SubTotal  <> "") then ShippingRS__value = CCcart_SubTotal
%>

<%
Dim VatRS__value
VatRS__value = "Denmark"
If (CustomersRS("ShipCountry")  <> "") Then
  VatRS__value = CustomersRS("ShipCountry")
End If
%>

<%
set ShippingRS = Server.CreateObject("ADODB.Recordset")
ShippingRS.ActiveConnection = MM_CharonCart_STRING
ShippingRS.Source = "SELECT *  FROM Shipping  WHERE MinPurchase <= " + Replace(ShippingRS__value, "'", "''") + " AND MaxPurchase > " + Replace(ShippingRS__value, "'", "''") + ""
ShippingRS.CursorType = 0
ShippingRS.CursorLocation = 2
ShippingRS.LockType = 3
ShippingRS.Open()
ShippingRS_numRows = 0
%>

<%
set VatRS = Server.CreateObject("ADODB.Recordset")
VatRS.ActiveConnection = MM_CharonCart_STRING
VatRS.Source = "SELECT *  FROM Countries  WHERE CountryName='" + Replace(VatRS__value, "'", "''") + "'"
VatRS.CursorType = 0
VatRS.CursorLocation = 2
VatRS.LockType = 3
VatRS.Open()
VatRS_numRows = 0
%>
<%
'
'Add shipping from a value in a recordset
'The recordset may be pre-filtered based on the CCcart_SubTotal value
'
if not ShippingRS.eof then
objCart.Shipping=ShippingRS("ShippingCost")
end if
%>
<%
'
'Add sales tax from value in recordset
'
if not VatRS.eof then
objCart.SalesTax=(objCart.SubTotal + objCart.Shipping - objCart.Discount) * VatRS("VATrate")
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_CharonCart_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_CharonCart_STRING
objCart.Bindingvalues=("ProductID,Quantity,ProductName,UnitPrice,,,Colour,ProductSize")
objCart.Bindingcolumns=("ProductID,Quantity,Name,Price,Weight,Key,Colour,Size")
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 "ShoppingCartEmpty.asp"
%>

<html>
<head>
<title>Check ud</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="Styles.css">
<script>
<!--
function doSubmit(myvalue) {
myForm=document.form2
myForm.PaymentMethodID.value=myvalue
myForm.submit()
}
//-->
</script>

</head>
<body TOPMARGIN=0 LEFTMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 bgcolor="#FFFFFF" >
<div id="content">
<h2 id="pageName">
    <table width="90%" cellspacing="0" cellpadding="0" border="0">
      <tr>
        <td><h2>Betalingsform</h2></td>
        <td>&nbsp;</td>
        <td align="right"><!--#include file="subheader.asp" --></td>
      </tr>
    </table>
  </h2>
  <div> <br>
<a href="Default.asp"><< Forts&aelig;t med at handle</a><br>
<br>
    <br>
    Evt. Bem&aelig;rkning eller kommentar:
    <form action="CheckOut.asp" name="form2" method="post">
      <p>
        <textarea name="besked" cols="30" rows="4"></textarea>
      </p>
      <table width="500" border="0">
        <tr>
          <td colspan="2"><h1>V&aelig;lg Betalingsform</h1></td>
        </tr>
        <tr>
          <td colspan="2">Du v&aelig;lger herunder hvordan du &oslash;nsker at
            betale. Hvis du v&aelig;lger at betale med bankoverf&oslash;rsel,
            s&aring; sparer du efterkravsgebyret. </td>
        </tr>
        <tr>
          <td width="30"><input type="radio" name="penge" value="70"></td>
          <td>Efterkrav (gebyr DKK 70,00) </td>
        </tr>
        <tr>
          <td width="30"><input type="radio" name="penge" value="30"></td>
          <td>Forudbetaling (Bank: reg: xxxx konto: xxxxxxx, angiv ordrenummer
            p&aring; overf&oslash;rsel.) </td>
        </tr>
      </table>
      <p><br>
      </p>
      <table width="502" border="0">
        <tr>
          <td>
            <input type="submit" name="Submit" value="Forts&aelig;t ordreafgivelsen &gt;&gt;"></td>
        </tr>
      </table>
     
   
    </form>
    <br>
  </div>
  </div>
<!--#include file="footer.asp" -->
</body>
</html>
<%
Set objCart=Nothing
%>
<%
CustomersRS.Close()
%>
<%
VatRS.Close()
%>
<%
ShippingRS.Close()
%>


CheckOut.asp


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/CharonCart.asp" -->
<!--#include file="classes/Cart.asp" -->
<%
set objCart=new Cart
%>
<%
'on error resume next
CustomerID=Request.Cookies("Products")("CustomerID")
%>
<%
Dim CustomersRS__value
CustomersRS__value = "0"
if (CustomerID <> "") then CustomersRS__value = CustomerID
%>
<%
set CustomersRS = Server.CreateObject("ADODB.Recordset")
CustomersRS.ActiveConnection = MM_CharonCart_STRING
CustomersRS.Source = "SELECT *, FirstName + ' ' + LastName as FullName  FROM Customers  WHERE CustomerID=" + Replace(CustomersRS__value, "'", "''") + ""
CustomersRS.CursorType = 0
CustomersRS.CursorLocation = 2
CustomersRS.LockType = 3
CustomersRS.Open()
CustomersRS_numRows = 0
%>
<%
Dim ShippingRS__value
ShippingRS__value = "0"
if (CCcart_SubTotal  <> "") then ShippingRS__value = CCcart_SubTotal
%>

<%
Dim VatRS__value
VatRS__value = "Denmark"
If (CustomersRS("ShipCountry")  <> "") Then
  VatRS__value = CustomersRS("ShipCountry")
End If
%>

<%
set ShippingRS = Server.CreateObject("ADODB.Recordset")
ShippingRS.ActiveConnection = MM_CharonCart_STRING
ShippingRS.Source = "SELECT *  FROM Shipping  WHERE MinPurchase <= " + Replace(ShippingRS__value, "'", "''") + " AND MaxPurchase > " + Replace(ShippingRS__value, "'", "''") + ""
ShippingRS.CursorType = 0
ShippingRS.CursorLocation = 2
ShippingRS.LockType = 3
ShippingRS.Open()
ShippingRS_numRows = 0
%>

<%
set VatRS = Server.CreateObject("ADODB.Recordset")
VatRS.ActiveConnection = MM_CharonCart_STRING
VatRS.Source = "SELECT *  FROM Countries  WHERE CountryName='" + Replace(VatRS__value, "'", "''") + "'"
VatRS.CursorType = 0
VatRS.CursorLocation = 2
VatRS.LockType = 3
VatRS.Open()
VatRS_numRows = 0
%>
<%
'
'Add shipping from a value in a recordset
'The recordset may be pre-filtered based on the CCcart_SubTotal value
'
if not ShippingRS.eof then
objCart.Shipping=ShippingRS("ShippingCost")
end if
%>
<%
'
'Add sales tax from value in recordset
'
if not VatRS.eof then
objCart.SalesTax=(objCart.SubTotal + objCart.Shipping - objCart.Discount) * VatRS("VATrate")
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_CharonCart_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_CharonCart_STRING
objCart.Bindingvalues=("ProductID,Quantity,ProductName,UnitPrice,,,Colour,ProductSize")
objCart.Bindingcolumns=("ProductID,Quantity,Name,Price,Weight,Key,Colour,Size")
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 "ShoppingCartEmpty.asp"
%>

<html>
<head>
<title>Check ud</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="Styles.css">
<script>
<!--
function doSubmit(myvalue) {
myForm=document.form2
myForm.PaymentMethodID.value=myvalue
myForm.submit()
}
//-->
</script>
<script>

function validate(theform) { 

  if(theform.penge.value=='') {
    alert ('Email skal udfyldes');
    return false;
  }
 
 
 



 
  return true;
}
</script>
</head>
<body TOPMARGIN=0 LEFTMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 bgcolor="#FFFFFF" >
<div id="content">
  <h2 id="pageName">
    <table width="90%" cellspacing="0" cellpadding="0" border="0">
<tr>
    <td><h2>Bestilling</h2></td>
    <td align="right"><!--#include file="subheader.asp" --></td>
</tr>
</table></h2>
  <div> <br>
<a href="Default.asp"><< Forts&aelig;t med at handle</a><br>
<br>

    <table width="100%" border="0" cellpadding="5" cellspacing="0">
      <tr class="tableheader">
        <td width="11%" align="center"> Antal</td>
        <td width="36%" method="post" action=""> Varenavn</td>
        <td width="14%" method="post" action=""> Str.</td>
        <td width="16%" method="post" action=""> Farve</td>
        <td width="11%" align="center"> Stk. pris</td>
        <td width="12%" align="center"> Total</td>
      </tr>
      <%
'
'Begin cart repeat region
'
For i=0 to objCart.NumberItems - 1
%>
      <tr class="story">
        <td width="11%" align="center"><%=objCart.GetCartValue("Quantity",i)%></td>
        <td width="36%" method="post" action=""><%=objCart.GetCartValue("Name",i)%></td>
        <td width="14%" method="post" action=""><%=objCart.GetCartValue("Size",i)%></td>
        <td width="16%" method="post" action=""><%=objCart.GetCartValue("Colour",i)%></td>
        <td width="11%" align="right">Kr <%= FormatNumber(objCart.GetCartValue("Price",i), 2) %></td>
        <td width="12%" align="right">Kr <%= FormatNumber(objCart.LineTotal(i), 2) %></td>
      </tr>
      <%
next  'end cart repeat region
%>
    </table>
    <table width="100%" border="0" cellpadding="5" cellspacing="0">
      <tr>
        <td width="11%" align="center" class="story">&nbsp;</td>
        <td width="36%" class="story" method="post" action="">&nbsp;</td>
        <td width="14%" class="story" method="post" action="">&nbsp;</td>
        <td colspan="2" align="right" class="story" method="post" action="">Sub
          Total:</td>
        <td width="12%" align="right" class="story">Kr <%= FormatNumber(objCart.SubTotal, 2) %>
        </td>
      </tr>
      <tr>
        <td width="11%" align="center" class="story">&nbsp;</td>
        <td width="36%" class="story" method="post" action="">&nbsp;</td>
        <td width="14%" class="story" method="post" action="">&nbsp;</td>
        <td colspan="2" align="right" class="story" method="post" action="">Forsendelse:</td>
        <td width="12%" align="right" class="story">Kr <%= FormatNumber(objCart.Shipping, 2) %> </td>
      </tr>
     
      <tr>
        <td width="11%" align="center" class="story">&nbsp;</td>
        <td width="36%" class="story" method="post" action="">&nbsp;</td>
        <td width="14%" class="story" method="post" action="">&nbsp;</td>
        <td colspan="2" align="right" class="story" method="post" action="">Ialt
          total:</td>
        <td width="12%" align="right" class="story">Kr <%= FormatNumber(objCart.GrandTotal, 2) %></td>
      </tr>
    </table><br>
    Evt. Bem&aelig;rkning eller kommentar:
    <form action="<%=CC_OrderAction%>" name="form2" method="post">
      <p>
        <textarea name="besked" cols="30" rows="4"></textarea>
      </p>
      <table width="500" border="0">
        <tr>
          <td colspan="2"><h1>V&aelig;lg Betalingsform</h1></td>
        </tr>
        <tr>
          <td colspan="2">Du v&aelig;lger herunder hvordan du &oslash;nsker at
            betale. Hvis du v&aelig;lger at betale med bankoverf&oslash;rsel,
            s&aring; sparer du efterkravsgebyret. </td>
        </tr>
        <tr>
          <td width="30"><input type="radio" name="penge" value="Efterkrav"></td>
          <td>Efterkrav (gebyr DKK 70,00) </td>
        </tr>
        <tr>
          <td width="30"><input type="radio" name="penge" value="Bank"></td>
          <td>Forudbetaling (Bank: reg: xxxx konto: xxxxxxx, angiv ordrenummer
            p&aring; overf&oslash;rsel.) </td>
        </tr>
      </table>
      <p><br>
      </p>
      <table width="502" border="0">
        <tr>
          <td>
            <input type="submit" name="Submit" value="Send Ordre"></td>
        </tr>
      </table>
      <input type="hidden" name="Freight" value="<%= FormatNumber(objCart.Shipping, 2) %>">
      <input type="hidden" name="SalesTax" value="<%= FormatNumber(objCart.SalesTax, 2) %>">
      <input type="hidden" name="CustomerID" value="<%=(CustomersRS.Fields.Item("CustomerID").Value)%>">
      <input type="hidden" name="CC_OrderInsert" value="1">
      <input type="hidden" name="PaymentMethodID">
      <input type="hidden" name="SubTotal" value="<%= FormatNumber(objCart.SubTotal, 2) %>">
      <input type="hidden" name="GrandTotal" value="<%= FormatNumber(objCart.GrandTotal, 2) %>">
      <input name="AffiliateID" type="hidden" id="AffiliateID" value="<%= Request.Cookies("Affiliates")("AffiliateID") %>">     
   
    </form>
    <br>
  </div>
  </div>
<!--#include file="footer.asp" -->
</body>
</html>
<%
Set objCart=Nothing
%>
<%
CustomersRS.Close()
%>
<%
VatRS.Close()
%>
<%
ShippingRS.Close()
%>

Det er så meningen at den skal ligge fragtprisen og beskeden over i CheckOut.asp!!!
altså medregn fragten og glemme begge i ordren!!!

Moejensen -> Jeg fik lavet 3'eren med "Request.Form" halløj, men det er kun bedre held end forstand !!!

Ups-Tak for din store tålmodighed og hjælp!

det var så lidt