<%
Response.Expires = -1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
DIM arrVoca
adir="http://gva.ybmsisa.com/"&course&"/step"&step&"/review"
CALL GetInfo()
cybercon.close
SET cybercon = nothing
%>
"221.142.252" Then
%>bgproperties=fixed oncontextmenu='return false' ondragstart='return false' onselectstart='return false'<%
End If
%> topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" bgcolor="#ffffff">
<%=trim(split(arrVoca(3,0), "//")(0))%>
<%=trim(arrVoca(4,0))%>
<%=trim(arrVoca(0,0))%>
<%
SUB GetInfo()
Set voca = Server.CreateObject("ADODB.Recordset")
strSQL="select content, sound, image, explain, script from lecture_review_ji where 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
arrVoca = voca.GetRows
end if
voca.close
SET voca = nothing
END SUB
%>
<%=trim(arrVoca(0,0))%> 
