Used Bikes
Road Stories
Tip of the Week
Calendar
Virtual Bike Show
Rocketman Gear
Parts For Sale
<% Response.Expires = 0 Dim strPast strPast = Trim(Request.QueryString("past")) 'strPast = strPast - 2 %> <% Dim adoCon, objRS Dim rs, ds Dim sql Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("rockdb/rocketdatb.mdb") & ";" sql = "SELECT * FROM tip ORDER BY ID DESC" 'sql = "SELECT * FROM calendar WHERE Date = 6/16/2003" Set objRS = adoCon.Execute(sql) ds = objRS.GetRows 'Response.Write 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 Response.Write "
" Response.Write "" Response.Write "" Response.Write "
Past Tips

" If strPast <> "" Then Response.Write "Current Tip" End If Dim i, j ' For i = 0 To UBound(ds, 2) For j = 1 To UBound(ds, 2) Response.Write "" Response.Write ds(1, j) Response.Write "

" Next ' Next Response.Write "

" If strPast <> "" Then Response.Write "
" Response.Write ds(1, strPast) & "

" Response.Write ds(2, strPast) Response.Write "
" Else ' For i = 0 To 1 Response.Write "
" Response.Write ds(1, 0) & "

" Response.Write ds(2, 0) Response.Write "
" End If ' Next Response.Write "

" Erase ds ' End If End If objRS.Close adoCon.Close Set adoCon = Nothing %>