<% Session("user_name") = "" randomize Dim randomnum Dim pictname randomnum = int(rnd*6) + 1 Select Case randomnum Case 1 pictname = "SRP-1t.gif" Case 2 pictname = "SRP-2t.gif" Case 3 pictname = "SRP-3t.gif" Case 4 pictname = "SRP-4t.gif" Case 5 pictname = "SRP-5t.gif" Case 6 pictname = "SRP-6t.gif" End Select set dbConn_PC=server.createobject("adodb.connection") ConnString_PC = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/SummerReading.mdb") & ";uid=;pw=;" dbConn_PC.Open ConnString_PC ' A connection to the db. dim rs_PC set rs_PC = Server.CreateObject("ADODB.RecordSet") rs_PC.cursorlocation = adUseServer rs_PC.CursorType = adOpenKeySet rs_PC.LockType = adLockOptimistic 'Use to query database qry_PC = "SELECT * FROM tblIndexContent WHERE ContentID = 3" rs_PC.open qry_PC, dbconn_PC page_content = rs_PC("PageContent") rs_PC.close set rs_PC = nothing dbconn_PC.close set dbconn_PC = nothing %>

Not registered yet? click here	<%= teens_program_title %> <%= teens_theme_title %> <%= page_content %> posted reviews by grade <% FOR x = 7 to 12 %> <%= x %> <% IF x <> 12 THEN %>  •  <% END IF %> <% NEXT %>