Dear "& request.Form("namn") &",
"& vbCrLf Meddelande = meddelande & "Thank you very much for your order. Your ordernumber is BBR-"& orderNr &" and you have ordered the following items:

" &rsKundvagn("antal") &" pcs "& vbCrLf & rsKundvagn("artist") &" - "& rsKundvagn("namn") & vbCrLf &"price each :"& FormatNumber(rsKundvagn("prisSEK"), 2) &" kr | € "& FormatNumber(rsKundvagn("prisEUR"), 2) &" | $ "& FormatNumber(rsKundvagn("prisUSD"), 2) & vbCrLf & vbCrLf summaSEK = summaSEK + (rsKundvagn("antal")*rsKundvagn("prisSEK")) summaEUR = summaEUR + (rsKundvagn("antal")*rsKundvagn("prisEUR")) summaUSD = summaUSD + (rsKundvagn("antal")*rsKundvagn("prisUSD")) rsKundvagn.moveNext : loop meddelande = meddelande &"

Total (including shipping fee): "& FormatNumber((summaSEK + rsFrakt("prisSEK")), 2) &" kr | € "& FormatNumber((summaEUR + rsFrakt("prisEUR")), 2) &" | $ "& FormatNumber((summaUSD + rsFrakt("prisUSD")), 2) &"

Payment options:

