<% Set conn = Server.CreateObject("ADODB.Connection") MdbFilePath = Server.MapPath("wagdbhome\slice.mdb") conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" set rsReviews = conn.execute("Select Name, City, State, Course_ID, CourseID, RvwDate, Reviewer, Score, r.Review from Reviews r, Courses c where r.CourseID=c.Course_ID" & request.QueryString("id") & " Order by RvwDate Desc") %>
Course Reviews

<%if not rsReviews.eof then%> <% do until rsReviews.eof %>

"><%response.write(rsReviews("Name"))%> <%response.write(rsReviews("City"))%>, <%response.write(rsReviews("State"))%> - <%response.write(rsReviews("RvwDate"))%>
<%response.write(rsReviews("Review"))%> <%response.write(rsReviews("Reviewer"))%> <%if not rsReviews("Score") = "" then response.write(" ("+rsReviews("Score")+")") end if%> <% rsReviews.movenext loop rsReviews.close %> <%end if %>