% 'dim objConn, ConnStr, RS, LastUser 'Set objConn = Server.CreateObject("ADODB.Connection") 'ConnStr = "Provider=MSDASQL;Driver=Microsoft Access Driver (*.mdb);DBQ=c:\inetpub\chris\usab-test\database\usabtest.mdb" 'objConn.ConnectionString = ConnStr 'objconn.Open 'set RS = Server.CreateObject("ADODB.Recordset") 'RS.Open "SELECT ID FROM survey ORDER BY ID", objconn, 3, 3 'RS.movelast 'LastUser=RS.Fields("id") 'Session("id")=LastUser+1 'RS.Close 'response.write session("id") %>
|
Welcome to the University of Illinois archival usability study! I estimate that it will take you 20 to 40 minutes to work through this website. It is strongly recommended that you use Internet Explorer 5.5, Netscape 6, Mozilla 1.3.1 or higher. Some of the pages may not work correctly in other browsers. There are known problems with Opera. If you wish to participate, click the NEXT button below to proceed to the consent form. Chris Prom |