<%@ Language=VBScript %> <% response.Buffer=true %> <% dim CatID Dim cn Dim rs Dim rs2 dim MakeSQL dim ModelSQL dim TrtypeSQL dim CategorySQL dim WhereClause Dim SQLQuery dim rowcounter dim count Dim StrValue CatID = 2 'AIRCRAFT session("Guest")="TRUE" Set cn = Server.CreateObject("ADODB.Connection") cn.Open "arrowwest" %> Arrow-West - Komatsu, Caterpillar, John Deere, Case, Drott, Timberjack, and Wabco used equipment and parts
109-53016 Hwy 60
Acheson Ind.Area
Spruce Grove (Edmonton), Alberta, Canada
T7X 3G7
Phone: (780) 962.4490 Fax: (780) 962-4495
Product List
<% If request.QueryString("whichpage") = "" then mypage=1 Else mypage = request.QueryString("whichpage") end if mypagesize=request.QueryString("pagesize") If mypagesize="" then mypagesize=100 end if If request.QueryString("SQLQuery") <> "" Then SQLQuery = request.QueryString("SQLQuery") else SQLQuery = "SELECT DISTINCT Equipmnt.ref, Equipmnt.year, Equipmnt.hours, Make.make, Model.model FROM 'sys-main!equipmnt' RIGHT OUTER JOIN 'sys-main!equipict' ON equipmnt.ref = equipict.ref LEFT OUTER JOIN 'sys-main!make' ON Equipmnt.make_no = Make.code LEFT OUTER JOIN 'sys-main!model' ON Equipmnt.model_no = Model.code Where (Cat_no =" & CatID & ") ORDER BY Make.make, Model.model, Equipmnt.year" mypage=1 End If mySQL = SQLQuery set rs=Server.CreateObject("ADODB.Recordset") rs.cursorlocation=aduseclient rs.cachesize=5 rs.open SQLQuery, cn if (rs.eof and rs.bof) then%>

Return to Search Again

Sorry your search has produced no exact matches.

Please try another search or click here for our Advanced Search.

Hint: If your search produces no results, try shortening your search word to bring up more results.

Example: D6H LGP (shows no results) shortened to D6H shows all of these machines.

<% response.end end if rs.movefirst rs.pagesize=mypagesize maxpages=cint(rs.pagecount) maxrecs=cint(rs.pagesize) rs.absolutepage=mypage howmanyrecs=0 howmanyfields=rs.fields.count -1 'Put Headings On The Table of Field Names%> <% ' Now loop through the data rowcounter=0 DO UNTIL rs.eof OR howmanyrecs>=maxrecs if rowcounter =0 then rowcounter=1 %> <%else rowcounter=0 %> <% end if %> <% rs.movenext howmanyrecs=howmanyrecs+1 LOOP response.write "
Pictures MAKE MODEL YEAR Details
<% if CheckPicts(rs("Ref"),cn) <> "" then %> &Mk=<%=server.URLencode(trim(rs("Make") & " "))%>&Mod=<%=server.URLencode(trim(rs("Model") & " "))%>&Yr=<%=server.URLencode(trim(rs("year") & " "))%>">Picts <% else response.write (" ") end if%> <%=rs("Make")%> <%=rs("Model")%> <%=rs("year")%> ">MORE
" ' close, destroy rs.close set rs=nothing %> <%Call PageNavBar sub PageNavBar() ' Thanks to Jeff Emrich pad="" scriptname=request.servervariables("script_name") response.write "" response.write "
Page <%= mypage %> of <%= maxpages %>" response.write "" if (mypage mod 10) = 0 then counterstart = mypage - 9 else counterstart = mypage - (mypage mod 10) + 1 end if counterend = counterstart + 9 if counterend > maxpages then counterend = maxpages if counterstart <> 1 then ref="First Page : " Response.Write ref ref="Prev 10 " Response.Write ref else ref="First Page : Prev 10 " Response.Write ref end if Response.Write "[" for counter=counterstart to counterend If counter>=10 then pad="" end if if (clng(counter) <> clng(mypage)) then ref="" & pad & counter & "" else '*************************************** 'Save Current Page Stats to session variable Session("PageRef")=scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "&sqlQuery=" & server.URLencode(mySQL) '***************************************** ref="" & pad & counter & "" end if response.write ref if counter <> counterend then response.write " " next Response.Write "]" if counterend <> maxpages then ref=" Next 10" Response.Write ref ref=" : Last Page " Response.Write ref else ref="Next 10 : Last Page " Response.Write ref end if response.write "
New Basic Search : New Advanced Search
" end sub %>
<% function Get_RefValue(byval refcode, byval strfield, byval strtable,cntemp) ' cntemp passes an open database connection dim strQuery dim rstemp if clng(refcode)=0 then Get_RefValue="" exit function end if strQuery= "select " & cstr(strfield) & " from " & cstr(strtable) & " where code=" & cstr(refcode) set rstemp = cntemp.Execute(strQuery) if rstemp.eof and rstemp.bof then Get_RefValue="" rstemp.close set rstemp=nothing exit function end if Get_RefValue = trim(cstr(rstemp(strfield))) rstemp.close set rstemp=nothing end function function CheckPicts(byval refcode,cntemp) ' cntemp passes an open database connection dim strQuery dim rstemp if clng(refcode)=0 then CheckPicts="" exit function end if strQuery= "Select Ref from Equipict where Ref=" & cstr(refcode) set rstemp = cntemp.Execute(strQuery) if rstemp.eof and rstemp.bof then CheckPicts="" rstemp.close set rstemp=nothing exit function else CheckPicts = "yes" rstemp.close set rstemp=nothing end if end function %>