<% 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 gear" 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 RocketMan Gear, yet.
Check back soon!!
" Else %> <% While Not rs.EOF ' strImage = Replace(rs("images1"), ".", ".") ' strImage = rs("images1") strImages1 = rs("images1") strImages2 = rs("images2") strImages3 = rs("images3") strId = rs("ID") 'strTitle = Replace(rs("title"), "'", "'") 'strPrice = Replace(rs("price"), ".", ".") strTitle = rs("title") strPrice = rs("price") Response.Write "
" Response.Write "
" & rs("title") & "
" Response.Write "
" 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 "
" Response.Write "
Price:
$" & rs("price") & "
" Response.Write "
Sizes:
" & rs("sizes") & "
" Response.Write "
" & rs("geardesc") & "
" %>
<% Response.Write "
" Response.Write "
" rs.MoveNext Wend End If End If rs.Close adoCon.Close Set adoCon = Nothing %>
