Avatar billede wild_thing Nybegynder
14. september 2007 - 01:26 Der er 8 kommentarer

Betalingsform - kan ikke hente det rigtige beløb

Hej..
Jeg er ikke nogle haj til det her og har brugt en hel del timer uden at kunne løse problemet.

Jeg er igang med at lave en betalingsform til interpay.dk og kan ikke få den til at vise det rigtigt beløb. Første gang jeg "køber" kommer der et beløb feks. 300 kr. Næste gang jeg køber feks for 600kr, så står der stadigvæk 300 kr på siden, men den overføre det rigtige beløb til interpay.dk, men det kan kunden bare ikke se.

min kode se sådan ud
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1250"%>
<!--#include file="../Connections/CharonCart.asp" -->
<!--#include file="../settings.asp" -->





<%
Dim rsOrdre
Dim rsOrdre_numRows

Set rsOrdre = Server.CreateObject("ADODB.Recordset")
rsOrdre.ActiveConnection = MM_CharonCart_STRING
rsOrdre.Source = "SELECT *  FROM Orders "
rsOrdre.CursorType = 0
rsOrdre.CursorLocation = 2
rsOrdre.LockType = 1
rsOrdre.Open()

rsOrdre_numRows = 0
%>
<%
Dim rsKunde
Dim rsKunde_numRows

Set rsKunde = Server.CreateObject("ADODB.Recordset")
rsKunde.ActiveConnection = MM_CharonCart_STRING
rsKunde.Source = "SELECT * FROM Customers"
rsKunde.CursorType = 0
rsKunde.CursorLocation = 2
rsKunde.LockType = 1
rsKunde.Open()

rsKunde_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250" />
<title>Kort oplysninger</title>
</head>

<body>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><form action="https://pbs.interpay.dk/auth/" method=post>

            <input type=hidden name=shopid value="<% =shopid %>">
            <input type=hidden name=sessionid value="<% =request("sessionid") %>">
            <input name="amount" type="hidden" id="amount" value="<%=(rsOrdre.Fields.Item("GrandTotal").Value)%>" />
            <input name="cust_name" type="hidden" id="cust_name" value="<%=(rsKunde.Fields.Item("LastName").Value)%>" />
            <input name="cust_street" type="hidden" id="cust_street" value="<%=(rsKunde.Fields.Item("BillingAddress1").Value)%>" />
            <input name="cust_zip" type="hidden" id="cust_zip" value="<%=(rsKunde.Fields.Item("BillingPostalCode").Value)%>" />
            <input name="cust_city" type="hidden" id="cust_city" value="<%=(rsKunde.Fields.Item("BillingCity").Value)%>" />
            <input name="cust_phone" type="hidden" id="cust_phone" value="<%=(rsKunde.Fields.Item("Phone").Value)%>" />
            <input name="cust_email" type="hidden" id="cust_email" value="<%=(rsKunde.Fields.Item("CustomerEmail").Value)%>" />
            <input name="cust_company" type="hidden" id="cust_company" value="<%=(rsOrdre.Fields.Item("OrderID").Value)%>" />
            <p>&nbsp;</p>
      <table width="100%" border="0" cellspacing="0" cellpadding="3">
        <tr>
          <td colspan="2"><b>Kreditkort information: </b></td>
        </tr>
        <tr>
          <td colspan="2">Indtast dine kreditkort oplysninger - kreditkort nummer, udl&oslash;bsdato og kontrol cifre. Det viste bel&oslash;b er det bel&oslash;b der vil blive trukket fra din konto. Alle informationer fra denne side vil blive sendt krypteret til PBS.</td>
        </tr>
        <tr>
          <td width="30%"><b>Bel&oslash;b i Danske kroner:</b></td>
          <td width="70%"><%=(rsOrdre.Fields.Item("GrandTotal").Value)%></td>
        </tr>
        <tr>
          <td><b>Kortnummer:</b></td>
          <td><input name="cardnum" type="text" id="cardnum" size="20" maxlength="50" /></td>
        </tr>
        <tr>
          <td><b>Kontrolcifre :</b></td>
          <td><input name="cvc" type="text" id="cvc" size="3" maxlength="3" /></td>
        </tr>
        <tr>
          <td><b>Udl&oslash;bsdato(m&aring;ned / &aring;r) </b></td>
          <td><select name="emonth" id="emonth">
              <option>01</option>
            <option>02</option>
            <option>03</option>
            <option>04 </option>
            <option>05</option>
            <option>06</option>
            <option>07</option>
            <option>08 </option>
            <option>09</option>
            <option>10</option>
            <option>11</option>
            <option>12 </option>
          </select>
              <font color="#000000"><b>&nbsp;/&nbsp;
              <select name="eyear" id="eyear">
                <option>07</option>
                <option>08</option>
                <option>09 </option>
                <option>10</option>
                <option>11</option>
                <option>12</option>
                <option>13</option>
                <option>14 </option>
                <option>15</option>
                <option>16</option>
                <option>17</option>
                <option>18</option>
                <option>19 </option>
                <option>20</option>
                <option>21</option>
                <option>22</option>
                <option>23 </option>
              </select></td>
        </tr>
        <tr>
          <td colspan="2"><img src="https://pbs.interpay.dk/pictures/?shopid=interpaydemo&image=dankort.gif" border="0" /></td>
        </tr>
        <tr>
          <td colspan="2"><div align="left">
              <input type="submit" name="Submit" value="Gennemfor betaling" />
          </div></td>
        </tr>
      </table>
      <p>
   
      </p>
    </form></td>
  </tr>
