Prices Available Upon Request
<% call ListButtons()
function ListButtons()
Set ObjDBconn = Server.CreateObject("ADODB.Connection")
ObjDBconn.Open "inventory"
SQLCarsQuery = "SELECT * FROM inventory where BODY = 'Streetrods / Pickups' ORDER BY YEAR"
Set RSVetteList = ObjDBconn.Execute(SQLCarsQuery)
Do While Not RSVetteList.EOF
ExteriorImage = "FALSE"
InteriorImage = "FALSE"
EngineImage = "FALSE"
ThumbnailImage = "FALSE"
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
ScriptLocation = Server.MapPath(".")
RootLocationLength = Len(ScriptLocation) - 9
RootLocation = Left(ScriptLocation, RootLocationLength)
TagImg = RSVetteList("Image1")
TestFile = RootLocation & "photos" & "\" & TagImg
if FileObject.FileExists(TestFile) then
ExteriorImage = "TRUE"
end if
TagImg = RSVetteList("Image2")
TestFile = RootLocation & "photos" & "\" & TagImg
if FileObject.FileExists(TestFile) then
InteriorImage = "TRUE"
end if
TagImg = RSVetteList("Image3")
TestFile = RootLocation & "photos" & "\" & TagImg
if FileObject.FileExists(TestFile) then
EngineImage = "TRUE"
end if
TagImg = RSVetteList("Image4")
TestFile = RootLocation & "photos" & "\" & TagImg
if FileObject.FileExists(TestFile) then
ThumbnailImage = "TRUE"
end if %>
<% TagSold = RSVetteList("Sold")
if TagSold = "on" then %>
<% elseif ThumbnailImage then
if ExteriorImage then %>
&image=Exterior" target="_top">
 " alt="vehicle photo" border="0" width="80" height="60" onError="NoImage()">
<% elseif InteriorImage then %>
&image=Interior" target="_top">
" alt="vehicle photo" border="0" width="80" height="60" onError="NoImage()">
<% elseif EngineImage then %>
&image=Engine" target="_top">
" alt="vehicle photo" border="0" width="80" height="60" onError="NoImage()">
<% else %>
" alt="vehicle photo" border="0" width="80" height="60" onError="NoImage()">
<% end if %>
<% end if %>
|
<% TagNew = RSVetteList("New")
if TagNew = "on" then %>
<% end if %>
<% = RSVetteList("Year") %> <% = RSVetteList("Vehicle") %> (<% = RSVetteList("ID") %>), <% = RSVetteList("Description") %>
<% TagDescription2 = RSVetteList("Description2")
if TagDescription2 <> "" then %>
<% = RSVetteList("Description2") %>
<% end if %>
<% if ExteriorImage then %>
[&image=Exterior" target="_top">Exterior Photograph]
<% end if %>
<% if InteriorImage then %>
[&image=Interior" target="_top">Interior Photograph]
<% end if %>
<% if EngineImage then %>
[&image=Engine" target="_top">Engine Photograph]
<% end if %>
|
<% RSVetteList.MoveNext Loop ObjDBconn.Close end function %>
Prices Available Upon Request
[ Corvettes | Muscle Cars |
Classics
| Streetrods / Pickups ]
[ Home | Financing
| Contact Us ]
Classic
Corvettes & Collectables
304 S. Pinellas Ave.
Tarpon Springs, FL 34689
Phone: 727-945-1500
| © 2003 Classic Corvettes & Collectables |
|