function Ordertotal() as String
      dim dtblProducts as DataTable
      dim intsumsubtotal as decimal
      dtblProducts=dstProducts.Tables( "Shopcart" )
      if dstProducts.Tables( "shopcart" ).rows.Count() <= 0 
        Return  "0 . 00 "
      else
        intsumsubtotal=dtblProducts.compute( "sum(total)" ,  " sessid=" + session( "session_unicID" ).tostring)
        intsumsubtotal=intsumsubtotal +session( "decsumdelivery" )+session( "decsumdeliveryvat" )
        Return intsumsubtotal.tostring( "c" )
      end if  
    end function

     <td class= "datatabletotal"  colspan= 2 > <asp:label ID= "lbltotal"  text='<%# Ordertotal() %>' Runat=server /></td>