<%
 Set hdobj = Server.CreateObject("HD.comOpen")'請確保此行在最前
Connkaa = hdobj.WeekaaConn()
Set ss = Server.CreateObject("ADODB.RecordSet")
sqlv = "Select * From [Classs]"
ss.Open Sqlv,Connkaa,1,3
do while not ss.eof
ssd=ss("d")
sse=ss("e")
ssf=ss("f")
ssf=ssf*1
ssd=ssd*1

for i=1 to ssf
T=ssd & "秋季"
TT=(i-1)*2+1
Set rs = Server.CreateObject("ADODB.RecordSet")
sqlr = "Select * From [FeeB] where y='"&sse&"' and x='"& T &"'"
rs.Open Sqlr,Connkaa,1,3
if rs.eof then
rs.addnew
rs("a")=0
rs("b")=0
rs("c")=0
rs("d")=0
rs("e")=0
rs("f")=0
rs("g")=0
rs("h")=0
rs("i")=0
rs("j")=0
rs("n")=TT
rs("x")=T
rs("y")=sse
rs("tim")=Now()
rs("nam")=session("AdminUser")
rs.update
end if
rs.close
set rs=nothing
ssd=ssd+1
T=ssd
T=T& "春季"
TT=i*2
Set rs = Server.CreateObject("ADODB.RecordSet")
sqlr = "Select * From [FeeB] where y='"&sse&"' and x='"& T &"'"
rs.Open Sqlr,Connkaa,1,3
if rs.eof then
rs.addnew
rs("a")=0
rs("b")=0
rs("c")=0
rs("d")=0
rs("e")=0
rs("f")=0
rs("g")=0
rs("h")=0
rs("i")=0
rs("j")=0
rs("n")=TT
rs("x")=T
rs("y")=sse
rs("tim")=Now()
rs("nam")=session("AdminUser")
rs.update
end if
rs.close
set rs=nothing

next

ss.movenext
loop
response.write "<br><br><br>　　　　　增加完成，請修改標準！"
%>