Bankgiro (Swedish customers only)
"&vbCrLf meddelande = meddelande & "Send the money to 5882-1331, recipient is B.B.R HB. (Don't forget to write your ordernumber BBR-"& orderNr &" as 'message')

Paypal
"&vbCrLf meddelande = meddelande & "Send the money to info@kittylitterrecords.se. (Don't forget to write your ordernumber BBR-"& orderNr &" in the 'note'-box)"&vbCrLf&"If you don't have a Paypal account register at www.paypal.com. Paypal makes payment by creditcard possible.

Your shipping information:

"&vbCrLf formValid = true if len(Trim(request.form("namn"))) < 1 Then formValid = False Else meddelande = meddelande & ""& Trim(request.form("namn")) &vbCrLf End if if len(Trim(request.form("adress"))) < 1 then formValid = False Else meddelande = meddelande & "
"& Trim(request.form("adress")) &vbCrLf End if if len(Trim(request.form("postnr"))) < 1 then formValid = False Else meddelande = meddelande & "
"& Trim(request.form("postnr")) &vbCrLf End if if len(Trim(request.form("stad"))) < 1 then formValid = False Else meddelande = meddelande & " "& Trim(request.form("stad")) &vbCrLf End If if len(Trim(request.form("land"))) < 1 then formValid = False Else meddelande = meddelande & "
"& Trim(request.form("land")) &vbCrLf End if meddelande = meddelande & "
"& Trim(request.form("stat")) &vbCrLf if len(Trim(request.form("epost"))) < 1 then formValid = False Else meddelande = meddelande & "
E-mail: "& Trim(request.form("epost")) &vbCrLf End if meddelande = meddelande & "

" cdoMessage.To = Trim(Request.Form("epost")) cdoMessage.Bcc = mail cdoMessage.Subject = "Your order from Kitty Litter Records" cdoMessage.HTMLBody = meddelande cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing if Err.Number<>0 then Error = Err.description else Error = "" end if session.Abandon Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "ordernr",conn,2,3 rs.addNew rs("ordernr") = orderNr rs.Update rs.close Set rs = Nothing else step = 1 error = "Please fill in the required fields." end if end If if step = 1 then set rsKundvagn = conn.Execute("SELECT ordrar.ID, produkter.prisSEK AS prisSEK, produkter.prisEUR AS prisEUR, produkter.prisUSD AS prisUSD, produkter.namn AS namn, produkter.artist AS artist, ordrar.antal AS antal FROM (ordrar INNER JOIN produkter ON produkter.ID = ordrar.produkt) WHERE kundvagn = "& session("kundvagn") &" ORDER BY produkter.artist, produkter.namn;") if not rsKundvagn.eof then rsKundvagn.MoveFirst do while not rsKundvagn.eof if request.Form("order"& rsKundvagn("ID")) = "" then antal = 0 else antal = cLng(request.Form("order"& rsKundvagn("ID"))) end if if antal > 0 then conn.Execute("UPDATE ordrar SET antal = "& antal &" WHERE ID = "& rsKundvagn("ID")) else conn.Execute("DELETE FROM ordrar WHERE id = "& rsKundvagn("ID")) end if rsKundvagn.movenext : loop Set rsFrakt = conn.Execute("SELECT * FROM frakt") If Not rsFrakt.eof Then rsFrakt.MoveFirst end if set rsKundvagn = conn.Execute("SELECT ordrar.ID, produkter.prisSEK AS prisSEK, produkter.prisEUR AS prisEUR, produkter.prisUSD AS prisUSD, produkter.namn AS namn, produkter.artist AS artist, ordrar.antal AS antal FROM (ordrar INNER JOIN produkter ON produkter.ID = ordrar.produkt) WHERE kundvagn = "& session("kundvagn") &" ORDER BY produkter.artist, produkter.namn;") if not rsKundvagn.eof then rsKundvagn.MoveFirst %> <% If step=1 Then %> <%End if%>

<% if step = 0 then %>

Please be sure to check your quantities and the item, Then press 'Next'.

<% do while not rsKundvagn.eof %> <% rsKundvagn.moveNext : loop %>

Shopping cart
Item	Qty	Price
<%=rsKundvagn("artist")%> - <%=rsKundvagn("namn")%>	" value="<%=rsKundvagn("antal")%>" size=1>	<%=FormatNumber(rsKundvagn("prisSEK"), 2)%> kr | € <%=FormatNumber(rsKundvagn("prisEUR"), 2)%> | $ <%=FormatNumber(rsKundvagn("prisUSD"), 2)%>
Continue shopping

info@kittylitterrecords.se | +46(0)8-437 467 21
Copyright © 2004 Kitty Litter Records. All Rights Reserved. <%End if%> <%If Step=1 then%>

Check out

<% summaSEK = 0 summaEUR = 0 summaUSD = 0 do while not rsKundvagn.eof %> <% summaSEK = summaSEK + (rsKundvagn("antal")*rsKundvagn("prisSEK")) summaEUR = summaEUR + (rsKundvagn("antal")*rsKundvagn("prisEUR")) summaUSD = summaUSD + (rsKundvagn("antal")*rsKundvagn("prisUSD")) rsKundvagn.moveNext : Loop %>

Title	Qty	Price
<%=rsKundvagn("artist")%> - <%=rsKundvagn("namn")%>	" value="<%=rsKundvagn("antal")%>"><%=rsKundvagn("antal")%>	<%=FormatNumber((rsKundvagn("antal") * rsKundvagn("prisSEK")), 2)%> kr | € <%=FormatNumber((rsKundvagn("antal") * rsKundvagn("prisEUR")), 2)%> | $ <%=FormatNumber((rsKundvagn("antal") * rsKundvagn("prisUSD")),2)%>
Select location to show shipping fee <% i = 0 Do While Not rsFrakt.EOF i = i +1 %> )" <%If i = 1 then%>CHECKED<%End if%> value=<%=rsFrakt("ID")%>><%=rsFrakt("namn")%> <%rsFrakt.Movenext : Loop If i > 0 Then rsFrakt.MoveFirst%>
Shipping fee:	kr | € <%=FormatNumber(rsFrakt("prisEUR"), 2)%> | $ <%=FormatNumber(rsFrakt("prisUSD"), 2)%>">
TOTAL (shipping included):	">

<%=Error%>

SHIPPING INFORMATION:
Name:
Address:
Postal / zip code:
City / town :
State / province (optional):
Country:
Email:

After placing your order you will receive an order confirmation with exact info
of how and where to make your payment (Bankgiro or Paypal, for other payments please contact us).

We handle your order within 24hrs after receiving the payment.

info@kittylitterrecords.se | +46(0)8-437 467 21
Copyright © 2004 Kitty Litter Records. All Rights Reserved. <%End if%> <% If Step = 2 Then %> <% If Error = "" Then %>

Your order has been sent. You will recive an e-mail in a few minutes.

info@kittylitterrecords.se | +46(0)8-437 467 21
Copyright © 2004 Kitty Litter Records. All Rights Reserved. <%else%>

Error : <%=Error%>

<%End if%> <%End if%> <% conn.close : Set conn = Nothing %>