<% dim mon ' month name in characters dim yr ' current year set con = Server.CreateObject("ADODB.Connection") con.open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("database/iqea.mdb") mon = MonthName( month( date() ) ) yr = Year( date() ) set rsBooks = con.execute("select * from bookreview where bookreview.month='" & mon & "' AND year=" & yr ) %> <% session("pageid") = 10 Session("ip") = Request.ServerVariables("REMOTE_ADDR") Session("referer") = Request.ServerVariables("HTTP_REFERER") Server.Execute( "sitestatisticstest/storepagevisitor.asp" ) %> IQEA - International Quality Education Association · Book Central

Book Central

IQEA constantly strives to bring forth updated forms of information through various mediums, this particularly being books. Every month 15 books will be ranked according to the reviews generated among the public.

Top Ten Books of the Month (<%= MonthName(month( date() ) )%> )

<% row = 0 While not rsBooks.eof row = row + 1 %> <% rsBooks.movenext wend set rsBooks = nothing set con = nothing %>
 
<%=row%>
"> ">
People's Rating
<% IF rsBooks("stars") = 0 or rsBooks("reviews") = 0 THEN currentrating = 0 ELSE currentrating = rsBooks("stars") / rsBooks("reviews") END IF %>
<%= FormatNumber(currentrating, 1) %>
<% rating = (FormatNumber(currentrating,1) *10) * 2 imgRating = "images/"& rating & ".gif" %>
(<%=rsBooks("author")%>)
Rate this boook