Problem med e-shop

ehm .. ja nu skal du høre ... hvad med noget kode !?

hvilken kode vil du have ?

tjae .. hvad med noget fra shopping systemet ?tror du ikke der er en fejl siden den kommer med den medelelse når du HAR slået cookies til ?

fejlen vises også hvis du ikke har sat global.asa korrekt op. (har du husket at tilføje medfølgende kode i global.asa?)
Desuden kommer koden også hvis du ikke har har gjort stien til programmet virtuelt.

Disse to ovenstående ting skal være gjort korrekt ellers virker ashopkart ikke.

tdaugaard -> her er noget kode fra filen som tilføjer vare i kurven

*********************
<%@ Language=VBScript %>
<% Option Explicit %>

<%
\'shopping cart code on this page -
\'generates session variables with order items
\'a.shopKart - (c) Katrien De Graeve - katrien@URLogy.com

%>

<!-- #include file=\"db.inc\" -->

<%
Dim prodid, quantity, arrCart, scartItem
prodid = Request.Form(\"fproductid\")
quantity = Request.Form(\"fquantity\")
arrCart = Session(\"MyCart\")
scartItem = Session(\"cartItem\")

If scartItem = \"\" Then
    Response.Redirect \"error.asp?msg=\" & Server.URLEncode (\"We noticed you do not accept cookies. Please enable cookies to shop.\")
End If

If prodid <> \"\" Then
    If scartItem < maxCartItems Then
        scartItem = scartItem + 1
    End If
    Session(\"cartItem\") = scartItem
    dim rsItem
    Set rsItem = Server.CreateObject(\"ADODB.Recordset\")
    rsItem.Open \"products\", dbc, adOpenForwardOnly,adLockReadOnly,adCmdTable
    rsItem.Filter = \"catalogID = \" & prodid
    If Not rsItem.EOF Then
        arrCart(cProductid,scartItem) = rsItem(\"catalogID\")
        arrCart(cProductCode,scartItem) = rsItem(\"ccode\")
        arrCart(cProductname,scartItem) = rsItem(\"cname\")
        arrCart(cQuantity,scartItem) = CInt(quantity)
        arrCart(cUnitPrice,scartItem) = rsItem(\"cprice\")
        Session(\"MyCart\") = arrCart
        rsItem.Close
        dbc.Close
    End If
Else

Dim strAction
strAction = UCase(Left(Request.Form(\"action\"),3))

Select Case strAction

Case \"FOR\"
    Response.Redirect \"default.asp\"
   
Case \"OPD\"

    For i = 1 To scartItem
    Dim tquantity
    tquantity = Request.Form(\"Quantity\" & Cstr(i))
    arrCart(cQuantity,i) = CInt(tquantity)
    Next
   
    For i = 1 to scartItem
    Dim confirm
    confirm = Request.Form(\"selected\" & CStr(i))
    If confirm <> \"yes\" Then
        scartItem = scartItem - 1
        Dim x
        For x = 1 to UBound(arrCart,1)
                arrCart(x,i) = \"\"
            Next
            Dim n
            n = i
            while n < UBound(arrCart,2)
                For x = 1 to UBound(arrCart,1)
                    arrCart(x,n) = arrCart(x,n + 1)
                    arrCart(x,n + 1) = \"\"
                Next
                n = n + 1
            wend   
    end If
    Next
        Session(\"cartItem\") = scartItem
        Session(\"MyCart\") = arrCart


Case \"TIL\"
    Response.Redirect \"customer.asp\"

End Select
End If


%>
<html>

<head>
<script language=\"JavaScript\" src=\"net_time.js\"></script>
<script language=\"JavaScript\" src=\"frames.js\"></script>
<title>V e l s D a t a . d k</title>
</head>
<body  bgcolor=\"#B5BEAD\" link=\"#FFFFFF\" vlink=\"#FFFFFF\" onLoad=\"InternetTime();\" leftmargin=\"0\" topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\" alink=\"#D2D2D2\">
<div align=\"center\">
  <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"700\" height=\"1\">
    <caption>&nbsp;</caption>
    <tr>
      <td width=\"5\" bgcolor=\"#004676\" height=\"19\" valign=\"top\">
        <p align=\"left\"><img border=\"0\" src=\"vt.jpg\"></p>
      </td>
  <center>
      <td width=\"119\" bgcolor=\"#004676\" height=\"19\" valign=\"middle\"><b><font color=\"#FFFFFF\" face=\"Verdana\" size=\"1\">VelsData.dk</font></b></td>
      <td width=\"422\" bgcolor=\"#004676\" height=\"19\" valign=\"middle\"><font color=\"#000000\">&nbsp;</font></td>
  </center>
      <td width=\"203\" bgcolor=\"#004676\" height=\"19\" valign=\"middle\">
        <p align=\"right\"><b><font size=\"1\" color=\"#FFFFFF\" face=\"Verdana\"><%=date%>&nbsp;<font face=\"Verdana\" size=\"1\" color=\"#FFFFFF\"><span id=\"reloj\"></span></font>
        </font></b></p>
      </td>
      <td width=\"6\" bgcolor=\"#004676\" height=\"19\" valign=\"top\">
        <p align=\"right\"><img border=\"0\" src=\"ht.jpg\"></p>
      </td>
    </tr>
  <center>
    <tr>
      <td width=\"126\" bgcolor=\"#FFFFFF\" height=\"69\" colspan=\"2\" valign=\"middle\">
        <p align=\"center\">&nbsp;<img border=\"0\" src=\"http://www.vels.dk/beta/1.jpg\"></center>
    </td>
      <th width=\"360\" bgcolor=\"#FFFFFF\" height=\"1\" bordercolor=\"#000000\" valign=\"top\">
  <p align=\"center\"><font face=\"Verdana\" size=\"4\"><br>
  </font><font face=\"Verdana\" size=\"4\"><br>
  </font></p>

 
 
 
 
  </th>
  <center>
  </center>
      <th width=\"204\" bgcolor=\"#FFFFFF\" height=\"1\" bordercolor=\"#000000\" valign=\"top\" colspan=\"2\" align=\"left\">
  &nbsp;

 
 
 
 
  </th>
    </tr>
  <tr>
      <td width=\"135\" bgcolor=\"#FFFFFF\" height=\"125\" colspan=\"2\" valign=\"top\">
     
       
  <p align=\"center\">
     
       
  <!--#include file=\"menu.asp\" -->
       

     
     
  </p>


     
     
      </td>
      <td width=\"565\" bgcolor=\"#FFFFFF\" height=\"125\" valign=\"top\" colspan=\"3\">
       

 
 
 
 
  <table border=\"0\" width=\"95%\" cellpadding=\"4\">
    <tr>
      <td width=\"100%\" valign=\"top\">
        <h4 align=\"center\"><b><font face=\"Verdana\" size=\"2\" color=\"#000000\">Vare
        i kurven:</font></b></h4>
      </td>
    </tr>
    <tr>
      <td width=\"620\" valign=\"top\">
        <p>&nbsp;
        <form action=\"addprod.asp\" method=\"POST\">
          <div align=\"center\">
            <center>
            <table border=\"0\" cellPadding=\"3\" cellSpacing=\"2\" width=\"523\">
              <tr bgColor=\"darkblue\">
                <td width=\"97\" bgcolor=\"#004676\"><font face=\"Verdana\" size=\"2\" color=\"#FFFFFF\"><b>Varenummer</b></font></td>
                <td width=\"149\" bgcolor=\"#004676\"><font face=\"Verdana\" size=\"2\" color=\"#FFFFFF\"><b>Vare</b></font></td>
                <td width=\"52\" bgcolor=\"#004676\"><font face=\"Verdana\" size=\"2\" color=\"#FFFFFF\"><b>Antal</b></font></td>
                <td width=\"91\" bgcolor=\"#004676\"><font face=\"Verdana\" size=\"2\" color=\"#FFFFFF\"><b>Pris
                  pr. Stk.</b></font></td>
                <td width=\"84\" bgcolor=\"#004676\"><font face=\"Verdana\" size=\"2\" color=\"#FFFFFF\"><b>Total</b></font></td>
              </tr>
              <%
Dim isubtotal, i
isubtotal = 0
For i = 1 to scartItem
              %>
              <tr bgColor=\"navajowhite\">
                <td bgcolor=\"#EEEEEE\" width=\"97\"><font face=\"Verdana\" size=\"2\"><input name=\"selected<%= Cstr(i)%>\" type=\"checkbox\" value=\"yes\" checked><%= arrCart(cProductCode,i) %>
                  </font></td>
                <td bgcolor=\"#EEEEEE\" width=\"149\"><font face=\"Verdana\" size=\"2\"><%= arrCart(cProductname,i) %>
                  </font></td>
                <td bgcolor=\"#EEEEEE\" width=\"52\"><font face=\"Verdana\" size=\"2\"><input type=\"text\" name=\"quantity<%= CStr(i) %>\" value=\"<%= arrCart(cQuantity,i) %>\" size=\"6\"></font></td>
                <td bgcolor=\"#EEEEEE\" width=\"91\"><font face=\"Verdana\" size=\"2\"><%= FormatCurrency(arrCart(cUnitPrice,i),2) %>
                  </font></td>
                <td bgcolor=\"#EEEEEE\" width=\"84\"><font face=\"Verdana\" size=\"2\">
                  <p align=\"right\"><%= FormatCurrency(arrCart(cUnitPrice,i) * arrCart(cQuantity,i),2) %>
                  </font></td>
              </tr>
              <%
    isubtotal = (isubtotal + (arrCart(cUnitPrice,i) * arrCart(cQuantity,i)))
    Next
              %>
              <tr>
                <td width=\"97\"></td>
                <td width=\"149\"></td>
                <td width=\"52\"></td>
                <td bgColor=\"#004676\" width=\"91\"><font face=\"Verdana\" size=\"2\" color=\"#FFFFFF\"><b>Total</b></font></td>
                <td bgColor=\"#EEEEEE\" width=\"84\">
                  <p align=\"right\"><font face=\"Verdana\" size=\"2\"><%= FormatCurrency(isubtotal,2) %>
                  </font></td>
              </tr>
            </table>
            </center>
          </div>
          <p align=\"center\"><br>
          <input name=\"action\" type=\"submit\" value=\"Forsæt handel\" style=\"font-family: Verdana; font-size: 10 pt; color: #FFFFFF; background-color: #004676; border-style: outset\">
          <input name=\"action\" type=\"submit\" value=\"Opdater\" style=\"font-family: Verdana; font-size: 10 pt; color: #FFFFFF; background-color: #004676; border-style: outset\">
          <input name=\"action\" type=\"submit\" value=\"Til kassen\" style=\"font-family: Verdana; font-size: 10 pt; color: #FFFFFF; background-color: #004676; border-style: outset\"></p>
        </form>
      </td>
    </tr>
  </table>
  &nbsp;

 
 
 
 

        </td>
  </tr>
  <tr>
      <td width=\"691\" bgcolor=\"#FFFFFF\" height=\"42\" colspan=\"5\" valign=\"top\">
  <p align=\"center\">
  <font face=\"Verdana\" size=\"1\">Alle priser er inkl. 25% moms, eksl. leverings omkostninger.<br>
Der tages forbehold for tastefejl, prisændringer og udsolgte varer.<br>
  © 2000 <a href=\"mailto:Data@vels.dk\"><font color=\"#000000\">VelsData.dk</font></a></font>

 
 
 
 
  </p>

 
 
 
 
      </td>
  </tr>
    <tr>
      <td width=\"1\" bgcolor=\"#004676\" height=\"19\" valign=\"bottom\">
        <p align=\"left\"><font color=\"#FFFFFF\">&nbsp;<img border=\"0\" src=\"vb.jpg\"></font></p>
      </td>
  <center>
      <td width=\"121\" bgcolor=\"#004676\" height=\"19\">&nbsp;</td>
      <td width=\"420\" bgcolor=\"#004676\" height=\"19\">
        <p align=\"center\"><font size=\"1\" face=\"Verdana\" color=\"#FFFFFF\">© 1998-2000
        <a href=\"mailto:data@vels.dk\">VelsData.dk</a>
        Alle rettigheder forbeholdes.</font></td>
  </center>
      <td width=\"205\" bgcolor=\"#004676\" height=\"19\">
        <p align=\"right\"><font color=\"#FFFFFF\">&nbsp;</font></td>
      <td width=\"1\" bgcolor=\"#004676\" height=\"19\" valign=\"bottom\">
        <p align=\"right\"><font color=\"#FFFFFF\"><img border=\"0\" src=\"hb.jpg\"></font></p>
      </td>
    </tr>
  </table>

</div>
<p align=\"center\">&nbsp;</p>
<p align=\"center\">&nbsp;</p>
</body>


</html>
***************************

akr21jb -> jegruger den global.asa fil som følger med  og stien til databasen er korrekt

kuk kuk er den her tråd bare helt død ?

Tjae, jeg ved ikke rigtigt hvad du skal gøre.
Jeg har opgivet, og overlader det her til eksperterne. Sorry.

tjaa, så må vi jo lige lade trådenvære åben lidt mere

siden der ikkesker noget her må jeg vellukke spørgsmålet uden noget svar.

/mikkel.jor