<% CodeVar = "0" If(Request.QueryString("Code") <> "") Then CodeVar = Request.QueryString("Code")%> <% 'Response.Expires = 0 'Response.Expiresabsolute = Now() - 1 'Response.AddHeader "pragma","no-cache" 'Response.AddHeader "cache-control","private" 'Response.CacheControl = "no-cache" 'Response.Expires = 0 'ScriptTimeout = 0 ' Create and Open the Database Connection Set db = Server.CreateObject("ADODB.Connection") CommandTimeout = 0 db.Open "dsn=DemoBase;" '-------------------Present Recordset---------------- Set Current = db.Execute("SELECT TheDate, Code, Comments, Apparatus, title, [References], instructions, Collection, ProducerDistributor, Chapter, Format, BWorColor, Length, Description FROM dbo.AllDemos WHERE Code = '" + Replace(CodeVar, "'", "''") + "' Order by Code Asc") '-------------------Next Recordset---------------- Set Forward = db.Execute("SELECT Code FROM dbo.AllDemos WHERE Code > '" & Replace(CodeVar, "'", "''") & "' Order by Code Asc") '------------------Back record-------------------- Set Back = db.Execute("SELECT Code FROM dbo.AllDemos WHERE Code < '" & Replace(CodeVar, "'", "''") & "' Order by Code desc") %> Demonstration Details for Demonstration <%=(current.Fields.Item("Title").Value)%>
<% Dim Code,Code1,Code2,Code3,Topic codeValue=current.Fields.Item("Code").Value Code=Left(codeValue,1) Select Case Code Case "1" If Session("Logged") = True Then Response.Write "  Mechanics" Else Response.write "  Mechanics" End If Case "2" If Session("Logged") = True Then Response.Write "  Fluid Mechanics" Else Response.write " Fluid Mechanics" End If Case "3" If Session("Logged") = True Then Response.Write "  Oscillations and Waves" Else Response.write " Oscillations and Waves" End If Case "4" If Session("Logged") = True Then Response.Write "  Thermodynamics" Else Response.write " Thermodynamics" End If Case "5" If Session("Logged") = True Then Response.Write "  Electricity and Magnetism" Else Response.write " Electricity and Magnetism" End If Case "6" If Session("Logged") = True Then Response.Write "  Optics" Else Response.write " Optics" End If Case "7" If Session("Logged") = True Then Response.Write "  Modern Physics" Else Response.write " Modern Physics" End If Case "8" Response.write " Astronomy" End Select %>    >   <% Code1=Left(codeValue,2) Select Case Code1 Case "1A" If Session("Logged") = True Then Response.Write "  Measurement" Else Response.write " Measurement" End If Case "1C" If Session("Logged") = True Then Response.Write "  Motion in One Dimension" Else Response.write " Motion in One Dimension" End If Case "1D" If Session("Logged") = True Then Response.Write "  Motion in Two Dimensions" Else Response.write " Motion in Two Dimensions" End If Case "1E" If Session("Logged") = True Then Response.Write "  Relative Motion" Else Response.write " Relative Motion" End If Case "1F" If Session("Logged") = True Then Response.Write "  Newton's First Law" Else Response.write " Newton's First Law" End If Case "1G" If Session("Logged") = True Then Response.Write "  Newton's Second Law" Else Response.write " Newton's Second Law" End If Case "1H" If Session("Logged") = True Then Response.Write "  Newton's Third Law" Else Response.write " Newton's Third Law" End If Case "1J" If Session("Logged") = True Then Response.Write "  Statics of Rigid Bodies" Else Response.write " Statics of Rigid Bodies" End If Case "1K" If Session("Logged") = True Then Response.Write "  Applications of Newton's Laws" Else Response.write " Applications of Newton's Laws" End If Case "1L" If Session("Logged") = True Then Response.Write "  Gravity" Else Response.write " Gravity" End If Case "1M" If Session("Logged") = True Then Response.Write "  Work and Energy" Else Response.write " Work and Energy" End If Case "1N" If Session("Logged") = True Then Response.Write "  Linear Momentum" Else Response.write " Linear Momentum" End If Case "1Q" If Session("Logged") = True Then Response.Write "  Rotational Dynamics" Else Response.write " Rotational Dynamics" End If Case "1R" If Session("Logged") = True Then Response.Write "  Properties of Matter" Else Response.write " Properties of Matter" End If End Select Code2=Left(codeValue,2) Select Case Code2 Case "2A" If Session("Logged") = True Then Response.Write "  Surface Tension" Else Response.write " Surface Tension" End If Case "2B" If Session("Logged") = True Then Response.Write "  Statics of Fluids" Else Response.write " Statics of Fluids" End If Case "2C" If Session("Logged") = True Then Response.Write "  Dynamics of Fluids" Else Response.write " Dynamics of Fluids" End If End Select Code3=Left(codeValue,2) Select Case Code3 Case "3A" If Session("Logged") = True Then Response.Write "  Oscillations" Else Response.write " Oscillations" End If Case "3B" If Session("Logged") = True Then Response.Write "  Wave Motion" Else Response.write " Wave Motion" End If Case "3C" If Session("Logged") = True Then Response.Write "  Acoustics" Else Response.write " Acoustics" End If Case "3D" If Session("Logged") = True Then Response.Write "  Instruments" Else Response.write " Instruments" End If Case "3E" If Session("Logged") = True Then Response.Write "  Sound Reproduction" Else Response.write " Sound Reproduction" End If End Select Code4=Left(codeValue,2) Select Case Code4 Case "4A" If Session("Logged") = True Then Response.Write "  Thermal Properties of Matter" Else Response.write " Thermal Properties of Matter" End If Case "4B" If Session("Logged") = True Then Response.Write "  Heat and the First Law" Else Response.write " Heat and the First Law" End If Case "4C" If Session("Logged") = True Then Response.Write "  Change of State" Else Response.write " Change of State" End If Case "4D" If Session("Logged") = True Then Response.Write "  Kinetic Theory" Else Response.write " Kinetic Theory" End If Case "4E" If Session("Logged") = True Then Response.Write "  Gas Law" Else Response.write " Gas Law" End If Case "4F" If Session("Logged") = True Then Response.Write "  Entropy and the Second Law" Else Response.write " Entropy and the Second Law" End If End Select Code5=Left(codeValue,2) Select Case Code5 Case "5A" If Session("Logged") = True Then Response.Write "  Electrostatics" Else Response.write " Electrostatics" End If Case "5B" If Session("Logged") = True Then Response.Write "  Electric Fields and Potential" Else Response.write " Electric Fields and Potential" End If Case "5C" If Session("Logged") = True Then Response.Write "  Capacitance" Else Response.write " Capacitance" End If Case "5D" If Session("Logged") = True Then Response.Write "  Resistance" Else Response.write " Resistance" End If Case "5E" If Session("Logged") = True Then Response.Write "  Electromotive Force and Current" Else Response.write " Electromotive Force and Current" End If Case "5F" If Session("Logged") = True Then Response.Write "  DC Circuits" Else Response.write " DC Circuits" End If Case "5G" If Session("Logged") = True Then Response.Write "  Magnetic Materials" Else Response.write " Magnetic Materials" End If Case "5H" If Session("Logged") = True Then Response.Write "  Magnetic Fields and Forces" Else Response.write " Magnetic Fields and Forces" End If Case "5J" If Session("Logged") = True Then Response.Write "  Inductance" Else Response.write " Inductance" End If Case "5K" If Session("Logged") = True Then Response.Write "  Electromagnetic Induction" Else Response.write " Electromagnetic Induction" End If Case "5L" If Session("Logged") = True Then Response.Write "  AC Circuits" Else Response.write " AC Circuits" End If Case "5M" If Session("Logged") = True Then Response.Write "  Semiconductors and Tubes" Else Response.write " Semiconductors and Tubes" End If Case "5N" If Session("Logged") = True Then Response.Write "  Electromagnetic Radiation" Else Response.write " Electromagnetic Radiation" End If End Select Code6=Left(codeValue,2) Select Case Code6 Case "6A" If Session("Logged") = True Then Response.Write "  Geometrical Optics" Else Response.write " Geometrical Optics" End If Case "6B" If Session("Logged") = True Then Response.Write "  Photometry" Else Response.write " Photometry" End If Case "6C" If Session("Logged") = True Then Response.Write "  Diffraction" Else Response.write " Diffraction" End If Case "6D" If Session("Logged") = True Then Response.Write "  Interference" Else Response.write " Interference" End If Case "6E" If Session("Logged") = True Then Response.Write "  Interference" Else Response.write " Interference" End If Case "6F" If Session("Logged") = True Then Response.Write "  Color" Else Response.write " Color" End If Case "6H" If Session("Logged") = True Then Response.Write "  Polarization" Else Response.write " Polarization" End If Case "6J" If Session("Logged") = True Then Response.Write "  The Eye" Else Response.write " The Eye" End If Case "6Q" If Session("Logged") = True Then Response.Write "  Modern Optics" Else Response.write " Modern Optics" End If End Select Code7=Left(codeValue,2) Select Case Code7 Case "7A" If Session("Logged") = True Then Response.Write "  Quantum Effects" Else Response.write " Quantum Effects" End If Case "7B" If Session("Logged") = True Then Response.Write "  Atomic Physics" Else Response.write " Atomic Physics" End If Case "7D" If Session("Logged") = True Then Response.Write "  Nuclear Physics" Else Response.write " Nuclear Physics" End If Case "7E" If Session("Logged") = True Then Response.Write "  Elementary Particles" Else Response.write " Elementary Particles" End If Case "7F" If Session("Logged") = True Then Response.Write "  Relativity" Else Response.write " Relativity" End If End Select Code8=Left(codeValue,2) Select Case Code8 Case "8A" Response.write " Planetary Astronomy" Case "8B" Response.write " Stellar Astronomy" Case "8C" Response.write " Cosmology" End Select %>   >   <% Code1A=Left (codeValue,4) If Session("Logged") = True Then Select Case Code1A Case "1A10" Response.write " Basic Units" Case "1A20" Response.write " Error and Accuracy" Case "1A30" Response.write " Coordinate Systems" Case "1A40" Response.write " Vectors" Case "1A50" Response.write " Math Topics" Case "1A60" Response.write " Scaling" End Select Code1C=Left (codeValue,4) Select Case Code1C Case "1C10" Response.write " Velocity" Case "1C20" Response.write " Uniform Acceleration" Case "1C30" Response.write " Measuring g" End Select Code1D=Left (codeValue,4) Select Case Code1D Case "1D10" Response.write " Displacement in Two Dimensions" Case "1D15" Response.write " Velocity, Position, and Acceleration" Case "1D40" Response.write " Motion of the Center of Mass" Case "1D50" Response.write " Central Forces" Case "1D52" Response.write " Deformation by Central Forces" Case "1D55" Response.write " Centrifugal Escape" Case "1D60" Response.write " Projectile Motion" End Select Code1E=Left (codeValue,4) Select Case Code1E Case "1E10" Response.write " Moving Reference Frames" Case "1E20" Response.write " Rotating Reference Frames" Case "1E30" Response.write " Coriolis Effect" End Select Code1F=Left (codeValue,4) Select Case Code1F Case "1F10" Response.write " Measuring Inertia" Case "1F20" Response.write " Inertia of Rest" Case "1F30" Response.write " Inertia of Motion" End Select Code1G=Left (codeValue,4) Select Case Code1G Case "1G10" Response.write " Force, Mass and Acceleration" Case "1G20" Response.write " Accelerated Reference Frames" Case "1G30" Response.write " Complex Systems" End Select Code1H=Left (codeValue,4) Select Case Code1H Case "1H10" Response.write " Action and Reaction" Case "1H11" Response.write " Recoil" End Select Code1J=Left (codeValue,4) Select Case Code1J Case "1J10" Response.write " Finding Center of Gravity" Case "1J11" Response.write " Exceeding Center of Gravity" Case "1J20" Response.write " Stable, Unstable and Neutral Equilibrium" Case "1J30" Response.write " Resolution of Forces" Case "1J40" Response.write " Static Torque" End Select Code1K=Left (codeValue,4) Select Case Code1K Case "1K10" Response.write " Dynamic Torque" Case "1K20" Response.write " Friction" Case "1K30" Response.write " Pressure" End Select Code1L=Left (codeValue,4) Select Case Code1L Case "1L10" Response.write " Universal Gravitational Constant" Case "1L20" Response.write " Orbits" End Select Code1M=Left (codeValue,4) Select Case Code1M Case "1M10" Response.write " Work" Case "1M20" Response.write " Simple Machines" Case "1M30" Response.write " Non-Conservative Forces" Case "1M40" Response.write " Conservation of Energy" Case "1M50" Response.write " Mechanical Power" End Select Code1N=Left (codeValue,4) Select Case Code1N Case "1N10" Response.write " Impulse and Thrust" Case "1N20" Response.write " Conservation of Linear Momentum" Case "1N21" Response.write " Mass and Momentum Transfer" Case "1N22" Response.write " Rockets" Case "1N30" Response.write " Collisions in One Dimension" Case "1N40" Response.write " Collisions in Two Dimensions" End Select Code1Q=Left (codeValue,4) Select Case Code1Q Case "1Q10" Response.write " Moment of Inertia" Case "1Q20" Response.write " Rotational Energy" Case "1Q30" Response.write " Transfer of Angular Momentum" Case "1Q40" Response.write " Conservation of Angular Momentum" Case "1Q50" Response.write " Gyros" Case "1Q60" Response.write " Rotational Stability" End Select Code1R=Left (codeValue,4) Select Case Code1R Case "1R10" Response.write " Hooke's Law" Case "1R20" Response.write " Tensile and Compressive Stress" Case "1R30" Response.write " Shear Stress" Case "1R40" Response.write " Coefficient of Restitution" Case "1R50" Response.write " Crystal Structure" End Select Code2A=Left (codeValue,4) Select Case Code2A Case "2A10" Response.write " Force of Surface Tension" Case "2A15" Response.write " Minimal Surface" Case "2A20" Response.write " Capillary Action" Case "2A30" Response.write " Surface Tension Propulsion" End Select Code2B=Left (codeValue,4) Select Case Code2B Case "2B20" Response.write " Static Pressure" Case "2B30" Response.write " Atmospheric Pressure" Case "2B35" Response.write " Measuring Pressure" Case "2B40" Response.write " Density and Buoyancy" Case "2B60" Response.write " Siphons, Fountains and Pumps" End Select Code2C=Left (codeValue,4) Select Case Code2C Case "2C10" Response.write " Flow Rate" Case "2C20" Response.write " Bernoulli Force" Case "2C30" Response.write " Viscosity" Case "2C40" Response.write " Turbulent and Streamline Flow" Case "2C50" Response.write " Vortices" Case "2C60" Response.write " Non Newtonian Fluids" End Select Code3A=Left (codeValue,4) Select Case Code3A Case "3A10" Response.write " Pendula" Case "3A15" Response.write " Physical Pendula" Case "3A20" Response.write " Springs and Oscillators" Case "3A40" Response.write " Simple Harmonic Motion" Case "3A50" Response.write " Damped Oscillators" Case "3A60" Response.write " Driven Mechanical Resonance" Case "3A70" Response.write " Coupled Oscillations" Case "3A75" Response.write " Normal Modes" Case "3A80" Response.write " Lissajous Figures" Case "3A95" Response.write " Non-Linear Systems" End Select Code3B=Left (codeValue,4) Select Case Code3B Case "3B10" Response.write " Transverse Pulses and Waves" Case "3B20" Response.write " Longitudinal Pulses and Waves" Case "3B22" Response.write " Standing Waves" Case "3B25" Response.write " Impedance and Dispersion" Case "3B27" Response.write " Compound Waves" Case "3B30" Response.write " Wave Properties of Sound" Case "3B33" Response.write " Phase and Group Velocity" Case "3B35" Response.write " Reflection and Refraction(sound)" Case "3B39" Response.write " Transfer of Energy in Waves" Case "3B40" Response.write " Doppler Effect" Case "3B45" Response.write " Shock Waves" Case "3B50" Response.write " Interference and Diffraction" Case "3B55" Response.write " Interference and Diffraction of Sound" Case "3B60" Response.write " Beats" Case "3B70" Response.write " Coupled Resonators" End Select Code3C=Left (codeValue,4) Select Case Code3C Case "3C10" Response.write " The Ear" Case "3C20" Response.write " Pitch" Case "3C30" Response.write " Intensity and Attenuation" Case "3C40" Response.write " Architectural Acoustics" Case "3C50" Response.write " Wave Analysis and Synthesis" Case "3C55" Response.write " Music Perception and the Voice" End Select Code3D=Left (codeValue,4) Select Case Code3D Case "3D20" Response.write " Resonance in Strings" Case "3D22" Response.write " Stringed Instruments" Case "3D30" Response.write " Resonance Cavities" Case "3D32" Response.write " Air Column Instruments" Case "3D40" Response.write " Resonance in Plates, Bars, Solids" Case "3D42" Response.write " Percussion Instruments" Case "3D46" Response.write " Tuning Forks" Case "3D50" Response.write " Electronic Instruments" End Select Code4A=Left (codeValue,4) Select Case Code4A Case "4A10" Response.write " Thermometry" Case "4A20" Response.write " Liquid Expansion" Case "4A30" Response.write " Solid Expansion" Case "4A40" Response.write " Properties of Materials at Low" Case "4A50" Response.write " Liquid Helium" End Select Code4B=Left (codeValue,4) Select Case Code4B Case "4B10" Response.write " Heat Capacity and Specific Heat" Case "4B20" Response.write " Convection" Case "4B30" Response.write " Conduction" Case "4B40" Response.write " Radiation" Case "4B50" Response.write " Heat Transfer Applications" Case "4B60" Response.write " Mechanical Equivalent of Heat " Case "4B70" Response.write " Adiabatic Process" End Select Code4C=Left (codeValue,4) Select Case Code4C Case "4C10" Response.write " PVT Surfaces" Case "4C20" Response.write " Phase Changes: Liquid-Solid" Case "4C30" Response.write " Phase Changes: Liquid-Gas" Case "4C31" Response.write " Cooling by Evaporation" Case "4C32" Response.write " Dew Point and Humidity" Case "4C33" Response.write " Vapor Pressure" Case "4C40" Response.write " Sublimation" Case "4C45" Response.write " Phase Changes: Solid-Solid" Case "4C50" Response.write " Critical Point" End Select Code4D=Left (codeValue,4) Select Case Code4D Case "4D10" Response.write " Brownian Motion" Case "4D20" Response.write " Mean Free Path" Case "4D30" Response.write " Kinetic Motion" Case "4D40" Response.write " Molecular Dimensions " Case "4D50" Response.write " Diffusion and Osmosis" End Select Code4E=Left (codeValue,4) Select Case Code4E Case "4E10" Response.write " Constant Pressure" Case "4E20" Response.write " Constant Temperature" Case "4E30" Response.write " Constant Volume" End Select Code4F=Left (codeValue,4) Select Case Code4F Case "4F10" Response.write " Entropy" Case "4F30" Response.write " Heat Cycles" End Select Code5A=Left (codeValue,4) Select Case Code5A Case "5A10" Response.write " Producing Static Charge" Case "5A20" Response.write " Coulomb's Law" Case "5A22" Response.write " Electrostatic Meters" Case "5A30" Response.write " Conductors and Insulators" Case "5A40" Response.write " Induced Charge" Case "5A50" Response.write " Electrostatic Machines" End Select Code5B=Left (codeValue,4) Select Case Code5B Case "5B10" Response.write " Electric Fields" Case "5B20" Response.write " Gauss' Law" Case "5B30" Response.write " Electrostatic Potential" End Select Code5C=Left (codeValue,4) Select Case Code5C Case "5C10" Response.write " Capacitors" Case "5C20" Response.write " Dielectric" Case "5C30" Response.write " Energy Stored in a Capacitor" End Select Code5D=Left (codeValue,4) Select Case Code5D Case "5D10" Response.write " Resistance Characteristics" Case "5D20" Response.write " Resistivity and Temperature" Case "5D30" Response.write " Conduction in Solutions" Case "5D40" Response.write " Conduction in Gases" End Select Code5E=Left (codeValue,4) Select Case Code5E Case "5E20" Response.write " Electrolysis" Case "5E30" Response.write " Plating" Case "5E40" Response.write " Cells and Batteries" Case "5E50" Response.write " Thermoelectricity" Case "5E60" Response.write " Piezoelectricity" End Select Code5F=Left (codeValue,4) Select Case Code5F Case "5F10" Response.write " Ohm's Law" Case "5F15" Response.write " Power and Energy" Case "5F20" Response.write " Circuit Analysis" Case "5F30" Response.write " RC Circuits" Case "5F40" Response.write " Instruments" End Select Code5G=Left (codeValue,4) Select Case Code5G Case "5G10" Response.write " Magnets" Case "5G20" Response.write " Magnet Domains and Magnetization" Case "5G30" Response.write " Paramagnetism and Diamagnetism" Case "5G40" Response.write " Hysteresis" Case "5G45" Response.write " Magnetostriction and Magnetores" Case "5G50" Response.write " Temperature and Magnetism" End Select Code5H=Left (codeValue,4) Select Case Code5H Case "5H10" Response.write " Magnetic Fields" Case "5H15" Response.write " Fields and Currents" Case "5H20" Response.write " Forces on Magnets" Case "5H25" Response.write " Magnet/Electromagnet Interaction" Case "5H30" Response.write " Force on Moving Charges" Case "5H40" Response.write " Force on Current in Wires" Case "5H50" Response.write " Torque on Coils" End Select Code5J=Left (codeValue,4) Select Case Code5J Case "5J10" Response.write " Self Inductance" Case "5J20" Response.write " LR Circuits" Case "5J30" Response.write " RLC Circuits-DC" End Select Code5K=Left (codeValue,4) Select Case Code5K Case "5K10" Response.write " Induced Currents and Forces" Case "5K20" Response.write " Eddy Currents" Case "5K30" Response.write " Transformers" Case "5K40" Response.write " Motors and Generators" End Select Code5L=Left (codeValue,4) Select Case Code5L Case "5L10" Response.write " Impedance" Case "5L20" Response.write " LCR Circuits - AC" Case "5L30" Response.write " Filters and Rectifiers" End Select Code5M=Left (codeValue,4) Select Case Code5M Case "5M10" Response.write " Semiconductors" Case "5M20" Response.write " Tubes" End Select Code5N=Left (codeValue,4) Select Case Code5N Case "5N10" Response.write " Transmission Lines and Antennas" Case "5N20" Response.write " Tesla Coil" Case "5N30" Response.write " Electromagnetic Spectrum" End Select Code6A=Left (codeValue,4) Select Case Code6A Case "6A01" Response.write " Speeed of Light" Case "6A02" Response.write " Straight Line Propagation" Case "6A10" Response.write " Reflection From Flat Surfaces" Case "6A20" Response.write " Reflection from Curved Surfaces" Case "6A40" Response.write " Refractive Index" Case "6A42" Response.write " Refraction at Flat Surfaces" Case "6A44" Response.write " Total Internal Reflection" Case "6A46" Response.write " Rainbow" Case "6A60" Response.write " Thin Lens" Case "6A61" Response.write " Pinhole" Case "6A65" Response.write " Thick Lens" Case "6A70" Response.write " Optical Instruments" End Select Code6B=Left (codeValue,4) Select Case Code6B Case "6B10" Response.write " Luminosity" Case "6B30" Response.write " Radiation Pressure" Case "6B40" Response.write " Blackbodies" End Select Code6C=Left (codeValue,4) Select Case Code6C Case "6C10" Response.write " Diffraction Through One Slit" Case "6C20" Response.write " Diffraction Around Objects" End Select Code6D=Left (codeValue,4) Select Case Code6D Case "6D10" Response.write " Interference From Two Sources" Case "6D15" Response.write " Interference of Polarized Light" Case "6D20" Response.write " Gratings" Case "6D30" Response.write " Thin Films" Case "6D40" Response.write " Interferometers" End Select Code6F=Left (codeValue,4) Select Case Code6F Case "6F10" Response.write " Synthesis and Analysis of Color" Case "6F30" Response.write " Dispersion" Case "6F40" Response.write " Scattering" End Select Code6H=Left (codeValue,4) Select Case Code6H Case "6H10" Response.write " Dichroic Polarization" Case "6H20" Response.write " Polarization by Reflection" Case "6H30" Response.write " Circular Polarization" Case "6H35" Response.write " Birefringence" Case "6H50" Response.write " Polarization by Scattering" End Select Code6J=Left (codeValue,4) Select Case Code6J Case "6J10" Response.write " The Eye" Case "6J11" Response.write " Physiology" End Select Code6Q=Left (codeValue,4) Select Case Code6Q Case "6Q10" Response.write " Holography" Case "6Q20" Response.write " Physical Optics" End Select Code7A=Left (codeValue,4) Select Case Code7A Case "7A10" Response.write " Photoelectric Effect" Case "7A15" Response.write " Millikan Oil Drop" Case "7A20" Response.write " Compton Effect" Case "7A50" Response.write " Wave Mechanics" Case "7A55" Response.write " Particle/Wave Duality" Case "7A60" Response.write " X-ray and Electron Diffraction" Case "7A70" Response.write " Condensed Matter" End Select Code7B=Left (codeValue,4) Select Case Code7B Case "7B10" Response.write " Spectra" Case "7B11" Response.write " Absorption" Case "7B13" Response.write " Resonance Radiation" Case "7B20" Response.write " Fine Splitting" Case "7B30" Response.write " Ionization Potential" Case "7B35" Response.write " Electron Properties" Case "7B50" Response.write " Atomic Models" End Select Code7D=Left (codeValue,4) Select Case Code7D Case "7D10" Response.write " Radioactivity" Case "7D20" Response.write " Nuclear Reactions" Case "7D30" Response.write " Particle Detectors" Case "7D40" Response.write " NMR" Case "7D50" Response.write " Models of the Nucleus" End Select Code7E=Left (codeValue,4) Select Case Code7E Case "7E10" Response.write " Miscellaneous" End Select Code7F=Left (codeValue,4) Select Case Code7F Case "7F10" Response.write " Special Relativity" Case "7F20" Response.write " General Relativity" End Select '------------------------- User Not Logged in ------------------------------------------ Else Select Case Code1A Case "1A10" Response.write " Basic Units" Case "1A20" Response.write " Error and Accuracy" Case "1A30" Response.write " Coordinate Systems" Case "1A40" Response.write " Vectors" Case "1A50" Response.write " Math Topics" Case "1A60" Response.write " Scaling" End Select Code1C=Left (codeValue,4) Select Case Code1C Case "1C10" Response.write " Velocity" Case "1C20" Response.write " Uniform Acceleration" Case "1C30" Response.write " Measuring g" End Select Code1D=Left (codeValue,4) Select Case Code1D Case "1D10" Response.write " Displacement in Two Dimensions" Case "1D15" Response.write " Velocity, Position, and Acceleration" Case "1D40" Response.write " Motion of the Center of Mass" Case "1D50" Response.write " Central Forces" Case "1D52" Response.write " Deformation by Central Forces" Case "1D55" Response.write " Centrifugal Escape" Case "1D60" Response.write " Projectile Motion" End Select Code1E=Left (codeValue,4) Select Case Code1E Case "1E10" Response.write " Moving Reference Frames" Case "1E20" Response.write " Rotating Reference Frames" Case "1E30" Response.write " Coriolis Effect" End Select Code1F=Left (codeValue,4) Select Case Code1F Case "1F10" Response.write " Measuring Inertia" Case "1F20" Response.write " Inertia of Rest" Case "1F30" Response.write " Inertia of Motion" End Select Code1G=Left (codeValue,4) Select Case Code1G Case "1G10" Response.write " Force, Mass and Acceleration" Case "1G20" Response.write " Accelerated Reference Frames" Case "1G30" Response.write " Complex Systems" End Select Code1H=Left (codeValue,4) Select Case Code1H Case "1H10" Response.write " Action and Reaction" Case "1H11" Response.write " Recoil" End Select Code1J=Left (codeValue,4) Select Case Code1J Case "1J10" Response.write " Finding Center of Gravity" Case "1J11" Response.write " Exceeding Center of Gravity" Case "1J20" Response.write " Stable, Unstable and Neutral Equilibrium" Case "1J30" Response.write " Resolution of Forces" Case "1J40" Response.write " Static Torque" End Select Code1K=Left (codeValue,4) Select Case Code1K Case "1K10" Response.write " Dynamic Torque" Case "1K20" Response.write " Friction" Case "1K30" Response.write " Pressure" End Select Code1L=Left (codeValue,4) Select Case Code1L Case "1L10" Response.write " Universal Gravitational Constant" Case "1L20" Response.write " Orbits" End Select Code1M=Left (codeValue,4) Select Case Code1M Case "1M10" Response.write " Work" Case "1M20" Response.write " Simple Machines" Case "1M30" Response.write " Non-Conservative Forces" Case "1M40" Response.write " Conservation of Energy" Case "1M50" Response.write " Mechanical Power" End Select Code1N=Left (codeValue,4) Select Case Code1N Case "1N10" Response.write " Impulse and Thrust" Case "1N20" Response.write " Conservation of Linear Momentum" Case "1N21" Response.write " Mass and Momentum Transfer" Case "1N22" Response.write " Rockets" Case "1N30" Response.write " Collisions in One Dimension" Case "1N40" Response.write " Collisions in Two Dimensions" End Select Code1Q=Left (codeValue,4) Select Case Code1Q Case "1Q10" Response.write " Moment of Inertia" Case "1Q20" Response.write " Rotational Energy" Case "1Q30" Response.write " Transfer of Angular Momentum" Case "1Q40" Response.write " Conservation of Angular Momentum" Case "1Q50" Response.write " Gyros" Case "1Q60" Response.write " Rotational Stability" End Select Code1R=Left (codeValue,4) Select Case Code1R Case "1R10" Response.write " Hooke's Law" Case "1R20" Response.write " Tensile and Compressive Stress" Case "1R30" Response.write " Shear Stress" Case "1R40" Response.write " Coefficient of Restitution" Case "1R50" Response.write " Crystal Structure" End Select Code2A=Left (codeValue,4) Select Case Code2A Case "2A10" Response.write " Force of Surface Tension" Case "2A15" Response.write " Minimal Surface" Case "2A20" Response.write " Capillary Action" Case "2A30" Response.write " Surface Tension Propulsion" End Select Code2B=Left (codeValue,4) Select Case Code2B Case "2B20" Response.write " Static Pressure" Case "2B30" Response.write " Atmospheric Pressure" Case "2B35" Response.write " Measuring Pressure" Case "2B40" Response.write " Density and Buoyancy" Case "2B60" Response.write " Siphons, Fountains and Pumps" End Select Code2C=Left (codeValue,4) Select Case Code2C Case "2C10" Response.write " Flow Rate" Case "2C20" Response.write " Bernoulli Force" Case "2C30" Response.write " Viscosity" Case "2C40" Response.write " Turbulent and Streamline Flow" Case "2C50" Response.write " Vortices" Case "2C60" Response.write " Non Newtonian Fluids" End Select Code3A=Left (codeValue,4) Select Case Code3A Case "3A10" Response.write " Pendula" Case "3A15" Response.write " Physical Pendula" Case "3A20" Response.write " Springs and Oscillators" Case "3A40" Response.write " Simple Harmonic Motion" Case "3A50" Response.write " Damped Oscillators" Case "3A60" Response.write " Driven Mechanical Resonance" Case "3A70" Response.write " Coupled Oscillations" Case "3A75" Response.write " Normal Modes" Case "3A80" Response.write " Lissajous Figures" Case "3A95" Response.write " Non-Linear Systems" End Select Code3B=Left (codeValue,4) Select Case Code3B Case "3B10" Response.write " Transverse Pulses and Waves" Case "3B20" Response.write " Longitudinal Pulses and Waves" Case "3B22" Response.write " Standing Waves" Case "3B25" Response.write " Impedance and Dispersion" Case "3B27" Response.write " Compound Waves" Case "3B30" Response.write " Wave Properties of Sound" Case "3B33" Response.write " Phase and Group Velocity" Case "3B35" Response.write " Reflection and Refraction(sound)" Case "3B39" Response.write " Transfer of Energy in Wavess" Case "3B40" Response.write " Doppler Effect" Case "3B45" Response.write " Shock Waves" Case "3B50" Response.write " Interference and Diffraction" Case "3B55" Response.write " Interference and Diffraction of Sound" Case "3B60" Response.write " Beats" Case "3B70" Response.write " Coupled Resonators" End Select Code3C=Left (codeValue,4) Select Case Code3C Case "3C10" Response.write " The Ear" Case "3C20" Response.write " Pitch" Case "3C30" Response.write " Intensity and Attenuation" Case "3C40" Response.write " Architectural Acoustics" Case "3C50" Response.write " Wave Analysis and Synthesis" Case "3C55" Response.write " Music Perception and the Voice" End Select Code3D=Left (codeValue,4) Select Case Code3D Case "3D20" Response.write " Resonance in Strings" Case "3D22" Response.write " Stringed Instruments" Case "3D30" Response.write " Resonance Cavities" Case "3D32" Response.write " Air Column Instruments" Case "3D40" Response.write " Resonance in Plates, Bars, Solids" Case "3D42" Response.write " Percussion Instruments" Case "3D46" Response.write " Tuning Forks" Case "3D50" Response.write " Electronic Instruments" End Select Code4A=Left (codeValue,4) Select Case Code4A Case "4A10" Response.write " Thermometry" Case "4A20" Response.write " Liquid Expansion" Case "4A30" Response.write " Solid Expansion" Case "4A40" Response.write " Properties of Materials at Low" Case "4A50" Response.write " Liquid Helium" End Select Code4B=Left (codeValue,4) Select Case Code4B Case "4B10" Response.write " Heat Capacity and Specific Heat" Case "4B20" Response.write " Convection" Case "4B30" Response.write " Conduction" Case "4B40" Response.write " Radiation" Case "4B50" Response.write " Heat Transfer Applications" Case "4B60" Response.write " Mechanical Equivalent of Heat " Case "4B70" Response.write " Adiabatic Process" End Select Code4C=Left (codeValue,4) Select Case Code4C Case "4C10" Response.write " PVT Surfaces" Case "4C20" Response.write " Phase Changes: Liquid-Solid" Case "4C30" Response.write " Phase Changes: Liquid-Gas" Case "4C31" Response.write " Cooling by Evaporation" Case "4C32" Response.write " Dew Point and Humidity" Case "4C33" Response.write " Vapor Pressure" Case "4C40" Response.write " Sublimation" Case "4C45" Response.write " Phase Changes: Solid-Solid" Case "4C50" Response.write " Critical Point" End Select Code4D=Left (codeValue,4) Select Case Code4D Case "4D10" Response.write " Brownian Motion" Case "4D20" Response.write " Mean Free Path" Case "4D30" Response.write " Kinetic Motion" Case "4D40" Response.write " Molecular Dimensions " Case "4D50" Response.write " Diffusion and Osmosis" End Select Code4E=Left (codeValue,4) Select Case Code4E Case "4E10" Response.write " Constant Pressure" Case "4E20" Response.write " Constant Temperature" Case "4E30" Response.write " Constant Volume" End Select Code4F=Left (codeValue,4) Select Case Code4F Case "4F10" Response.write " Entropy" Case "4F30" Response.write " Heat Cycles" End Select Code5A=Left (codeValue,4) Select Case Code5A Case "5A10" Response.write " Producing Static Charge" Case "5A20" Response.write " Coulomb's Law" Case "5A22" Response.write " Electrostatic Meters" Case "5A30" Response.write " Conductors and Insulators" Case "5A40" Response.write " Induced Charge" Case "5A50" Response.write " Electrostatic Machines" End Select Code5B=Left (codeValue,4) Select Case Code5B Case "5B10" Response.write " Electric Fields" Case "5B20" Response.write " Gauss' Law" Case "5B30" Response.write " Electrostatic Potential" End Select Code5C=Left (codeValue,4) Select Case Code5C Case "5C10" Response.write " Capacitors" Case "5C20" Response.write " Dielectric" Case "5C30" Response.write " Energy Stored in a Capacitor" End Select Code5D=Left (codeValue,4) Select Case Code5D Case "5D10" Response.write " Resistance Characteristics" Case "5D20" Response.write " Resistivity and Temperature" Case "5D30" Response.write " Conduction in Solutions" Case "5D40" Response.write " Conduction in Gases" End Select Code5E=Left (codeValue,4) Select Case Code5E Case "5E20" Response.write " Electrolysis" Case "5E30" Response.write " Plating" Case "5E40" Response.write " Cells and Batteries" Case "5E50" Response.write " Thermoelectricity" Case "5E60" Response.write " Piezoelectricity" End Select Code5F=Left (codeValue,4) Select Case Code5F Case "5F10" Response.write " Ohm's Law" Case "5F15" Response.write " Power and Energy" Case "5F20" Response.write " Circuit Analysis" Case "5F30" Response.write " RC Circuits" Case "5F40" Response.write " Instruments" End Select Code5G=Left (codeValue,4) Select Case Code5G Case "5G10" Response.write " Magnets" Case "5G20" Response.write " Magnet Domains and Magnetization" Case "5G30" Response.write " Paramagnetism and Diamagnetism" Case "5G40" Response.write " Hysteresis" Case "5G45" Response.write " Magnetostriction and Magnetores" Case "5G50" Response.write " Temperature and Magnetism" End Select Code5H=Left (codeValue,4) Select Case Code5H Case "5H10" Response.write " Magnetic Fields" Case "5H15" Response.write " Fields and Currents" Case "5H20" Response.write " Forces on Magnets" Case "5H25" Response.write " Magnet/Electromagnet Interaction" Case "5H30" Response.write " Force on Moving Charges" Case "5H40" Response.write " Force on Current in Wires" Case "5H50" Response.write " Torque on Coils" End Select Code5J=Left (codeValue,4) Select Case Code5J Case "5J10" Response.write " Self Inductance" Case "5J20" Response.write " LR Circuits" Case "5J30" Response.write " RLC Circuits-DC" End Select Code5K=Left (codeValue,4) Select Case Code5K Case "5K10" Response.write " Induced Currents and Forces" Case "5K20" Response.write " Eddy Currents" Case "5K30" Response.write " Transformers" Case "5K40" Response.write " Motors and Generators" End Select Code5L=Left (codeValue,4) Select Case Code5L Case "5L10" Response.write " Impedance" Case "5L20" Response.write " LCR Circuits - AC" Case "5L30" Response.write " Filters and Rectifiers" End Select Code5M=Left (codeValue,4) Select Case Code5M Case "5M10" Response.write " Semiconductors" Case "5M20" Response.write " Tubes" End Select Code5N=Left (codeValue,4) Select Case Code5N Case "5N10" Response.write " Transmission Lines and Antennas" Case "5N20" Response.write " Tesla Coil" Case "5N30" Response.write " Electromagnetic Spectrum" End Select Code6A=Left (codeValue,4) Select Case Code6A Case "6A01" Response.write " Speeed of Light" Case "6A02" Response.write " Straight Line Propagation" Case "6A10" Response.write " Reflection From Flat Surfaces" Case "6A20" Response.write " Reflection from Curved Surfaces" Case "6A40" Response.write " Refractive Index" Case "6A42" Response.write " Refraction at Flat Surfaces" Case "6A44" Response.write " Total Internal Reflection" Case "6A46" Response.write " Rainbow" Case "6A60" Response.write " Thin Lens" Case "6A61" Response.write " Pinhole" Case "6A65" Response.write " Thick Lens" Case "6A70" Response.write " Optical Instruments" End Select Code6B=Left (codeValue,4) Select Case Code6B Case "6B10" Response.write " Luminosity" Case "6B30" Response.write " Radiation Pressure" Case "6B40" Response.write " Blackbodies" End Select Code6C=Left (codeValue,4) Select Case Code6C Case "6C10" Response.write " Diffraction Through One Slit" Case "6C20" Response.write " Diffraction Around Objects" End Select Code6D=Left (codeValue,4) Select Case Code6D Case "6D10" Response.write " Interference From Two Sources" Case "6D15" Response.write " Interference of Polarized Light" Case "6D20" Response.write " Gratings" Case "6D30" Response.write " Thin Films" Case "6D40" Response.write " Interferometers" End Select Code6F=Left (codeValue,4) Select Case Code6F Case "6F10" Response.write " Synthesis and Analysis of Color" Case "6F30" Response.write " Dispersion" Case "6F40" Response.write " Scattering" End Select Code6H=Left (codeValue,4) Select Case Code6H Case "6H10" Response.write " Dichroic Polarization" Case "6H20" Response.write " Polarization by Reflection" Case "6H30" Response.write " Circular Polarization" Case "6H35" Response.write " Birefringence" Case "6H50" Response.write " Polarization by Scattering" End Select Code6J=Left (codeValue,4) Select Case Code6J Case "6J10" Response.write " The Eye" Case "6J11" Response.write " Physiology" End Select Code6Q=Left (codeValue,4) Select Case Code6Q Case "6Q10" Response.write " Holography" Case "6Q20" Response.write " Physical Optics" End Select Code7A=Left (codeValue,4) Select Case Code7A Case "7A10" Response.write " Photoelectric Effect" Case "7A15" Response.write " Millikan Oil Drop" Case "7A20" Response.write " Compton Effect" Case "7A50" Response.write " Wave Mechanics" Case "7A55" Response.write " Particle/Wave Duality" Case "7A60" Response.write " X-ray and Electron Diffraction" Case "7A70" Response.write " Condensed Matter" End Select Code7B=Left (codeValue,4) Select Case Code7B Case "7B10" Response.write " Spectra" Case "7B11" Response.write " Absorption" Case "7B13" Response.write " Resonance Radiation" Case "7B20" Response.write " Fine Splitting" Case "7B30" Response.write " Ionization Potential" Case "7B35" Response.write "" Case "7B50" Response.write " Atomic Models" End Select Code7D=Left (codeValue,4) Select Case Code7D Case "7D10" Response.write " Radioactivity" Case "7D20" Response.write " Nuclear Reactions" Case "7D30" Response.write " Particle Detectors" Case "7D40" Response.write " NMR" Case "7D50" Response.write " Models of the Nucleus" End Select Code7E=Left (codeValue,4) Select Case Code7E Case "7E10" Response.write " Miscellaneous" End Select Code7F=Left (codeValue,4) Select Case Code7F Case "7F10" Response.write " Special Relativity" Case "7F20" Response.write " General Relativity" End Select End If %>

<%=(current.Fields.Item("Code").Value)%>  


<% If Session("Logged") = True Then response.write"" response.write"" response.write"" response.write"" response.write"" End if %>

<% If Back.eof Then response.write "
Previous | Next
" Else If forward.eof Then response.write "
Previous | Next
" Else Code=Left(codeValue,1) Select Case Code Case "1" response.write "
Previous | " response.write "Next
" Case "2" response.write "
Previous | " response.write "Next
" Case "3" response.write "
Previous | " response.write "Next
" Case "4" response.write "
Previous | " response.write "Next
" Case "5" response.write "
Previous | " response.write "Next
" Case "6" response.write "
Previous |" response.write "Next
" Case "7" response.write "
Previous | " response.write "Next
" End Select End If End If %>
<% If len(request.querystring("Code")) > 7 Then %>

<%=(Current.Fields.Item("Title").Value)%>

<% If (current.Fields.Item("Format").Value) <> "" Then Response.Write "


" & current.Fields.Item("Format").value & "

" 'Response.Write replace((current.Fields.Item("Format").value),VBCRLF, "
") & "

" Else Response.write "

" End If %>

<% If (current.Fields.Item("Length").Value) <> "" Then Response.Write "


" & current.Fields.Item("Length").value & "

" 'Response.Write replace((current.Fields.Item("Length").value),VBCRLF, "
") Else Response.Write "

" End If %>

<% If (current.Fields.Item("BWorColor").Value) <> "" Then Response.Write "


" & current.Fields.Item("BWorColor").value & "

" 'Response.Write replace((current.Fields.Item("BWorColor").value),VBCRLF, "
") Else Response.Write "

" End If %>


<% If (current.Fields.Item("Format").Value) = "Digital Video" Then %>


.mpg" target="newWin">
<% Else Response.Write "

" End If %>

<% If (current.Fields.Item("Comments").Value) <> "" Then Response.Write "

Comments
" & replace((current.Fields.Item("Comments").value),VBCRLF, "
") & "
" Else Response.Write "

" End If If (current.Fields.Item("Collection").Value) <> "" Then Response.Write "

Collection
" & replace((current.Fields.Item("Collection").value),VBCRLF, "
") & "


" Else Response.Write "

" End If If (current.Fields.Item("Chapter").Value) <> "" Then response.write "

Chapter
" & replace((current.Fields.Item("Chapter").value),VBCRLF, "
") & "
" Else response.write "

" End If If (current.Fields.Item("ProducerDistributor").Value) <> "" Then response.write "

Producer Distributor
" & replace((current.Fields.Item("ProducerDistributor").value),VBCRLF, "
") & "
" Else Response.Write "

" End If %>

