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 parts" 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 is no Parts, yet.
Check back soon!!" Else %> <% While Not rs.EOF strImages1 = rs("images1") strImages2 = rs("images2") strImages3 = rs("images3") strId = rs("ID") ' strImage = rs("images1") strTitle = rs("title") strPrice = rs("price") 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 %>
Click on a photo
for a Closer Look!
<% Response.Write "
Price: $" & rs("price") & "
" & rs("partdesc") & "
<% Response.Write " 

" Response.Write "

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