</table>

</body>
</html>
<%
rsOrdre.Close()
Set rsOrdre = Nothing
%>
<%
rsKunde.Close()
Set rsKunde = Nothing
%>

Hvor ligger fejlen
Avatar billede montago Praktikant
14. september 2007 - 09:25 #1
argh... havde glemt hvor grim kode Dreamweaver skriver... :D

din fejl ligger sikkert i logikken - dvs hvilken variable der bliver læst / skrevet hvornår...

*har ikke læst koden
Avatar billede wild_thing Nybegynder
14. september 2007 - 15:36 #2
Montago>

øhhh nu er jeg temmelig grøn og fatter ikke hvad du taler om. Har du mulighed for at vise det.

jeg har prøvet at ændre lidt i koden dog uden held

<%
Dim rsOrdre
Dim rsOrdre_numRows

Set rsOrdre = Server.CreateObject("ADODB.Recordset")
rsOrdre.ActiveConnection = MM_CharonCart_STRING
rsOrdre.Source = "SELECT *  FROM Orders WHERE OrderID=" & Request("OrdreID")
rsOrdre.CursorType = 0
rsOrdre.CursorLocation = 2
rsOrdre.LockType = 1
rsOrdre.Open()

rsOrdre_numRows = 0
%>




<%
Dim rsKunde
Dim rsKunde_numRows

Set rsKunde = Server.CreateObject("ADODB.Recordset")
rsKunde.ActiveConnection = MM_CharonCart_STRING
rsKunde.Source = "SELECT * FROM Customers WHERE ID= " AND rsOrder(CustomerID)
rsKunde.CursorType = 0
rsKunde.CursorLocation = 2
rsKunde.LockType = 1
rsKunde.Open()

rsKunde_numRows = 0
%>
Avatar billede montago Praktikant
14. september 2007 - 17:32 #3
ahh...

dét du sikkert gør forkert, er at du henter den forkerte ordre fra databasen... jeg er nødt til at kende de Query/Post variable du sender til siden ( aka. Request("???") )

desuden skal jeg vide hvordan din database ser ud - hvad hedder kollonnerne i Orders og Customers ?


* Burde du ikke få noget prof. hjælp til det her ? - kunde/vare håndtering med betaling er ikke fedt hvis kunderne ikke er 100% på at tingene sker rigtigt !!
Avatar billede wild_thing Nybegynder
19. september 2007 - 18:33 #4
Ja det kan da godt være ;-)

