---
title: "Multiplicera ett värde från ett Recordset"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/118924-multiplicera-ett-värde-från-ett-recordset"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "devotion"
published: "2004-12-29T15:58:58.000Z"
updated: "2004-12-29T16:17:06.000Z"
replies: 2
views: 293
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/118924-multiplicera-ett-värde-från-ett-recordset"
---

# Multiplicera ett värde från ett Recordset

## #1 — devotion, 2004-12-29T15:58Z

Hej!

Har följande kod

```
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<!-#Include virtual="/adovbs.inc"->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>S&ouml;kresultat</title>

<%

Dim objConn, strSearch, strSQL, objRS

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=Prislista"
objConn.Open

strSearch = Request.Form("searchField")

strSQL = "SELECT * FROM tblPricelist WHERE eNumber = '" & strSearch & "' ORDER BY eNumber DESC"

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn

Response.Write("Du har sökt på E-nummer: <b>" & strSearch & "</b><br>")
Response.Write("<BR>")
If objRS.EOF then
Response.Write("Det finns inga artiklar med E-nummer: " & strSearch & "<br>")

Else

Response.Write("Följande artiklar finns i databasen: <br>")
Response.Write("<BR>")

Response.Write("<table class=""tabell"" width=""800"" border=""1"" cellspacing=""0"" cellpadding=""0"">")
  Response.Write("<tr><td><b>E-nummer</b></td><td><b>Benämning</b></td><td><b>Enhet</b></td><td><b>Pris Solar</b></td><td><b>Pris Storel</b></td></tr>")

Do While not objRS.EOF
Response.Write("<tr><td>" & objRS("eNumber") & "</td><td>" & objRS("articleName") & "</td><td>" & objRS("articleUnit") & "</td><td>" & objRS("articlePriceSolar") & "</td><td>" & objRS("articlePriceStorel") & "</td></tr></table>")

objRS.Movenext
Loop
End if
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
```

Är detta en "bra" kodning???

I databasen lagras priserna på artiklarna i ören. Men jag vill att de ska presenteras i kronor när man gör en sökning. (dvs multiplicera med 0,01) 

Att göra sådana operationer med en variabel är inga problem men hur gör jag det när det loopas ur en databas? ( objRS("articlePriceStorel"))

Permalänk: https://www.webforum.nu/p/118924

## #2 — cyprys, 2004-12-29T16:11Z

Det är bara att skriva

```
(cint(objRS("articlePriceStorel"))*0.01)
```

Men ännu smidigare vore nog:

```
strSQL = "SELECT (articlePriceStorel * 0.01) as priceSEK FROM tblPricelist WHERE eNumber = '" & strSearch & "' ORDER BY eNumber DESC"
```

Permalänk: https://www.webforum.nu/p/1515662

## #3 — devotion, 2004-12-29T16:17Z

Tack!!!
 :) 

Mvh

Permalänk: https://www.webforum.nu/p/1515668

---

Tråden på webben: https://www.webforum.nu/amne/asp/118924-multiplicera-ett-värde-från-ett-recordset