Prices Available Upon Request
<% call ListButtons()
function ListButtons()
Set ObjDBconn = Server.CreateObject("ADODB.Connection")
ObjDBconn.Open "inventory"
SQLCarsQuery = "SELECT * FROM inventory where BODY = 'Classics' ORDER BY YEAR"
Set RSVetteList = ObjDBconn.Execute(SQLCarsQuery)
Do While Not RSVetteList.EOF
ExteriorImage = "FALSE"
InteriorImage = "FALSE"
EngineImage = "FALSE"
ThumbnailImage = "FALSE"
AdditionalImage = "FALSE"
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
TagImg = RSVetteList("Image1")
TestFile = Server.MapPath ("./photos") & "\" & TagImg
if FileObject.FileExists(TestFile) then
ExteriorImage = "TRUE"
end if
TagImg = RSVetteList("Image2")
TestFile = Server.MapPath ("./photos") & "\" & TagImg
if FileObject.FileExists(TestFile) then
InteriorImage = "TRUE"
end if
TagImg = RSVetteList("Image3")
TestFile = Server.MapPath ("./photos") & "\" & TagImg
if FileObject.FileExists(TestFile) then
EngineImage = "TRUE"
end if
TagImg = RSVetteList("Image4")
TestFile = Server.MapPath ("./photos") & "\" & TagImg
if FileObject.FileExists(TestFile) then
ThumbnailImage = "TRUE"
end if
TagImg = RSVetteList("Image5")
TestFile = Server.MapPath ("./photos") & "\" & TagImg
if FileObject.FileExists(TestFile) then
AdditionalImage = "TRUE"
end if %>
<% TagSold = RSVetteList("Sold")
if TagSold = "on" then %>
<% elseif ThumbnailImage then
if ExteriorImage then %>
&image=Exterior" target="_top">
|
<% TagNew = RSVetteList("New")
if TagNew = "on" then %>
<% end if %>
<% TagSpecial = RSVetteList("Special")
if TagSpecial = "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 %>
<% if AdditionalImage then %>
[&image=Additional" target="_top">Additional Photograph]
<% end if %>
|
<% RSVetteList.MoveNext Loop ObjDBconn.Close end function %>
Prices Available Upon Request
[ Corvettes | Muscle Cars |
Classics
| Streetrods / Pickups ]
[ Home | News
| Financing
| Directions | Contact Us ]
Classic
Corvettes & Collectables
304 S. Pinellas Ave.
Tarpon Springs, FL 34689
Phone: 727-945-1500
| © 2003 Classic Corvettes & Collectables |
 
|