Used Bikes
Road Stories
Tip of the Week
Calendar
Virtual Bike Show
Rocketman Gear
Parts For Sale
<% Dim adoCon Dim rs Dim sql Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("rockdb/rocketdatb.mdb") & ";" sql = "SELECT * FROM usedbikes" Set rs = adoCon.execute(sql) If Err <> 0 Then Response.Write("Sorry, the connection to the database failed, please try again in a few minutes.") Response.Write Err.Description Else If rs.EOF Then Response.Write "There are no Used Bikes, yet.
Check back soon!!
" Else strImages1 = rs("images1") strImages2 = rs("images2") strImages3 = rs("images3") %> <% While Not rs.EOF Response.Write "
" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" & rs("title") & "
" If strImages2 <> "/backend/images/" Then Response.Write " " End If If strImages3 <> "/backend/images/" Then Response.Write " " End If Response.Write "
Price: $" & rs("price") & "
Color: " & rs("color") & "
CC Size: " & rs("ccsize") & "
Miles: " & rs("miles") & "
" & rs("features") & "
" %> Click on a photo
for a Closer Look! <% Response.Write "
 


" Response.Write "

" rs.MoveNext Wend End If End If rs.Close adoCon.close Set adoCon = Nothing %>