<%
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 virtualshow ORDER BY rating DESC"
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 Bikes for the Show, yet. Check back soon!!"
Else
%>
<%
While Not rs.EOF
' strImages = rs("images")
strImages1 = rs("images1")
strImages2 = rs("images2")
strImages3 = rs("images3")
strID = rs("ID")
strRating = rs("rating")
Response.Write "
