<% menuType = "menu_white" %> <% pageTitle = "ARCTIC CAT - Past Models" pageDescription = "" pageImage = "" If request("id") <> "" Then ' condition for 2009 and above If request("year") <> "" Then showSpec = 1 Set objXML = Server.CreateObject("Microsoft.XMLDOM") Set objLst = Server.CreateObject("Microsoft.XMLDOM") Set objPanel = Server.CreateObject("Microsoft.XMLDOM") objXML.async = False objXML.Load (Server.MapPath("pastModels/" & Request.QueryString("year")& "/xml/" & Request.QueryString("model") & "_spec.xml")) 'Response.Write(Request.QueryString) If objXML.parseError.errorCode <> 0 Then Response.Write(error) End If Set objLst = objXML.getElementsByTagName("panel") noOfHeadlines = objLst.length Else ' condition for 2009 and above function colorCodetoHex(colorcode) Select Case colorcode Case "green" colorCodetoHex = "#67C00E" Case "silver" colorCodetoHex = "#969696" Case "orange" colorCodetoHex = "#F48E3C" Case "red" colorCodetoHex = "#E21B22" Case "black" colorCodetoHex = "#000000" Case "blue" colorCodetoHex = "#176EB1" Case "white" colorCodetoHex = "#FFFFFF" End Select end function dim item_model_id, showSpec showSpec = 0 item_model_id = request("id") showSpec = 1 'MAKE CONNECTION Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open Application("ArctcoSQL_ConnectionString") 'GET MODEL DESCRIPTION dim objRSRealname set objRSRealname = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT display_name FROM item_model WHERE (item_model_id = " & Clng(item_model_id) & ") " objRSRealname.open strSQL,objConn,3,1 'GET CODENAME dim objRSSpecs set objRSSpecs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT spec_name, spec_value FROM item_modelspecs " strSQL = strSQL & " WHERE (item_model_id = " & Clng(item_model_id) & ") " 'strSQL = strSQL & " AND (spec_name <> 'Standard Equipment' AND spec_name <> 'Optional Equipment') " strSQL = strSQL & " AND (approved = 1) ORDER BY item_modelspecs_id, sort_order " objRSSpecs.open strSQL, objConn, 3, 1 'GET SKUS AND CORRESPONDING COLORS dim objRSSKUs, objRSSKUs_total, i set objRSSKUs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT item_sku.item_sku_id, item_color.code_name FROM item_sku INNER JOIN item_color ON " strSQL = strSQL & "item_sku.item_color_id = item_color.item_color_id WHERE item_model_id = " & Clng(item_model_id) & " AND (item_sku.approved = 1) ORDER BY item_sku.sort_order " objRSSKUs.open strSQL, objConn, 3, 1 objRSSKUs_total = objRSSKUs.recordcount 'PUT SKUS AND COLORS IN AN ARRAY dim arrSKU(3,2) For i=0 to objRSSKUs_total - 1 arrSKU(i,0) = objRSSKUs("item_sku_id") arrSKU(i,1) = colorCodetoHex(objRSSKUs("code_name")) objRSSKUs.movenext Next set objRSSKUs = nothing ' - - - - - - - - - - - - - - - - - - End If End If %> <% Response.Write(pageTitle) %>
<% if Request.QueryString("id") = "" then %>


PAST MODELS

Every year we cover a lot of trails and conquer a lot of mountains. The riding we do inspires the legendary snowmobiles we build. In recent years we’ve built some of the most sought after snowmobiles of all time. In some cases your Arctic dealer can even help you get your hands on one. Now may be your last chance to stake your claim. Browse through Arctic Cat’s past models from 2006-2010 and ask your dealer about availability.

<% else %> <% if Request.QueryString("year") = "" then %>
<% modelName = objRSRealname.fields(0).value Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("
") do while not objRSSpecs.EOF Response.Write("
") Response.Write("") Response.Write("") Response.Write("") Response.Write("") objRSSpecs.moveNext loop %>
") Response.Write("

" & modelName & "

") Response.Write("
") Response.Write("Colors") Response.Write("") for i=0 to objRSSKUs_total-1 %>
<% next %> <% Response.Write("
") Response.Write(objRSSpecs.fields(0).value) Response.Write("") Response.Write(objRSSpecs.fields(1).value) Response.Write("
<% else %>
<% Response.Write("") %>
<% Response.Write("") Set objLst = objXML.getElementsByTagName("panel") noOfHeadlines = objLst.length modelName = UCase(objLst(0).getAttribute("name")) 'Response.Write("
") Response.Write("
") For i = 0 to (noOfHeadlines-1) Set objPanel = objLst(i).getElementsByTagName("spec") noOfspecs = objPanel.length For v = 0 to (noOfspecs-1) Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("
") Next Next %>
") Response.Write("

" & modelName &"

") Response.Write("
") Response.Write(objPanel(v).getAttribute("name")) Response.Write("") Response.Write(objPanel(v).text) Response.Write("
<% end if %> <% end if %>