<% strTest = Request("test") If strTest <> "" Then Response.write "TESTRUN" End If strStep = "start" 'Handle order (javascript validated) If Request.Form("btnOrder") <> "" Then strStep = "confirm" ElseIf Request.Form("btnConfirmOrder") <> "" Then intProductID = Clng(Request.Form("intProductID")) intNumCopies = clng(Request.Form("intNumCopies")) intDeliveryTypeID = clng(Request.Form("intDeliveryTypeID")) strName = FA(Request.Form("strName")) strAddress = FA(Request.Form("strAddress")) strZip = FA(Request.Form("strZip")) strCity = FA(Request.Form("strCity")) strCountry = FA(Request.Form("strCountry")) strEmail = FA(Request.Form("strEmail")) mnyTotalValue = GetTotalValue(intProductID, intNumCopies, intDeliveryTypeID) If strTest = "" Then intCustomerID = conn.execute("sp_addCustomer @strName='" & strName & "',@strAddress='" & strAddress & "',@strZip='" & strZip & "',@strCity='" & strCity & "',@strCountry='" & strCountry & "',@strEmail='" & strEmail & "'")(0) intOrderID = conn.execute("sp_addOrder @intCustomerID=" & intCustomerID & ",@intProductID=" & intProductID & ",@intNumCopies=" & intNumCopies & ",@intDeliveryType=" & intDeliveryTypeID & ",@mnyTotalValue=" & mnyTotalValue)(0) Else intCustomerID = -1 intOrderID = -1 End If strInvoiceHTML = CreateInvoice(intOrderID) SendMail "contact@runislemusic.com", "Run Isle Music", ADMIN_EMAIL, "Run Isle Music: Order confirmation/Invoice (" & Year(Date)&GetInvoiceNumber(intOrderID) & ")", strInvoiceHTML, strInvoiceHTML 'SendMail "contact@runislemusic.com", "Run Isle Music", "per@netstar.se", "RUN ISLE MUSIC: Order confirmation/Invoice (" & Year(Date)&GetInvoiceNumber(intOrderID) & ")", strInvoiceHTML, strInvoiceHTML If strEmail <> "" Then SendMail "contact@runislemusic.com", "Run Isle Music", strEmail, "RUN ISLE MUSIC: Order confirmation/Invoice (" & Year(Date)&GetInvoiceNumber(intOrderID) & ")", strInvoiceHTML, strInvoiceHTML End If strStep = "order_placed" End If %> Run Isle Music
<%If strStep = "start" Or strStep = "" Then %> <%ElseIf strStep = "confirm" Then%> <% If clng(Request.Form("intNumCopies")) = -1 Then intNumCopies = Request.Form("strNumCopies") Else intNumCopies = Request.Form("intNumCopies") End If %> <%ElseIf strStep = "order_placed" Then%> <%End If%>
RUN ISLE MUSIC STORE HOME
 

Morning is broken (CD single):

1-2 items 15,00 SEK.
3 or more items 10,00 SEK.

Listen here!
 

The time is near (CD EP):

1-2 items: 59,00 SEK.
3 or more items: 50,00 SEK.

Listen here!

The time is near (CD EP) + Morning is broken (CD single):

1-2 items: 69,00 SEK.
3 or more items: 60,00 SEK.
 Order form  [Step 1/2]
" method="post" onsubmit="return validateOrderForm(this);"> "> Product:
<% Set rs = conn.execute("SELECT * FROM tblProducts WHERE blnInStore<>0") Do While Not rs.EOF Response.Write "" & rs("strName") & ": " & formatnumber(rs("mnyPrice"),2) & " SEK.
" rs.Movenext Loop Set rs = Nothing %>
Number of items:
1 2 3 >3

Delivery by mail:
Sweden (5,00 SEK). Rest of the world (10,00 SEK).
 
Name:
Street:
Code:City:
Country:
E-mail:
To pay in currencies other than Swedish kronor, simply
re-calculate from SEK at the current exchange rate.
SEK 10,00 is approximately €1,00.

Invoices are paid via bank account or .

Problems? Questions? Suggestions?
Write to: .
" width="300" height="275" style="border: 1px solid #000000;">  Order form  [Step 2/2]


Please, check and confirm your order.

Your order will be delivered by prioritaire mail
and should reach you in a few days.


  <%=Request.Form("strName")%>
  <%=Request.Form("strAddress")%>
  <%=Request.Form("strZip")%> <%=Request.Form("strCity")%>
  <%=Request.Form("strCountry")%>
  <%=Request.Form("strEmail")%>

  <%=intNumCopies%> <% If clng(intNumCopies) < 2 Then Response.write " item" Else Response.write " items" End If %> of: <%=GetProductName(Request.Form("intProductID"))%>.

  Delivery: <%=GetDeliveryTypeName(Request.Form("intDeliveryTypeID"))%>.

  Total: <%=formatnumber(GetTotalValue(Request.Form("intProductID"), intNumCopies, Request.Form("intDeliveryTypeID")),2)%> SEK.
" method="post"> "> "> "> "> "> "> "> "> ">  
" width="300" height="275" style="border: 1px solid #000000;"  Thank you! 


Your order has been sent.

If you entered an e-mail address you will receive confirmation,
and an invoice, immediately.

Follow this link to get back to Last lovers standing.

Subscribe to the Newsletter!

Copyright 2004-2011 Run Isle Music. | | Design by Run Isle Music.