Udregning af value i forms
Jeg har en form hvor folk kan bestille forskellige ting. Formen er dynamisk, dog har jeg splittet det lidt op.På en anden side skal jeg så have udregnet hvor meget det koster.
Der er en fast beløb på 175,- i abonnement.
Derudover er der så en række services, hvor der i de forskellige formnavne er en * til sidst ( eks. overvaagning*).
Og til sidst kan kunden bestille noget ekstra hvor formnavnene
er markeret med et ! til sidst ( eks. ekstra service!)
Det jeg så skal bruge er en lille funktion der gør følgende.
------------
Finder alle de forms hvor der er en * til sidst og ligger dem sammen.
Finder alle de forms hvor der er et ! til sidst og ligger dem sammen.
+ 175,- i abonnemnt.
----------------------------
Altså der skal stå en lille udregning:
Abonnement: 175,-
+ Services (*) i alt: xxxxx
+ Ekstra bestilling i alt: xxxxx
_________________________________________
I alt: xxxxxxx
--------------------------------------
Håber det er til at forstå. Jeg har vedlagt koden til den side hvor udregningen skal vises:
..................................................
<%
'hent felt Array
if Request.Form <> "" then
Redim Preserve ArrUnsorted(-1)
for each Item in Request.Form
if Instr(1, Item, "-") > 1 then
Redim Preserve ArrUnsorted(Ubound(ArrUnsorted)+1)
ArrUnsorted(Ubound(ArrUnsorted)) = Item
end if
next
ArrSorted = sortArray(ArrUnsorted)
end if
' Hent info fra kontaktside:
modtager = request.form("_mailto")
mailserver = request.form("_mailserver")
subject = request.form("_subject")
'ok_side = request.form("_succesDoc")
fejl_side = request.form("_errorDoc")
email_fra = "mail@test.dk"
from_name = request.form("Name")
set mailer = Server.createObject("SMTPsvg.Mailer")
'mailer.RemoteHost = mailserver
mailer.RemoteHost = "mail.test.dk"
mailer.FromName = from_name
mailer.FromAddress = email_fra
mailer.AddRecipient "Firma", modtager
mailer.Subject = subject
mailer.ContentType = "text/html"
mailer.CharSet = 2
mailer.Organization = "Firma"
theBodyText = getBodyText(subject)
mailer.BodyText = theBodyText
If mailer.SendMail Then
Response.Clear
'Response.Redirect(ok_side)
Set mailer = Nothing
Else
Dim ErrString
ErrString = mailer.Response
Set mailer = Nothing
Response.Clear
Response.Redirect(fejl_side)
End If
Response.write theBodyText
function sortArray(arrIn)
for n = 0 to Ubound(arrIn)
lastValue = "¤¤¤¤¤"
for i = 0 to Ubound(arrIn)
if not lastValue = "¤¤¤¤¤" then
thisValue = arrIn(i)
if lastValue > thisValue then
arrIn(i) = lastValue
arrIn(i-1) = thisValue
end if
end if
lastValue = arrIn(i)
next
next
sortArray = arrIn
end function
function getBodyText(subject)
getBodyText = "<Html><Head></Head><Body><table>"
getBodyText = getBodyText & "<tr><td align=left colspan=2 bgcolor=#efefef><font size=2 face=Verdana, Arial, Helvetica, sans-serif><b>"& subject & "</b><br>Tak for bestillingen, for at udskrive klik da <a href=java script:print()>her</a><br>Har du rettelser så klik tilbage <a href=java script:history.go(-1)>her!</a></font></td></tr>"
for i = 0 to Ubound(ArrSorted)
getBodyText = getBodyText & "<tr><td valign=top width=200 bgcolor=#E5E5E5><font size=1 face=Verdana, Arial, Helvetica, sans-serif><b>" & Split(ArrSorted(i), "-")(1) & "</b></font></td><td width=200 bgcolor=#F8F8F8><font size=1 face=Verdana, Arial, Helvetica, sans-serif>" & Request.Form(ArrSorted(i)) & "</font></td></tr>"
Next
getBodyText = getBodyText & "<tr><td align=right colspan=2 bgcolor=#7DC2DE><font size=1 face=Verdana, Arial, Helvetica, sans-serif>" & date & " : " & time & "</font></td></tr>"
getBodyText = getBodyText & "</table></body></html>"
end function
%>
