%@language=vbscript%> <% if Request.QueryString("course")<>"" then dim rscourse,rsBookmark set rscourse=server.CreateObject("adodb.recordset") rscourse.Open "select * from programs where coursename='"& Request.QueryString("course") &"'",con,adOpenDynamic session("coId")=rscourse("courseId") set rsBookmark=server.CreateObject("adodb.recordset") rsBookmark.Open "select bookmark from usercourse where userid='"& session("user")&"' and courseId='"& session("coid")&"'",con,adOpenDynamic%>
This page uses frames, but your browser doesn't support them.