CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

bassa Nybegynder

22. juli 2007 - 21:15 Der er 5 kommentarer og
1 løsning

Nogle som kan finde regnefejl i dette script?

Hej,

Kan ikke selv finde ud af ASP, så jeg må spørge jer.

Jeg har en mailer.asp fil, som udregner pris og totalbeløb på en bestillingsliste.

Efter at have bestilt en række varer, kommer den med denne udregnede liste:

Varenr.: Varenavn: Stk. pris kr.: Antal:
04-101 Frokosttallerken, hvid 2,85 100
06-308 Champagneglas, Paris 3,50 50
06-303 Vandglas 2,85 50
06-304 Øl- og sodavandsglas 2,85 100
05-401 Thermokande, kaffe 9,50 7
05-405 Professionel kaffemaskine med 2 kolber 120,00 1
06-101 Hvidvinsglas, Paris 2,85 50
06-102 Dessertvinglas, Paris 2,85 50
01-18080 Bord 180x80 55,00 2
04-400 Salt- og pebersæt, sort top 4,00 7
07-200 Gafler 2,00 50
09-200 3-armet, rund fod 40,00 2
05-100 Kaffekop, hvid med kagetallerken 3,75 50
07-201 Dessertgaffel/Kagegaffel 2,00 50
01-BR150 Bord, rundt Ø 1,50 m. 75,00 7
03-102 Stofdug i hvid 140x220 65,00 2
07-300 Teskeer 2,00 50
09-300 5-armet, rund fod 60,00 7
11-100 Glasaskebæger 2,00 7
05-103 Flødekande, hvid 4,00 7
11-107 Køleskab 150,00 1
11-108 Flagstang med spyd og flag, 4 meter 50,00 2
04-100 Middagstallerken, hvid 3,00 50
06-104 Cognacglas, Paris 2,85 50
02-04 Wienerstol, m. polster 11,00 50
04-102 Sidetallerken, hvid 2,85 50
07-100 Kniv 2,00 50
03-202 Papirdug Ø180 til runde borde, hvid og blå 80.00 7
05-104 Sukkerskål, hvid 4,00 7
06-100 Rødvinsglas, Paris 2,85 50
Kørsel 400,00
Total incl. moms (moms udgør 12.217,40): 61.087,00

Det er åbenlyst, at 61.087,00 kr. er alt for meget for de bestilte varer.

Er der nogle af jer, som kan rette denne fejl?

ASP-fil:

<%@ Language=VBScript %>
<% Session.LCID = 1030 %>
<%
Dim sSubject
Dim sBody, sBodyHtml
Dim iTotal, iXtraRengoring
iTotal = 0
iXtraRengoring = 0

'Ønsker vedr. rengøring
Dim bRengoringService, bRengoringGrill
If Request.Form("RengoringService") = "ON" Then
bRengoringService = True
Else
bRengoringService = False
End If
If Request.Form("RengoringGrill") = "ON" Then
bRengoringGrill = True
Else
bRengoringGrill = False
End If

sBodyHtml = sBodyHtml & "Dato: " & Now & " "

sBodyHtml = sBodyHtml & "Kunde oplysninger: "
sBodyHtml = sBodyHtml & "Kontaktperson: " & Chr(9) & Request.Form("Kontaktperson") & " "
sBodyHtml = sBodyHtml & "Adresse: " & Chr(9) & Chr(9) & Request.Form("Adresse") & " "
sBodyHtml = sBodyHtml & "Postnr.: " & Chr(9) & Chr(9) & Request.Form("Postnr") & " "
sBodyHtml = sBodyHtml & "By: " & Chr(9) & Chr(9) & Chr(9) & Request.Form("By") & " "
sBodyHtml = sBodyHtml & "Telefon nr.: " & Chr(9) & Request.Form("Telefon nr.") & " "
sBodyHtml = sBodyHtml & "Email: " & Chr(9) & Chr(9) & Request.Form("Email") & " "
sBodyHtml = sBodyHtml & "Bemærkninger: " & Chr(9) & Chr(9) & Request.Form("Bemærkninger") & " "
sBodyHtml = sBodyHtml & "Brugsdato: " & Chr(9) & Chr(9) & Request.Form("Brugsdato") & " " & " "

