<% response.expires=-1 %> Emerson Statistics | Course Materials <% function pDate(dValue) strMo = left(dValue,InStr(dValue,"/")) strDa = mid(dValue,InStr(dValue,"/")+1) if len(strMo) = 2 then strMo = "0" & strMo if len(strDa) = 6 then strDa = "0" & strDa pDate = strMo & strDa end function dim nRecID nRecID = CInt(request.querystring("recID")) set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open Server.MapPath("../../mdb/scigame.mdb") dim sql, strTitle, arHW, arQtr arQtr = array(" ","Winter","Spring","Summer","Autumn") set rs=Server.CreateObject("ADODB.recordset") sqlSup = "SELECT fType, filePath, linkText FROM tblCourseDocs WHERE ((rsrcType = 'supplemental') AND (courseID =" & nRecID & ")) ORDER BY rsrcTitle;" sql6 = "SELECT fType, filePath, linkText FROM tblCourseDocs WHERE ((rsrcType = 'data') AND (courseID =" & nRecID & ")) ORDER BY rsrcTitle;" sqlQA = "SELECT fType, filePath, linkText, effDate FROM tblCourseDocs WHERE ((rsrcType = 'qa') AND (courseID =" & nRecID & ")) ORDER BY rsrcTitle;" sql5 = "SELECT fType, filePath, linkText, effDate FROM tblCourseDocs WHERE ((rsrcType = 'handout') AND (courseID =" & nRecID & ")) ORDER BY effDate;" sql4 = "SELECT fType, filePath, linkText FROM tblCourseDocs WHERE ((rsrcType = 'examKey') AND (courseID =" & nRecID & "))ORDER BY rsrcTitle; " sql3 = "SELECT * FROM tblCourses WHERE courseID =" & nRecID & ";" sql2 = "SELECT fType, filePath, linkText FROM tblCourseDocs WHERE ((rsrcType = 'syllabus') AND (courseID =" & nRecID & ")) ORDER BY rsrcTitle;" sql1 ="SELECT DISTINCT rsrcTitle FROM tblCourseDocs WHERE ((rsrcType LIKE 'hw%') AND (courseID =" & nRecID & ")) ORDER BY rsrcTitle;" rs.open sql3, conn if Not rs.eof then strDirectory = rs.fields(1) strCourseName = rs.fields(2) strCourseYear = rs.fields(3) strCourseQtr = arQtr(CInt(rs.fields(4))) strCourseDescription = Replace(rs.fields(5), vbCRLF, "
") strCourseSponsor = rs.fields(7) strCourseInfo = rs.fields("courseInfo") end if rs.close %>
<% response.write("

" & strCourseName & " - " & strCourseSponsor & ": " & strCourseQtr & ", " & strCourseYear & "

") %>
Emerson Statistics Home    Formal Courses

Scott S. Emerson, M.D., Ph.D.
Professor of Biostatistics
Department of Biostatistics
University of Washington

<% response.write("

" & strCourseDescription & "

") if len(strCourseInfo) > 2 then response.write(strCourseInfo) end if rs.open sql2, conn if Not rs.eof then response.write("

Syllabus and General Information
") while not rs.eof response.write("   " & rs.fields(2) & " (" & rs.fields(0) & ")
") rs.movenext wend response.write("

") end if rs.close rs.open sql5, conn if Not rs.eof then response.write("

Handouts and Lecture Materials
") while not rs.eof if IsNull(rs.fields(3)) then strEffDate = " " else strEffDate = FormatDateTime(rs.fields(3)) end if response.write("" & pDate(strEffDate) & "  ") response.write("" & rs.fields(2) & " (" & rs.fields(0) & ")
") rs.movenext wend response.write("

") end if rs.close rs.open sqlQA, conn if Not rs.eof then response.write("

Q and A
") while not rs.eof if IsNull(rs.fields(3)) then strEffDate = " " else strEffDate = FormatDateTime(rs.fields(3)) end if response.write("" & pDate(strEffDate) & "  ") response.write("" & rs.fields(2) & " (" & rs.fields(0) & ")
") rs.movenext wend response.write("

") end if rs.close rs.open sqlSup, conn if Not rs.eof then response.write("

Supplemental Materials
") while not rs.eof response.write("   " & rs.fields(2) & " (" & rs.fields(0) & ")
") rs.movenext wend response.write("

") end if rs.close rs.open sql6, conn if Not rs.eof then response.write("

Datasets
") while not rs.eof response.write("   " & rs.fields(2) & " (" & rs.fields(0) & ")
") rs.movenext wend response.write("

") end if rs.close rs.open sql1, conn if not rs.EOF then arHW = rs.GetRows rs.close response.write("

Homeworks

") for x = 0 to ubound(arHW,2) sql = "SELECT rsrcType, filePath, fType, linkText, rsrcDesc, rsrcTitle, effDate, dueDate FROM tblCourseDocs " sql = sql & "WHERE (((courseID)=" & nRecID & ") AND ((rsrcTitle) = '" & arHW(0,x) &"')) " sql = sql & "ORDER BY rsrcTitle, rsrcType, linkText DESC; " rs.Open sql, conn strTitle = rs.fields(5) if IsNull(rs.fields(6)) then strEffDate = " " else strEffDate = FormatDateTime(rs.fields(6)) end if if IsNull(rs.fields(7)) then strDueDate = " " else strDueDate = "   Due: " & FormatDateTime(rs.fields(7),1) end if response.write("

"& pDate(strEffDate) & "  " & strTitle & "" & strDueDate ) Do while Not rs.EOF if rs.fields(3) <> "" then response.write("
   " & rs.fields(3) & " (" & rs.fields(2) & ")") ''response.write(strDueDate) else response.write("
" & rs.fields(4)) end if rs.movenext Loop response.write("

") rs.Close next else rs.close end if rs.open sql4, conn,3 ,3 if not rs.eof then response.write("

Exam Keys
") for x = 1 to rs.RecordCount response.write("   " & rs.fields(2) & " (" & rs.fields(0) & ")
") rs.movenext next response.write("

") end if rs.close response.write("

 

") on error resume next set rs = NOTHING conn.Close set conn = NOTHING on error goto 0 %>

 

©2003,2004,2005 Scott S. Emerson and emersonstatistics.com