<% msg = "" Set dbConnection = Server.CreateObject("ADODB.Connection") ConnectionString = "ASAHI_DB" dbConnection.Open ConnectionString SQLQuery = "SELECT * from doctor_table " SQLQuery = SQLQuery & "WHERE test_stat = 'A'" Set rsKenshinVersion = dbConnection.Execute(SQLQuery) kenshin_flag = False IF rsKenshinVersion.EOF then kenshin_flag = False msg = "まだ英語検診は登録されていません。" else kenshin_flag = True end if %>

この「英語検診」は「自分の現在の実力を測り、これからの学習計画の指針とする」ためのものです。学校の英語の試験とはちょっと異なり、あくまで「使える英語が身についているか」を測るようになっています。さあ、真の英語力養成のための一歩を踏み出しましょう！ <% if kenshin_flag <> False then%> <% Do While Not rsKenshinVersion.EOF%> "><%= rsKenshinVersion("version_no")%> <% rsKenshinVersion.MoveNext%> <% Loop%> <% rsKenshinVersion.Close%> <% else%> <%= msg%> <% end if%> 英語検診｜ EE｜ PE｜ 映画で英会話｜電子出版｜ コミック｜ リンク集｜ 掲示板