'Overføre header til renell mail
sBodyRenell = sBodyHtml

sBodyHtml = sBodyHtml & "Din ordre:"

sBodyHtml = sBodyHtml & "<table width=""89%"" border=""1"" bordercolor=""#AAAFB4""><tr>"
sBodyHtml = sBodyHtml & " <td width=""11%"" height=""16"" bgcolor=""#F0F0F0"">Varenr.:</td>"
sBodyHtml = sBodyHtml & " <td width=""63%"" bgcolor=""#DEE0E4"">Varenavn:</td>"
sBodyHtml = sBodyHtml & " <td width=""15%"" bgcolor=""#F0F0F0""> Stk. pris kr.:</td>"
sBodyHtml = sBodyHtml & " <td width=""11%"" bgcolor=""#DEE0E4"">Antal:</td>"
sBodyHtml = sBodyHtml & "</tr></table>"

sBodyRenell = sBodyRenell & "Kundens ordre:"

sBodyRenell = sBodyRenell & "<table width=""89%"" border=""0""><tr>"
sBodyRenell = sBodyRenell & " <td width=""11%"" height=""16"">Varenr.:</td>"
sBodyRenell = sBodyRenell & " <td width=""63%"">Varenavn:</td>"
sBodyRenell = sBodyRenell & " <td width=""15%"">Stk. pris kr.:</td>"
sBodyRenell = sBodyRenell & " <td width=""11%"">Antal:</td>"
sBodyRenell = sBodyRenell & "</tr></table>"

For each item In Request.Form
If (LCase(Left(item, 5)) = "antal") And (IsNumeric(Request.Form(item))) Then
sFormItemNumber = Replace(LCase(item), "antal", "")

sBodyHtml = sBodyHtml & "<table width=""89%"" border=""1"" bordercolor=""#AAAFB4""><tr>"
sBodyHtml = sBodyHtml & " <td width=""11%"" height=""16"" bgcolor=""#F0F0F0"">" & Request.Form("Varenummer" & sFormItemNumber) & "</td>"
sBodyHtml = sBodyHtml & " <td width=""63%"" bgcolor=""#DEE0E4"">" & Request.Form("Varenavn" & sFormItemNumber) & "</td>"
sBodyHtml = sBodyHtml & " <td width=""15%"" bgcolor=""#F0F0F0"">" & Request.Form("Stk. pris" & sFormItemNumber) & "</td>"
sBodyHtml = sBodyHtml & " <td width=""11%"" bgcolor=""#DEE0E4"">" & Request.Form("Antal" & sFormItemNumber) & "</td>"
sBodyHtml = sBodyHtml & "</tr></table>"

sBodyRenell = sBodyRenell & "<table width=""89%"" border=""0""><tr>"
sBodyRenell = sBodyRenell & " <td width=""11%"" height=""16"">" & Request.Form("Varenummer" & sFormItemNumber) & "</td>"
sBodyRenell = sBodyRenell & " <td width=""63%"">" & Request.Form("Varenavn" & sFormItemNumber) & "</td>"
sBodyRenell = sBodyRenell & " <td width=""15%"">" & Request.Form("Stk. pris" & sFormItemNumber) & "</td>"
sBodyRenell = sBodyRenell & " <td width=""11%"">" & Request.Form("Antal" & sFormItemNumber) & "</td>"
sBodyRenell = sBodyRenell & "</tr></table>"

'Prisberegninger
If IsNumeric(Request.Form("Stk. pris" & sFormItemNumber)) Then
iPrice = FormatNumber(Request.Form("Stk. pris" & sFormItemNumber))
iTotal = iTotal + (CDbl(iPrice)*Request.Form(item))
End If

'porcelæn & glas
If bRengoringService And (Left(Trim(Request.Form("Varenummer" & sFormItemNumber)), 2) = "04" Or Left(Trim(Request.Form("Varenummer" & sFormItemNumber)), 2) = "06") Then
'If not = ikke pris for salt og peber bøsse
If Not Trim(Request.Form("Varenummer" & sFormItemNumber)) = "04-400" Then
iXtraRengoring = iXtraRengoring + 1*Request.Form(item)
End If
End If

