shopping cart

det var jo ikke mange info at gå ud fra...

PLease giv et eksempel på koden så bliver det noget nemmere at svare

<%
Dim ordrer
Dim ordrer_numRows

Set ordrer = Server.CreateObject("ADODB.Recordset")
ordrer.ActiveConnection = MM_db_STRING
ordrer.Source = "SELECT * FROM ordrer where brugernavn = '" + Replace(aktivbruger__MMColParam, "'", "''") +"'"

ordrer.CursorType = 0
ordrer.CursorLocation = 2
ordrer.LockType = 3
ordrer.Open()
ordrer_numRows = 0
%>

          <% If (Session("MM_Username")) <> ("") Then 'script %>
          <%  brugernu = aktivbruger.Fields.Item("fornavn").Value %>
          <% End If ' end If (Session("MM_Username")) <> ("") script %>
         
          <% If (Session("ordrer")) <> ("") Then 'script %>
          <%  ordrenr = ordrer.Fields.Item("ordrenr").Value %>
          <% End If ' end If (Session("MM_Username")) <> ("") script %>

        <p align="center"> <%=(aktivbruger.Fields.Item("fornavn").Value)%></p>
        <p align="center"><div align="center">
          <p><font size="2" face="Tahoma">Tak fordi du handlede i VFI SHOPPEN. Varerne vil blive afsendt hurtigst muligt. </font></p>
        <p><font size="2" face="Tahoma">Ordre nummer er <br>

        <%=(ordrer.Fields.Item("ordrenr").Value)%><br>

Jeg kan ikke lige gennemskue den dybere mening med din kode men jeg har lavet det således at jeg først tjekke hvad den sidste post i ordretabellen hedder, derefter gemmer jeg den i næste nummer.

cirka således...

Ordre_SQL="Select * from ordre order by ordre_nummer desc"
Set Ordre_Rs=Conn.Execute(Ordre_SQL)
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
  Recordset1.Open Ordre_SQL, Conn, 3, 3
  Recordset1.addnew
    Recordset1("ordre_kunde_nummer") = Str_kunde_nummer
    Recordset1("Ordre_dato") = date()
    Recordset1("ordre_arkiv") = 0
    Str_Ordre_nummer = Ordre_rs("ordre_nummer") + 1
  Recordset1.Update
Recordset1.Close

Mvh

Ares - alias Peter@TheStringSite.com
http://www.TheStringSite.com/

mange takker :o)