<% dim onPage onPage = "preorder" Set fso = server.CreateObject("Scripting.FileSystemObject") %>
<%'======Left Section=============%> <%'======Separator==========%> <%'======Content Section==========%> " & vbcr Response.Write " " & vbcr Response.Write "" & vbcr Response.Write "
my account | shopping bag | order status | help    


PreOrder [ &<%=Request.QueryString%>')" class="linkgrey">Send this page to your friend ]

Note:
We currently accept preorder only for the local Denver area. All preorders have to be paid and picked up at the store when we notify you that the product has arrived. You will have 2 weeks after notification to pick up your order. Click here for Valhalla's Game Center location.

Preorder Online:

  • Enter the quantity in the "Quantity" box for each item you wish to preorder.
  • Click the "PreOrder" button to place your order. You can find the button at the very bottom of the page.

    • Preorder By Phone/At The Store:

  • Make a note of the SKU number of the product you wish to preorder or print this page.
  • Specify or enter the quantity in the "Quantity" box for each item you wish to preorder.
  • Dial 303.463.5451 or visit the store to place your order.
    • <% strsql = "SELECT cpo.pf_id, cpo.prod_name, cp.sku, cp.list_price, cpo.arrivaldate, cdp.dept_id, cd.parent_id " &_ "FROM catalog_preorder cpo " &_ "INNER JOIN catalog_product cp ON cpo.pf_id = cp.pf_id " &_ "INNER JOIN catalog_dept_prod cdp ON cp.pf_id = cdp.pf_id " &_ "INNER JOIN catalog_dept cd ON cdp.dept_id = cd.dept_id " &_ "ORDER BY cpo.pf_id ASC" set rsNew = server.CreateObject("ADODB.Recordset") rsNew.Open strsql,conn,3,3 if not rsNew.EOF then 'recCount = rsNew.recordcount dim myDate, chkdate do until rsNew.EOF Response.Write "" & vbcr Response.Write " " & vbcr Response.Write " " & vbcr Response.Write " " & vbcr Response.Write "" & vbcr rsNew.MoveNext loop Response.Write "
    " & vbcr if CheckProdImg("assets\new_product",rsNew("sku").value) then Response.Write " " & vbcr else Response.Write "  " & vbcr end if Response.Write " " & vbcr Response.Write " " & replace(rsNew("prod_name").value,"''","'") & "
    " & vbcr Response.Write " SKU: " & rsNew("sku").value & "
    " & vbcr Response.Write " Price: " & formatcurrency(rsNew("list_price")/100) & "
    " & vbcr Response.Write " Expected Arrival Date: " if not isNULL(rsNew("arrivaldate")) then myDate = rsNew("arrivaldate") if not isDate(myDate) then chkdate = split(rsNew("arrivaldate"),"/") response.write monthname(chkdate(0)) & " " & chkdate(2) else Response.Write myDate end if else Response.Write "TBD" end if Response.Write "
    " & vbcr Response.Write "     		" & vbcr Response.Write " " & vbcr Response.Write " " & vbcr Response.Write " " & vbcr Response.Write " " & vbcr Response.Write " Quantity: 
    " & vbcr Response.Write "
    " & vbcr Response.Write "
    " & vbcr Response.Write "

    " & vbcr else Response.Write "
    " & vbcr Response.Write "
    No PreOrder this month
    " & vbcr Response.Write "
    " & vbcr end if %> <% set fc = nothing set f = nothing set fso = nothing %> <%'Footer Section %>