'Kaffe kander
If bRengoringService And (Trim(Request.Form("Varenummer" & sFormItemNumber)) = "05-400" Or Trim(Request.Form("Varenummer" & sFormItemNumber)) = "05-401") Then
iXtraRengoring = iXtraRengoring + 1.5*Request.Form(item)
End If

'bestik
If bRengoringService And Left(Trim(Request.Form("Varenummer" & sFormItemNumber)), 2) = "07" Then
iXtraRengoring = iXtraRengoring + .5*Request.Form(item)
End If

'skåle og fade
If bRengoringService And Left(Trim(Request.Form("Varenummer" & sFormItemNumber)), 2) = "08" Then
iXtraRengoring = iXtraRengoring + 1.5*Request.Form(item)
End If

'kopper
If bRengoringService And (Left(Trim(Request.Form("Varenummer" & sFormItemNumber)),4) = "05-1" Or Left(Trim(Request.Form("Varenummer" & sFormItemNumber)),4) = "05-2" Or Left(Trim(Request.Form("Varenummer" & sFormItemNumber)),4) = "05-3") Then
iXtraRengoring = iXtraRengoring + 1*Request.Form(item)
End If

'grill
If bRengoringGrill And (Trim(Request.Form("Varenummer" & sFormItemNumber)) = "10-100" Or Trim(Request.Form("Varenummer" & sFormItemNumber)) = "10-101") Then
iXtraRengoring = iXtraRengoring + 350*Request.Form(item)
End If
End If
Next

'Tilføjer pris for rengøring
If iXtraRengoring > 0 Then
'kundens mail
sBodyHtml = sBodyHtml & "<table width=""89%"" border=""1"" bordercolor=""#AAAFB4""><tr>"
sBodyHtml = sBodyHtml & " <td width=""11%"" height=""16"" bgcolor=""#F0F0F0""> </td>"
sBodyHtml = sBodyHtml & " <td width=""63%"" bgcolor=""#DEE0E4"">Rengøring af service, grill, m.m.</td>"
sBodyHtml = sBodyHtml & " <td width=""15%"" bgcolor=""#F0F0F0"">" & FormatNumber(iXtraRengoring, 2) & "</td>"
sBodyHtml = sBodyHtml & " <td width=""11%"" bgcolor=""#DEE0E4""> </td>"
sBodyHtml = sBodyHtml & "</tr></table>"

'renell mail
sBodyRenell = sBodyRenell & "<table width=""89%"" border=""0""><tr>"
sBodyRenell = sBodyRenell & " <td width=""11%"" height=""16""> </td>"
sBodyRenell = sBodyRenell & " <td width=""63%"">Rengøring af service, grill, m.m.</td>"
sBodyRenell = sBodyRenell & " <td width=""15%"">" & FormatNumber(iXtraRengoring, 2) & "</td>"
sBodyRenell = sBodyRenell & " <td width=""11%""> </td>"
sBodyRenell = sBodyRenell & "</tr></table>"
End If

'Føjer rengørings omkostninger til total
If iXtraRengoring > 0 Then
iTotal = iTotal + iXtraRengoring
End If

'Kørsel
If Request.Form("selKommune") = "Helsingør" Then
'iPriceKorsel = FormatNumber(300, 2)
iPriceKorsel = 300
iTotal = iTotal + iPriceKorsel
iKorselComment = False
ElseIf Request.Form("selKommune") = "Øvrige" Then
iPriceKorsel = "?"
iKorselComment = True
Else
'iPriceKorsel = FormatNumber(400, 2)
iPriceKorsel = 400
iTotal = iTotal + iPriceKorsel
iKorselComment = False
End If

'Divide by 100
'iTotal = (iTotal/100) 'Hack som fjernes

'kørsel kunde mail
sBodyHtml = sBodyHtml & "<table width=""89%"" border=""1"" bordercolor=""#AAAFB4""><tr>"
sBodyHtml = sBodyHtml & " <td width=""11%"" height=""16"" bgcolor=""#F0F0F0""> </td>"
sBodyHtml = sBodyHtml & " <td width=""63%"" bgcolor=""#DEE0E4"">Kørsel</td>"
sBodyHtml = sBodyHtml & " <td width=""15%"" bgcolor=""#F0F0F0"">" & FormatNumber(iPriceKorsel,2) & "</td>"
sBodyHtml = sBodyHtml & " <td width=""11%"" bgcolor=""#DEE0E4""> </td>"
sBodyHtml = sBodyHtml & "</tr></table>"

