Pris oplyses på bestillingsside efter valg af ydelser
Vi har en bestillingssidehttp://www.slotssalen.dk/bestilling2.htm
Når man har været bestillingen igennem, skal den kunne vise prisen for de enkelte ydelser for sig og den samlede pris på ydelserne. Der er moms på alle ydelser på nær selve lejen.
Foreløbig bliver resultaterne - uden pris - sendt videre til en asp-fil, som indeholder følgende kode:
<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "smtp.slotssalen.dk"
JMail.Sender = "admin@slotssalen.dk"
JMail.Subject = "LEJEKONTRAKT - leje af SlotsSalen"
JMail.AddRecipient Request.Form("Email")
JMail.AddRecipient "slotssalen@slotssalen.dk"
JMail.Priority = "3"
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' Her starter selve email-en
VAR = VAR & "" & vbCrLf
VAR = VAR & "Udlejer: Frank Arenstorff - Langhedevej 28 - Tinghøj - 6800 Varde - Tlf. 75261223" & vbCrLf & vbCrLf
VAR = VAR & "Lejer:"
VAR = VAR & " " & Request.Form("Navn")
VAR = VAR & " - " & Request.Form("Adresse")
VAR = VAR & " - " & Request.Form("Postnr_og_by")
VAR = VAR & " - Tlf. " & Request.Form("Telefon")
VAR = VAR & " - E-mail " & Request.Form("Email") & vbCrLf & vbCrLf
VAR = VAR & "Det lejede: SlotsSalen - Slotsgade 9 - 6800 Varde" & vbCrLf & vbCrLf
VAR = VAR & " Lejemålet består af entré, 3 sale, anretterkøkken med bl.a. gaskomfur," & vbCrLf
VAR = VAR & " opvaskemaskine, køleskab, kaffemaskine samt toilet i kælderen" & vbCrLf & vbCrLf
VAR = VAR & " - Der forefindes service til 100 personer. Lejer sørger selv for duge og servitter" & vbCrLf
VAR = VAR & " - Terassen og haven må benyttes" & vbCrLf
VAR = VAR & " - Der er mulighed for parkering fra Å-siden" & vbCrLf & vbCrLf
VAR = VAR & "Lejedato: " & Request.Form("Dag")
VAR = VAR & ", den " & Request.Form("Dato")
VAR = VAR & ". " & Request.Form("Maaned")
VAR = VAR & " " & Request.Form("Aar") & vbCrLf & vbCrLf
VAR = VAR & "Arrangement: " & Request.Form("Arrangement") & vbCrLf
VAR = VAR & "Arrangementet starter: " & Request.Form("Start") & vbCrLf
VAR = VAR & "Ca. antal personer: " & Request.Form("Antal_personer") & vbCrLf
VAR = VAR & "Antal firkantede borde: " & Request.Form("Firkantede_borde") & vbCrLf
VAR = VAR & "Antal runde borde: " & Request.Form("Runde_borde") & vbCrLf
VAR = VAR & "Borde til buffet: " & Request.Form("Buffetbord") & vbCrLf
VAR = VAR & "Gavebord: " & Request.Form("Gavebord") & vbCrLf
VAR = VAR & "Bordopstilling: " & Request.Form("Bordopstilling") & vbCrLf
VAR = VAR & "Rengøring: " & Request.Form("Rengoring") & vbCrLf
VAR = VAR & "Rød løber: " & Request.Form("Rod_lober") & vbCrLf
VAR = VAR & "Pavillontelt: " & Request.Form("Pavillontelt") & vbCrLf
VAR = VAR & "Fadølsanlæg: " & Request.Form("Fadolsanlæg") & vbCrLf
VAR = VAR & "Softicemaskine: " & Request.Form("Softicemaskine") & vbCrLf
VAR = VAR & "Yderligere kommentarer: " & Request.Form("Kommentarer") & vbCrLf
JMail.Body = VAR
' Her slutter selve email-en
JMail.Execute
Set JMail = Nothing
Response.Write "Emailen er sendt!"
%>
Hvordan klarer jeg lige det med priserne?
