<% Dim adoCon, objRS 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 roadStories" 'sql = "SELECT * FROM calendar WHERE Date = 6/16/2003" Set objRS = adoCon.Execute(sql) '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 If objRS.EOF Then Response.Write "There are no Road Stories, yet.
Check back soon!!" Else While Not objRS.EOF Response.Write "" Response.Write "

" & objRS("Story") & " " Response.Write "

" ' Response.Write "" & objRS("Date") & dDate & "
" objRS.MoveNext Wend 'objRS.close End If End If objRS.Close adoCon.close Set adoCon = Nothing %>