Udtræk data udfra udregnet værdi

UPS her er scriptet:

<%
response.write "<p>"
arrVareLinier = Split(Request.Cookies("steinshoppingcart"), "|")

if isarray(arrVareLinier) = True then
  for i = lbound(arrVareLinier) to ubound(arrVarelinier)
      arrVare = Split(arrVareLinier(i), "*")
  next
else
  'returnerede ikke array
end if

Sub writeLine(pAntal, pID)

    set rsshop = Connshop.Execute("select * from produkter where PID = "& pID &"")
    pris = FormatNumber(rsshop("pPris"), 0)
   
    'læg til totalen
    total = total + (pris * pAntal)
    'skriv række
    with response
        .write "<tr valign='top'>"
        .write "<td><a href='" & sitesettings("Uwebadress") & "extra/03extra/save.asp?howmany=1&whatitem="&rsshop("PID")&"&redirectpath="&Request.ServerVariables("PATH_INFO")&"'><img src='../../admin/ekstras/03extra/images/thumbs/plus.gif' width='9' height='9' border='0'></a> <a href='" & sitesettings("Uwebadress") & "extra/03extra/minus.asp?removethis="&pAntal&"*"&rsshop("PID")&"&redirectpath="&Request.ServerVariables("PATH_INFO")&"'><img src='../../admin/ekstras/03extra/images/thumbs/minus.gif' width='9' height='9' border='0'></a>" & pAntal & "x" & Left(rsshop("Poverskrift"),150) & "</td>"
        .write "<td><div align='right'>kr. " & pris*pAntal & ".-</div></td>"
        .write "</tr>"
    End with
   
    rsshop.Close
   
End Sub

dim total, arrVareLinier, arrVare, cookieShop

cookieShop = Request.Cookies("steinshoppingcart")

if cookieShop <> "" then
   
    'fjerner sidste | - hvis der er et... :o)
    'således at der ikke bliver fejl når der splittes
    If Right(cookieShop, 1) = "|" then
        cookieShop = Left(cookieShop, Len(cookieShop) - 1)
    End if
   
    'åben db conn
    Set Connshop = Server.CreateObject("ADODB.Connection")
    Connshop.Open MM_database_STRING

    'varelinie ser sådan ud:
    'antal*varenr XX|antal*varenr XX|
    arrVareLinier = Split(cookieShop, "|")
       
    if isarray(arrVareLinier) = False then
        'returnerede ikke array
        Response.Write "Kurven er ikke gyldig!"
        'slutter udførsel
        Response.End
    end if   

    with response
        .write "<table width='100%'  border='0' cellpadding='4' cellspacing='1' bgcolor='#000000'>"
        .write "<tr>"
        .write "<td bgcolor='#9DACBF'><b>Indk&oslash;bskurv</b></td>"
        .write "</tr>"
        .write "<tr>"
        .write "<td bgcolor='#FFFFCC'><table width='100%'  border='0' cellspacing='0' cellpadding='0'>"
   
        for i = lbound(arrVareLinier) to ubound(arrVarelinier)
            'splitter ved *
            arrVare = Split(arrVareLinier(i), "*")
            Call writeLine(arrVare(0), arrVare(1))
        next
       
        .write "<tr valign='top'>"
        .write "<td>&nbsp;</td>"
        .write "<td>&nbsp;</td>"
        .write "</tr>"
        .write "<tr valign='top'>"
        .write "<td>Moms<br><b>Total</b></td>"
        'udskriv totalen...
        .write "<td><div align='right'>kr. "& total*0.25 &".-<br><b>kr. " & total  &".-</b></div></td>"
        .write "</tr>"
        .write "<tr valign='top'>"
        .write "<td colspan='2'><div align='right'><br><a href='" & sitesettings("Uwebadress") & "extra/03extra/checkout/index.asp'>Check ud <img src='../../admin/ekstras/03extra/images/thumbs/shoppingcart.gif' width='22' height='26' border='0' align='absmiddle'></a></a></div></td>"
        .write "</tr>"
        .write "</table></td>"
        .write "</tr>"
        .write "</table>"
    end with
   
    'lukker og slukker :o)
    Connshop.close
    set arrVareLinier = Nothing
    set arrVare = Nothing
    set connshop = Nothing
end if

%>

hvad er det for en DB?

Det er en access database!

bruger ikke selv access, men kan du ikke lave en sub-select i din select hvor du regner den samlede vægt ud for de produkter der er valgt?

Jeg lukker, tak for hjælpen