'kørsel renell mail
sBodyRenell = sBodyRenell & "<table width=""89%"" border=""0""><tr>"
sBodyRenell = sBodyRenell & " <td width=""11%"" height=""16""> </td>"
sBodyRenell = sBodyRenell & " <td width=""63%"">Kørsel</td>"
sBodyRenell = sBodyRenell & " <td width=""15%"">" & FormatNumber(iPriceKorsel,2) & "</td>"
sBodyRenell = sBodyRenell & " <td width=""11%""> </td>"
sBodyRenell = sBodyRenell & "</tr></table>"

'Tilføjer total linie
sBodyHtml = sBodyHtml & "<table width=""89%"" border=""1"" bordercolor=""#AAAFB4""><tr>"
sBodyHtml = sBodyHtml & " <td width=""11%"" height=""16"" bgcolor=""#F0F0F0""> </td>"
'Denne antager priserne er incl moms.
sBodyHtml = sBodyHtml & " <td width=""63%"" bgcolor=""#DEE0E4"">Total incl. moms (moms udgør " & FormatNumber(iTotal-iTotal*0.8, 2) & "):</td>"
sBodyHtml = sBodyHtml & " <td width=""15%"" bgcolor=""#F0F0F0"">" & FormatNumber(iTotal, 2) & "</td>"
'Rette til at priserne er excl. moms.
'sBodyHtml = sBodyHtml & " <td width=""63%"" bgcolor=""#DEE0E4"">Total incl. moms (moms udgør " & FormatNumber(iTotal*0.25, 2) & "):</td>"
'sBodyHtml = sBodyHtml & " <td width=""15%"" bgcolor=""#F0F0F0"">" & FormatNumber(iTotal*1.25, 2) & "</td>"
sBodyHtml = sBodyHtml & " <td width=""11%"" bgcolor=""#DEE0E4""> </td>"
sBodyHtml = sBodyHtml & "</tr></table>"

'Føjer total til renell mail
sBodyRenell = sBodyRenell & "<table width=""89%"" border=""0""><tr>"
sBodyRenell = sBodyRenell & " <td width=""11%"" height=""16""> </td>"
'Disse to angater alle priser er incl. moms
sBodyRenell = sBodyRenell & " <td width=""63%"">Total incl. moms (moms udgør " & FormatNumber(iTotal-iTotal*0.8, 2) & "):</td>"

sBodyRenell = sBodyRenell & " <td width=""15%"">" & FormatNumber(iTotal, 2) & "</td>"
'Her rettet til de er excl. moms som så ligges til
'sBodyRenell = sBodyRenell & " <td width=""63%"" bgcolor=""#DEE0E4"">Total incl. moms (moms udgør " & FormatNumber(iTotal*0.25, 2) & "):</td>"
'sBodyRenell = sBodyRenell & " <td width=""15%"" bgcolor=""#F0F0F0"">" & FormatNumber(iTotal*1.25, 2) & "</td>"

sBodyRenell = sBodyRenell & " <td width=""11%""> </td>"
sBodyRenell = sBodyRenell & "</tr></table>"

'Om kørsel
'sBodyHtml = sBodyHtml & "OBS! Den oplyste pris er uden kørsel. "
'sBodyHtml = sBodyHtml & "Kørsel indenfor Helsingør Kommune kr. 300,00 incl. Moms. "
'sBodyHtml = sBodyHtml & "Kørsel til Fredensborg-Humlebæk, Græsted-Gilleleje, Karlebo og Hørsholm kommune kr. 400,00 incl. Moms. "

'Forbehold
sBodyHtml = sBodyHtml & " Med forbehold for prisændringer, fejl, m.m. "
'Hvis kommune = øvrige
If iKorselComment Then
sBodyHtml = sBodyHtml & " Der er ikke medregnet pris for kørsel i dette tilbud, du vil blive kontaktet af Renell vedrørende prisen. "
sBodyRenell = sBodyRenell & " Der er ikke medregnet pris for kørsel i dette tilbud, kontakt kunden vedrørende prisen. "
End if