<% else %>

<%=(Current.Fields.Item("Title").Value)%>

.jpg">
<% If (current.Fields.Item("Instructions").Value) <> "" Then Response.Write "

" & replace((current.Fields.Item("Instructions").value),VBCRLF, "
") & "


" Else Response.Write "
" End If If (current.Fields.Item("Comments").Value) <> "" Then Response.Write "

Comments
" & replace((current.Fields.Item("Comments").value),VBCRLF, "
") & "
" Else Response.Write "

" End If If (current.Fields.Item("Apparatus").Value) <> "" Then Response.Write "

Apparatus
" & replace((current.Fields.Item("Apparatus").value),VBCRLF, "
") & "
" Else Response.write "

" End If If (current.Fields.Item("References").Value) <> "" Then Response.WRite "

References
" & replace((current.Fields.Item("References").value),VBCRLF, "
") & "
" Else Response.write "

" End If End If %>


<% if Back.eof then response.write "
Previous | Next
" else if forward.eof then response.write "
Previous | Next
" else Code=Left(codeValue,1) Select Case Code Case "1" response.write "
Previous | " response.write " Next
" Case "2" response.write "
Previous | " response.write "Next
" Case "3" response.write "
Previous | " response.write "Next
" Case "4" response.write "
Previous | " response.write "Next
" Case "5" response.write "
Previous | " response.write "Next
" Case "6" response.write "
Previous | " response.write "Next
" Case "7" response.write "
Previous | " response.write "Next
" End Select end if end if %>

All Rights Reserved. Physics Learning Laboratories. University of Colorado at Boulder.