<%
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&"/voca"
CALL GetInfo()
if isArray(arrVoca) then
countnum = ubound(arrVoca,2)
sound = arrVoca(3,0)
else
countnum = 0
sound = ""
end if
cybercon.close
SET cybercon = nothing
%>
"221.142.252" Then
%>bgproperties=fixed oncontextmenu='return false' ondragstart='return false' onselectstart='return false'<%
End If
%> bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
cnt = 0
if isArray(arrVoca) then
for i=0 to countnum%>
<%
if cnt<=i then%>
<%=trim(arrVoca(0,cnt))%>
<%=arrVoca(1, cnt)%>
<%
cnt = cnt + 1
i = i + 1
end if
if cnt<=i then%>
<%=trim(arrVoca(0,cnt))%>
<%=trim(arrVoca(1, cnt))%>
<%
cnt = cnt + 1
end if%>
<%
next
else
response.write "입력 데이터 없음"
end if%>
<%
SUB GetInfo()
Set voca = Server.CreateObject("ADODB.Recordset")
strSQL="select voca, explanation, sound, example from lecture_vocabulary 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
arrVoca = voca.GetRows
end if
voca.close
SET voca = nothing
END SUB
%>