'Hilsen
sBodyHtml = sBodyHtml & "Med venlig hilsen "
sBodyHtml = sBodyHtml & "Servicefirmaet Renell A/S "

'mail to website
Dim jmail
Set jmail = Server.CreateObject("JMail.smtpmail")
jmail.ServerAddress = "jaynet"
jmail.ContentType = "text/html"
jmail.AddRecipient "mads@renell.dk"
jmail.Sender = "postmaster@renell.dk"
jmail.SenderName = "Renell website"
jmail.Subject = "Bestilling på nettet"
jmail.Body = "<html><body>" & sBodyRenell & "</body></html>"
jmail.Execute
jmail.Close
Set jmail = Nothing

'html to customer
If Len(Request.Form("Email")) > 6 Then
Set jmail = Server.CreateObject("JMail.smtpmail")
jmail.ServerAddress = "jaynet"
jmail.ContentType = "text/html"
jmail.Sender = "postmaster@renell.dk"
jmail.SenderName = "Renell website"
jmail.Subject = "Bestilling hos Servicefirmaet Renell A/S"
jmail.AddRecipient Request.Form("Email")
jmail.Body = "<html><body>" & sBodyHtml & "</body></html>"
jmail.Execute
jmail.close
Set jmail = Nothing
End If

%>
<html>
<head>
<title>Renell Service A/S</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="graphics/leftmenu_bg.gif" link="#032956" vlink="#000000" alink="#000000">
<table width="100%" border="0">
<tr>
<td width="100%" align="center"> Deres bestilling er afsendt til Renell.</td>
</tr>
</table>
</body>
</html>

Jeg kan også maile filen til dig/jer.

Mvh
Bassa

Synes godt om

tafkab Nybegynder

22. juli 2007 - 21:25 #1

Der er en linie

'iTotal = (iTotal/100) 'Hack som fjernes

Prøv at fjerne ' så den kommer med ind i koden og se om det retter det.

Synes godt om

bassa Nybegynder

22. juli 2007 - 22:07 #2

Prøvede, men den dividerede blot med 100, så 18.000,00 kr. blev til 180,00 kr.

Har lige prøvet at bestille en række varer - 10 stk. pr. vare. Resultatet var rigtigt. Det lader til, at der måske er en fejl på et enkelt eller et par enkelte produkter. Ellers ville den vil ikke lave en så horribel fejludregning som den viste ovenfor.

Prøver at bestille 2 stk. af hvert enkelt produkt, og så regne det manuelt sammen og sammenligne resultatet med totalbløbet på selve bestillingslisten.

Synes godt om

thesurfer Nybegynder

23. juli 2007 - 02:20 #3

Fejlen er nok i denne linie, da du bruger "." i stedet for ",", som du ellers bruger i alle andre linier:

03-202 Papirdug Ø180 til runde borde, hvid og blå 80.00 7

Hvis du kigger på det, som værende 8000 gange 7, giver det 56000, som faktisk er det der er for meget.. :-)

Egentligt fik jeg det overskydende beløb til:

61.087,00 - 5084,5 (som er summen af alle linier) = 56002,5

Grunden til at der mangler 2,5 kr, fra de 8000x7, er nok en tastefejl fra min side..

Med som sagt:
"80.00 7" i linien "03-202 Papirdug Ø180 til runde borde, hvid og blå 80.00 7"

Så du skal nok bare have rettet stk pris på varenr 03-202.

Synes godt om

thesurfer Nybegynder

23. juli 2007 - 02:21 #4

Rettelse: "(som er summen af alle linier pånær varenr 03-202)"

Synes godt om

bassa Nybegynder

23. juli 2007 - 07:24 #5

Bingo! Testet og rettet. Det var en åndssvag punktumfejl i .html-filen, nærmere betegnet varens 'value'-tag. Gah! :D

Tusind tak for hjælpen, drenge.

TheSurfer -> svar for point. ;)

Synes godt om

thesurfer Nybegynder

23. juli 2007 - 13:26 #6

Sådan :-)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS