<% DIM Page, LastPage, LoopCount Page = Request.QueryString("page") if Page = "" then Page = 1 else Page = cint(Page) end if rec.open "GetLiveMusicReviews",G1con,adOpenForwardOnly,adLockOptimistic,adcmdstoredproc if not rec.eof then LastPage = cint(rec("LastPage")) end if if Page <> 1 and Page <= LastPage then rec.move((Page - 1) * 5) end if LoopCount = 0 while not rec.eof and LoopCount < 5 %> <% if trim(rec("Cover_Art_Image")) <> "" then %> <% end if %>

" height="120" width="120">

<% Response.Write "Artist: " & trim(Rec("Artist_Name")) & " " & vbcrlf Response.Write "Album: " & trim(Rec("Album_Title")) & " " & vbcrlf Response.Write "By: " & trim(Rec("Reviewed_By")) & " " & vbcrlf Response.Write trim(Rec("Review")) & " " & vbcrlf if trim(Rec("Link_1")) <> "" then Response.Write "" & trim(Rec("Link_1")) & " " & vbcrlf end if if trim(Rec("Link_2")) <> "" then Response.Write "" & trim(Rec("Link_2")) & " " & vbcrlf end if %>

<% LoopCount = LoopCount + 1 rec.movenext wend %> <% if Page <> 1 then %> <% end if if Page <> LastPage and LastPage <> 0 then %>

PREVIOUS

NEXT <% end if rec.close set rec = nothing %>