<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "222, 223, 224, 286, 287" %> <% '----------------------------------------------- 'SET PAGETITLE TAG '----------------------------------------------- strPageTitleHTML = GetString("PageTitle_SpeedOrder") & " | " & GetString("Config_Webshopname") %> <% '=============================================== ' CactuShop ASP Shopping Cart ' ©1999-2004 Cactusoft Ltd. www.cactusoft.com '=============================================== ' All rights reserved. ' Use of this code is covered by the terms and ' conditions in the license agreement. No ' unauthorized duplication or distribution is ' permitted. Cactusoft's copyright notices must ' remain in the ASP sections of the code. '=============================================== '----------------------------------------------- 'PROCESS SPEEDORDER REQUEST 'Number of Items which can be ordered at once is 'held in config table row ("SpeedRowCount"). 'This page creates a table to permit entry of 'speedorders and then calls 'speedorder_process.asp '----------------------------------------------- numLineCount = Application(LICENSENUMBER & "speedrowcount") '----------------------------------------------- 'READ PAGE TEMPLATE FROM FILE '----------------------------------------------- Call ReadFromTemplate(strTemplateLocation, aryPageTemplate, strBasketHTML, strCategoryListHTML) '----------------------------------------------- 'WRITE FIRST HALF OF PAGE HTML '----------------------------------------------- response.write(aryPageTemplate(0)) %>

<% WriteString("PageTitle_SpeedOrder") %>

<% WriteString("ContentText_SpeedOrderDesc") %>.

<% For numSpeedRows = 1 to numLineCount numBackgroundCounter = numBackgroundCounter + 1 If numBackgroundCounter mod 2 = 0 then strBackgroundClass = " class='mainpagetableline2'" else strBackgroundClass= " class='mainpagetableline'" end if %> > <% Next %> <% WriteString("ContentText_ProductCode") %> <% WriteString("ContentText_Quantity") %> <% =numSpeedRows %>

" name="btnProcess">

<% '----------------------------------------------- 'WRITE LAST HALF OF PAGE HTML '----------------------------------------------- response.write(aryPageTemplate(1)) '----------------------------------------------- 'CLOSE DATA CONNECTIONS '----------------------------------------------- objDataConn.Close set objDataConn = nothing %>