Jeg har nu fået det til at virker....Næsten.
Det vil side at hvis jeg beder kurven om at gå til /hemmeligmappe/form.asp - så virker det. alle data er rigtige og de bliver også overført til interpay, hvor de også passer.

MEN når jeg så beder kuvren om at gå til https://pbs.interpay.dk, som så henter min side i mappen /hemmeligmappe/form.asp, så virker det ikke.
Jeg får denne fejl:

 
ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/hemmeligmappe/form.asp, line 83


Line 83:
<input name="amount" type="hidden" id="amount" value="<%=(OrdersRS.Fields.Item("GrandTotal").Value)%>" />

Har du nogle løsninger, eller er du den prof, du hentydet til ?
Avatar billede wild_thing Nybegynder
19. september 2007 - 18:34 #5
Ups den nye kode ser sådan ud

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1250"%>
<!--#include file="../Connections/CharonCart.asp" -->
<!--#include file="../settings.asp" -->


<%
Dim OrderID,CustomerID
OrderID=Session("OrderID")
CustomerID=Request.Cookies("Products")("CustomerID")
%>
<%
Dim CustomersRS__value
CustomersRS__value = "0"
if (CustomerID <> "") then CustomersRS__value = CustomerID
%>
<%
Dim OrderDetailsRS__value1
OrderDetailsRS__value1 = "0"
if (OrderID <> "") then OrderDetailsRS__value1 = OrderID
%>
<%
Dim OrdersRS__value
OrdersRS__value = "0"
if (OrderID  <> "") then OrdersRS__value = OrderID
%>
<%
set CustomersRS = Server.CreateObject("ADODB.Recordset")
CustomersRS.ActiveConnection = MM_CharonCart_STRING
CustomersRS.Source = "SELECT *  FROM Customers  WHERE CustomerID=" + Replace(CustomersRS__value, "'", "''") + ""
CustomersRS.CursorType = 0
CustomersRS.CursorLocation = 3
CustomersRS.LockType = 3
CustomersRS.Open()
CustomersRS_numRows = 0
%>
<%
set OrderDetailsRS = Server.CreateObject("ADODB.Recordset")
OrderDetailsRS.ActiveConnection = MM_CharonCart_STRING
OrderDetailsRS.Source = "SELECT *,UnitPrice*Quantity as LineTotal  FROM OrderDetails  WHERE OrderID=" + Replace(OrderDetailsRS__value1, "'", "''") + ""
OrderDetailsRS.CursorType = 0
OrderDetailsRS.CursorLocation = 2
OrderDetailsRS.LockType = 3
OrderDetailsRS.Open()
OrderDetailsRS_numRows = 0
%>
<%
set OrdersRS = Server.CreateObject("ADODB.Recordset")
OrdersRS.ActiveConnection = MM_CharonCart_STRING
OrdersRS.Source = "SELECT *  FROM Orders  WHERE OrderID=" + Replace(OrdersRS__value, "'", "''") + ""
OrdersRS.CursorType = 0
OrdersRS.CursorLocation = 2
OrdersRS.LockType = 3
OrdersRS.Open()
OrdersRS_numRows = 0
%>













<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250" />
<title>Kort oplysninger</title>
</head>

