<% Session("user_name") = "" randomize Dim randomnum Dim pictname randomnum = int(rnd*6) + 1 Select Case randomnum Case 1 pictname = "SRP-1.gif" Case 2 pictname = "SRP-2.gif" Case 3 pictname = "SRP-3.gif" Case 4 pictname = "SRP-4.gif" Case 5 pictname = "SRP-5.gif" Case 6 pictname = "SRP-6.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 = 2" 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	<%= kids_program_title %> <%= kids_theme_title %> <%= page_content %> posted reviews by grade K <% FOR x = 1 to 6 %> • <%= x %> <% NEXT %>