Udregning

Jeg har lavet en ASP shop og den virker sådan nogen lunde. Men jeg ved ik hvordan man laver udregning af de forskellige priser. Min ASP kode ser sådan her ud:

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN = DSN & \"DBQ=\" & Server.Mappath (\"database.mdb\")
Conn.Open DSN

strSQL = \"SELECT * FROM sale_kurv Where id = \'\" & s_id & \"\' Order by Dato Desc\"
set rs = Conn.Execute(strSQL)

if rs.eof then
%>
</td>
    <td width=\"33%\">Ingen varer !</td>
    <td width=\"18%\"></td>
    <td width=\"16%\">
      <p align=\"right\"></td>
<%
else
Do
%>
    <td width=\"33%\">
<%
strBase = \"SELECT * FROM sale_product Where id = \" & rs(\"produkt_id\")
set ss = Conn.Execute(strBase)
%><% =ss(\"butik\") %>
</td>
    <td width=\"33%\"><% =ss(\"produktnavn\") %></td>
    <td width=\"18%\"><% =ss(\"pris\") %></td>
    <td width=\"16%\">
      <p align=\"right\"><a href=\"active.asp?vis=slet&id=<% =rs(\"produkt_id\") %>&butik=<% =ss(\"butik\") %>\">Slet
      denne vare</a></td>
  </tr>
<input type=\"hidden\" name=\"saleid_<% =rs(\"sale_id\") %>\" value=\"<% =ss(\"produktnavn\") %>\">
<%
rs.MoveNext
Loop While Not rs.EOF
%>