<%
Response.Expires = -1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
DIM note_content
adir="http://gva.ybmsisa.com/"&course&"/step"&step&"/checkup"
CALL GetInfo()
cybercon.close
SET cybercon = nothing
%>
Untitled Document
"221.142.252" Then
%>bgproperties=fixed oncontextmenu='return false' ondragstart='return false' onselectstart='return false'<%
End If
%>>
<%=note_content%>
<%
SUB GetInfo()
Set voca = Server.CreateObject("ADODB.Recordset")
strSQL="select note_content, bonus_content from lecture_handout where intro_idx = (select idx from lecture_intro where course = "&fncdbvalue(course)&" and lev = "&fncdbvalue(lev)&" and step = "&fncdbvalue(step)&" and sec = "&fncdbvalue(sec)&")"
voca.Open strSql, cybercon, adOpenForwardOnly, adLockReadOnly
if voca.EOF then
else
note_content = voca("note_content")
if instr(voca("bonus_content"), "//") then
intro_sound = adir&"/"&split(voca("bonus_content"), "//")(6)
end if
CALL MakeAudio("SPlay", 0, 0, "true", intro_sound)
end if
voca.close
SET voca = nothing
END SUB
SUB MakeAudio(strID, width, height, AutoStart, FileName)
%>
<%
END SUB
%>
