% 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 %>
|