<% Session("user_name") = "" randomize Dim randomnum Dim pictname randomnum = int(rnd*6) + 1 Select Case randomnum Case 1 pictname = "SRP-1ps.gif" Case 2 pictname = "SRP-2ps.gif" Case 3 pictname = "SRP-3ps.gif" Case 4 pictname = "SRP-4ps.gif" Case 5 pictname = "SRP-5ps.gif" Case 6 pictname = "SRP-6ps.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 = 1" 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	<%= ps_program_title %> <%= ps_theme_title %> <%= page_content %> posted reviews by age 0 •  1 •  2 •  3 •  4 •  5