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

07. april 2006 - 20:50 Der er 17 kommentarer

Moms regnes fra?

Til eagleeye->

Du hjalp mig forleden, og det er jeg meget glad for, mit problem er bare nu, at jeg faktisk har fået dig til at rette noget som alligevel ikke skulle ændres, så jeg håber derfor, at du kan hjælpe mig igen...

Eller måske hvis der er en anden som kan hjælpe?

Anyway, hér er .asp-scriptet:

<%@ 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 & "Levering: " & Chr(9) & Chr(9) & Request.Form("Levering") & " " & " "

'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.75, 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.75, 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>

MOMS bliver lagt oven i disse varer på faktura, men det skal de ikke.

På bundlinien skal der bare stå en notits, hvor køber kan se i hvor mange kroner Moms udgør... det er allerede en del af scriptet, det er faktisk bare Momsen som ikke skal lægges oven i de øvrige priser.

Håber nogen kan hjælpe, da jeg ingen forstand har på .asp. :(

Mvh
Bassa

Synes godt om

pvtsommer Nybegynder

07. april 2006 - 21:26 #1

Jeg forstår det du siger som at alle priserne i dokumentet allerede er skrevet om exclusiv moms, så det er faktisk kun slutresultates kode som skal rettes.

Linje 182 og 183 herunder:
sBodyHtml = sBodyHtml & " <td width=""63%"" bgcolor=""#DEE0E4"">Total excl. moms (moms udgør " & FormatNumber(iTotal*0.25, 2) & "):</td>"
sBodyHtml = sBodyHtml & " <td width=""15%"" bgcolor=""#F0F0F0"">" & FormatNumber(iTotal, 2) & "</td>"

Det jeg har gjort er at ændre FormatNumber(iTotal*1.25,2) til FormatNumber(iTotal, 2). Den ganger altså ikke med 1.25 mere (hvilket vil svare til at ligge 25% oveni.

Synes godt om

pvtsommer Nybegynder

07. april 2006 - 21:27 #2

Hele koden i øvrigt:
<%@ 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 & "Levering: " & Chr(9) & Chr(9) & Request.Form("Levering") & " " & " "

'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.75, 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 excl. moms (moms udgør " & FormatNumber(iTotal*0.25, 2) & "):</td>"
sBodyHtml = sBodyHtml & " <td width=""15%"" bgcolor=""#F0F0F0"">" & FormatNumber(iTotal, 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.75, 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>

Synes godt om

eagleeye Praktikant

07. april 2006 - 21:29 #3

husk moms udgør 20% af del fulde beløb.

Synes godt om

pvtsommer Nybegynder

07. april 2006 - 21:31 #4

eagleeye: Man ligger 25% til, men trækker 20% fra. :)

basso: GLEMTE lige at rette den e-mail firmaet modtager!

Her er den rette kode:
<%@ 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 & "Levering: " & Chr(9) & Chr(9) & Request.Form("Levering") & " " & " "

'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.75, 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 excl. moms (moms udgør " & FormatNumber(iTotal*0.25, 2) & "):</td>"
sBodyHtml = sBodyHtml & " <td width=""15%"" bgcolor=""#F0F0F0"">" & FormatNumber(iTotal, 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.75, 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, 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>

Synes godt om

eagleeye Praktikant

07. april 2006 - 21:37 #5

Stadigvæk momsen udgør 20% af et beløb incl. moms.

Synes godt om

pvtsommer Nybegynder

07. april 2006 - 21:40 #6

Ja? Og hvad så? Tænkte der måske var en fejl i koden et sted? Jeg har forsøgt at læse den igennem et par gange, men kan ikke finde fejlen? :) - Eller var det bare rent informativt?

Synes godt om

pvtsommer Nybegynder

07. april 2006 - 21:42 #7

Har lige bemærket at der står at transporten ALLEREDE er inklusiv moms. Det skal lige rettes basso, men det kan du selv ;)

'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

iPriceKorsel som skal have trukket 20% fra...

Synes godt om

eagleeye Praktikant

07. april 2006 - 21:42 #8

Ja en fejl i udregningen af hvad moms'en udgør af det fylde beløb, der står .25 da beløbet var uden moms.

sBodyRenell = sBodyRenell & " <td width=""63%"" bgcolor=""#DEE0E4"">Total incl. moms (moms udgør " & FormatNumber(iTotal*0.25, 2) & "):</td>"

Synes godt om

pvtsommer Nybegynder

07. april 2006 - 21:45 #9

Du har ret ;) - Den skal da selvfølgelig være 0.20...

Synes godt om

pvtsommer Nybegynder

07. april 2006 - 21:47 #10

Kan vi blive enige om følgende så? :)

<%@ 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 & "Levering: " & Chr(9) & Chr(9) & Request.Form("Levering") & " " & " "

