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"
Trådstart#1
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ö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"))
