<%@ LANGUAGE="VBSCRIPT" %> <% strSQL="select * from Jeep_Pics where type = 'history' order by file_name" strSQL2="select * from Jeep_Pics where type = 'ad' order by file_name" strSQL3="select * from Jeep_Pics where type = 'concept' order by file_name" strSQL4="select * from Jeep_Pics where type = 'history' order by file_name" 'file = request("file_name") Set SWYNK = Server.CreateObject("ADODB.Connection") SWYNK.ConnectionTimeout = Session("SWYNK_ConnectionTimeout") SWYNK.CommandTimeout = Session("SWYNK_CommandTimeout") SWYNK.Open Session("SWYNK_ConnectionString"), Session("SWYNK_RuntimeUserName"), Session("SWYNK_RuntimePassword") Set mycmdTemp = Server.CreateObject("ADODB.Command") Set mycmdTemp.ActiveConnection = SWYNK mycmdTemp.CommandType = 1 mycmdTemp.CommandText = strSQL Set mycmdTemp2 = Server.CreateObject("ADODB.Command") Set mycmdTemp2.ActiveConnection = SWYNK mycmdTemp2.CommandType = 1 mycmdTemp2.CommandText = strSQL2 Set mycmdTemp3 = Server.CreateObject("ADODB.Command") Set mycmdTemp3.ActiveConnection = SWYNK mycmdTemp3.CommandType = 1 mycmdTemp3.CommandText = strSQL3 Set mycmdTemp4 = Server.CreateObject("ADODB.Command") Set mycmdTemp4.ActiveConnection = SWYNK mycmdTemp4.CommandType = 1 mycmdTemp4.CommandText = strSQL4 Set myJeeps = Server.CreateObject("ADODB.Recordset") myJeeps.Open mycmdTemp, , 1, 3 Set myJeeps2 = Server.CreateObject("ADODB.Recordset") myJeeps2.Open mycmdTemp2, , 1, 3 Set myJeeps3 = Server.CreateObject("ADODB.Recordset") myJeeps3.Open mycmdTemp3, , 1, 3 Set myJeeps4 = Server.CreateObject("ADODB.Recordset") myJeeps4.Open mycmdTemp4, , 1, 3 %> 4X4REVIEW.COM: 50 Plus Years of Jeep®

50 Plus Years of Jeep®
By Rick Webster

The Jeep® Heritage - 50 plus years of the Jeep lineage with more than 50 high resolution pictures of product Jeeps, concept Jeeps, prototypes and some RARE Jeep advertisements! <% 'on error resume next %> <% 'do while not myJeeps4.EOF %> <% '=myJeeps4("file_name") %>
<% 'myJeeps4.movenext 'loop 'myJeeps4.close 'swynk.close %>

<% if myJeeps.eof then response.write "" else do while not myJeeps.EOF while not myJeeps.eof response.write "" for i = 1 to 5 if not myJeeps.eof then %> <% myJeeps.movenext end if next %> <% WEND loop end if myJeeps.close set myJeeps = nothing 'swynk.close %>
Pictures of the Jeep® Heritage
ERROR!
<% = replace(myJeeps("file_name"),"-"," ") %>
-LIL.jpg" border=1>
.jpg" >Click for medium pic
-BIG.jpg">Click for huge pic

<% if myJeeps2.eof then response.write "" else do while not myJeeps2.EOF while not myJeeps2.eof response.write "" for i = 1 to 5 if not myJeeps2.eof then %> <% myJeeps2.movenext end if next %> <% WEND loop end if myJeeps2.close set myJeeps2 = nothing 'swynk.close %>
Pictures of Old Jeep® Advertisements
ERROR!
<% = replace(myJeeps2("file_name"),"-"," ") %>
-LIL.jpg" border=1>
.jpg" >Click for medium pic
-BIG.jpg">Click for huge pic

<% if myJeeps3.eof then response.write "" else do while not myJeeps3.EOF while not myJeeps3.eof response.write "" for i = 1 to 5 if not myJeeps3.eof then %> <% myJeeps3.movenext end if next %> <% WEND loop end if myJeeps3.close set myJeeps3 = nothing swynk.close %>
Pictures of Jeep® Prototypes and Concepts
ERROR!
<% = replace(myJeeps3("file_name"),"-"," ") %>
-LIL.jpg" border=1>
.jpg" >Click for medium pic
-BIG.jpg">Click for huge pic