% 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 %>
|
|||||||||||
|
Order form [Step 1/2] |
||||||||||
" 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. |
||||||||||
" 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. |