%@ 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 %>
|
|
|||||||||||||||||||||
|
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") %>
|
|||||||||||||||||||||