The Scientist Game | Getting Started

<% dim nRecID dim strName dim conn dim rs set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open Server.MapPath("../mdb/scigame.mdb") Set rs = Server.CreateObject("ADODB.RecordSet") if session.contents.count = 0 then sql = "SELECT * from tblSciGame;" rs.open sql, conn, 3, 3 rs.addnew "UserName", "Anon" rs.close rs.open "SELECT @@IDENTITY" nRecID = rs.fields(0) rs.close sql = "SELECT * from tblSciGame WHERE RecID = " & nRecID & ";" rs.open sql, conn, 3, 3 strName = "Anon" & rs.fields(0) rs.update "UserName", strName rs.close session("rec_id") = nRecID else nRecID = session("rec_id") sql = "SELECT * from tblSciGame WHERE RecID = " & nRecID & ";" rs.open sql, conn, 3, 3 strName = rs.fields("UserName") rs.close end if set rs = Nothing conn.close set conn = Nothing %>

Scott S. Emerson, M.D., Ph.D.
Professor of Biostatistics - University of Washington
The Scientist Game

Data Collection:

Occasionally, in the course of The Scientist Game, you will be asked to make certain decisions, and (optionally) comment on your choices. As we collect some data on choices made, for example, we will publish that data on this site so that you can see how you fared against all participants.

By default, you are assigned a 'Name'. If you would like to edit that name so that you may return at some time in the future and more easily recognize your own contributions, you may do so below.

<% if request.form("submit") = "OK" then set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open Server.MapPath("../mdb/scigame.mdb") Set rs = Server.CreateObject("ADODB.RecordSet") strName = request.form("fName") sql = "SELECT * from tblSciGame WHERE RecID = " & nRecID & ";" rs.open sql, conn, 3, 3 rs.update "UserName", strName rs.close set rs = Nothing conn.close set conn = Nothing response.redirect("overview.asp") end if %>