'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 = 240
iTotal = iTotal + iPriceKorsel
iKorselComment = False
ElseIf Request.Form("selKommune") = "Øvrige" Then
iPriceKorsel = "?"
iKorselComment = True
Else
'iPriceKorsel = FormatNumber(400, 2)
iPriceKorsel = 320
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.75, 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 excl. moms (moms udgør " & FormatNumber(iTotal*0.25, 2) & "):</td>"
sBodyHtml = sBodyHtml & " <td width=""15%"" bgcolor=""#F0F0F0"">" & FormatNumber(iTotal, 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.75, 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 excl. moms (moms udgør " & FormatNumber(iTotal*0.20, 2) & "):</td>"
sBodyRenell = sBodyRenell & " <td width=""15%"" bgcolor=""#F0F0F0"">" & FormatNumber(iTotal, 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>

Synes godt om

eagleeye Praktikant

07. april 2006 - 21:53 #11

Nej for nu har trykket moms fra kørsel.

Synes godt om

pvtsommer Nybegynder

07. april 2006 - 21:55 #12

Ja, for alle beløb skal da være ekslusiv moms, når det vises eksklusiv moms?!?!?!

Synes godt om

eagleeye Praktikant

07. april 2006 - 22:02 #13

Jeg kan se du har rettet det til at stå Total pris excl. moms... Før stod der Total pris incl. moms

Jeg har læst det sådan at moms er incl i beløbet. Og moms er blevet lagt på to gange.

Så spørgsmålet er om total prisen (iTotal) er incl. eller excl. moms?

Synes godt om

bassa Nybegynder

08. april 2006 - 09:50 #14

Eagleeye -> Du har helt ret, Eagle. Moms er blevet lagt på 2 gange. Alle beløb på de forskellige produkter i selve scriptet er allerede INKL. Moms. Dvs., at den lægger Moms på 2 gange. De 3-400 kr. for Kørsel er OGSÅ inkl. Moms.

Den ekstra Moms pålægning skal fjernes, så der skal bare stå på faktura hvad Moms-beløbet udgør af de forskellige produkter tilsammen.

Mvh
BassA ;)

Synes godt om

bassa Nybegynder

08. april 2006 - 10:41 #15

Nå, men jeg har selv fået bakset rundt i scriptet for at prøve at rette fejlen, og det ser ud til at lykkes.

Vender frygteligt tilbage hvis nu jeg er ude at skide igen! ;)

Cheers!
Bassa

Synes godt om

eagleeye Praktikant

08. april 2006 - 10:52 #16

Ok ;)

Synes godt om

bassa Nybegynder

21. april 2006 - 07:02 #17

Eagleeye -> svar for point.

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

05/07

Dynamics-kæmpen Cepheo leverer røde tal i første regnskab som selvstændigt selskab

05/07

Store sager fra BMW i5: Alt er bare perfekt afstemt her

05/07

Nørgaard: Derfor bruger fattigrøvene AI meget mere end de rige svin

05/07

IBM-direktør efter blodrødt regnskab: “Vi er godt på vej ud af det stormvejr, som ramte os i 2023”

05/07

Kom i problemer efter ransomware-angreb: Nu køber rigmand Christian Stadil IT-Hotellets bunker

05/07

Stiftere overvejer at gøre Flatpay til en bank – krav om compliance er en stopklods

05/07

Rejsekort reducerer kraftigt den tid, som selskabet vil beholde dine lokationsdata i: Vil nu slette dem efter få måneder

05/07

Hackerangreb på OpenAI: Selskabets designs af AI-teknologi stjålet

05/07

Efter skatte-dom: IBM Danmark sætter 163 millioner kroner til side til ekstra skatte-regning i Danmark

05/07

KMD ændrer i sit ikoniske logo efter 17 år

05/07

Klar tale til Tesla og SAP: Snart skal du tale med dit ERP-system

Vis flere artikler

IT-JOB

ATP

It-tester til test af samfundskritiske digitale løsninger i ATP's forretning

BUPL

IT-konsulent til samtale- og beskæftigelsesområdet til IT & Digitalisering i BUPL/-A

MedCom

It-udviklingskonsulent til MedComs systemforvaltningsteam

Itm8

Azure Cloud Specialist

Lessor Group

IT Security Specialist with process focus

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 00:30	Fejl i Ark Af Morten_Jepsen i Excel
06/0716:56	Kan min mobil hackes Af SBS i Mobiltelefoner
06/0712:56	Forskellige billeder til forskellige skærme ? Af snedker1 i Mac
06/0711:56	Om brug af funktionen sumprodukt Af Erik R i Excel
05/0722:41	Hjælp til at skrive opgave Af Needhelp i Småopgaver