<body>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><form action="https://pbs.interpay.dk/auth/" method=post>

            <input type=hidden name=shopid value="<% =shopid %>">
            <input type=hidden name=sessionid value="<% =request("sessionid") %>">
            <input name="amount" type="hidden" id="amount" value="<%=(OrdersRS.Fields.Item("GrandTotal").Value)%>" />
            <input name="cust_name" type="hidden" id="cust_name" value="<%=(CustomersRS.Fields.Item("LastName").Value)%>" />
            <input name="cust_street" type="hidden" id="cust_street" value="<%=(CustomersRS.Fields.Item("BillingAddress1").Value)%>" />
            <input name="cust_zip" type="hidden" id="cust_zip" value="<%=(CustomersRS.Fields.Item("BillingPostalCode").Value)%>" />
            <input name="cust_city" type="hidden" id="cust_city" value="<%=(CustomersRS.Fields.Item("BillingCity").Value)%>" />
            <input name="cust_phone" type="hidden" id="cust_phone" value="<%=(CustomersRS.Fields.Item("Phone").Value)%>" />
            <input name="cust_email" type="hidden" id="cust_email" value="<%=(CustomersRS.Fields.Item("CustomerEmail").Value)%>" />
            <input name="cust_company" type="hidden" id="cust_company" value="<%=(OrdersRS.Fields.Item("OrderID").Value)%>" />
            <input name="OrderID" type="hidden" id="OrderID" value="<% =request("OrderID") %>" />
            <p>&nbsp;</p>
      <table width="100%" border="0" cellspacing="0" cellpadding="3">
        <tr>
          <td colspan="2"><b>Kreditkort information: Order ID </b><%=(OrdersRS.Fields.Item("OrderID").Value)%></td>
        </tr>
        <tr>
          <td colspan="2">Indtast dine kreditkort oplysninger - kreditkort nummer, udl&oslash;bsdato og kontrol cifre. Det viste bel&oslash;b er det bel&oslash;b der vil blive trukket fra din konto. Alle informationer fra denne side vil blive sendt krypteret til PBS.</td>
        </tr>
        <tr>
          <td width="30%"><b>Bel&oslash;b i Danske kroner:</b></td>
          <td width="70%"><%=(OrdersRS.Fields.Item("GrandTotal").Value)%>,00</td>
        </tr>
        <tr>
          <td><b>Kortnummer:</b></td>
          <td><input name="cardnum" type="text" id="cardnum" size="20" maxlength="50" /></td>
        </tr>
        <tr>
          <td><b>Kontrolcifre :</b></td>
          <td><input name="cvc" type="text" id="cvc" size="3" maxlength="3" /></td>
        </tr>
        <tr>
          <td><b>Udl&oslash;bsdato(m&aring;ned / &aring;r) </b></td>
          <td><select name="emonth" id="emonth">
              <option>01</option>
            <option>02</option>
            <option>03</option>
            <option>04 </option>
            <option>05</option>
            <option>06</option>
            <option>07</option>
            <option>08 </option>
            <option>09</option>
            <option>10</option>
            <option>11</option>
            <option>12 </option>
          </select>
              <font color="#000000"><b>&nbsp;/&nbsp;
              <select name="eyear" id="eyear">
                <option>07</option>
                <option>08</option>
                <option>09 </option>
                <option>10</option>
                <option>11</option>
                <option>12</option>
                <option>13</option>
                <option>14 </option>
                <option>15</option>
                <option>16</option>
                <option>17</option>
                <option>18</option>
                <option>19 </option>
                <option>20</option>
                <option>21</option>
                <option>22</option>
                <option>23 </option>
              </select></td>
        </tr>
        <tr>
          <td colspan="2"><img src="https://pbs.interpay.dk/pictures/?shopid=interpaydemo&image=dankort.gif" border="0" /></td>
        </tr>
        <tr>
          <td colspan="2"><div align="left">
              <input type="submit" name="Submit" value="Gennemfor betaling" />
          </div></td>
        </tr>
      </table>
      <p>
   
      </p>
    </form></td>
  </tr>
</table>
</body>
</html>





<%
CustomersRS.Close()
%>
<%
OrderDetailsRS.Close()
%>
<%
OrdersRS.Close()
%>
Avatar billede montago Praktikant
19. september 2007 - 20:23 #6
der kommer BOF eller EOF fejl, hvis du i din SQL laver en fejl som returnere 0 rækker

du skal derfor kigge på dine Selects
Avatar billede wild_thing Nybegynder
19. september 2007 - 20:55 #7
Jamen, så ville fejlen vel også komme når jeg kalder siden direkte eller jeg er helt ved siden af ?
Avatar billede wild_thing Nybegynder
20. september 2007 - 08:22 #8
er det noget du evt. kunne lave for lidt kontakter ?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester