Welcome to The RocketMan.com - Used Bikes

<% 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 %>