<% msg = "" A1 = "" A2 = "" A3 = "" A4 = "" A5 = "" A6 = "" A7 = "" A8 = "" A9 = "" A10 = "" A11 = "" A12 = "" A13 = "" A14 = "" A15 = "" A16 = "" Session("kekka1") = False Session("kekka2") = False Session("kekka3") = False Session("kekka4") = False Session("kekka5") = False Session("kekka6") = False Session("kekka7") = False Session("kekka8") = False Session("doctor_id") = "" '英語検診バージョンＩＤを取得 doctor_id = Request.Form("doctor_id") if doctor_id <> "" then '問題情報を取得 Set dbConnection = Server.CreateObject("ADODB.Connection") ConnectionString = "ASAHI_DB" dbConnection.Open ConnectionString SQLQuery = "SELECT * from doctor2_table " SQLQuery = SQLQuery & "WHERE doctor_id = " & doctor_id Set rsKenshinInfo = dbConnection.Execute(SQLQuery) kenshin_flag = False IF rsKenshinInfo.EOF then kenshin_flag = False 'msg = "英語検診は登録されていません。" '検診バージョン選択画面へリダイレクト Response.redirect("index.asp") else kenshin_flag = True Q1 = rsKenshinInfo("A1") Q2 = rsKenshinInfo("A2") Q3 = rsKenshinInfo("A3") Q4 = rsKenshinInfo("A4") Q5 = rsKenshinInfo("A5") Q6 = rsKenshinInfo("A6") Q7 = rsKenshinInfo("A7") Q8 = rsKenshinInfo("A8") Q9 = rsKenshinInfo("A9") Q10 = rsKenshinInfo("A10") Q11 = rsKenshinInfo("A11") Q12 = rsKenshinInfo("A12") Q13 = rsKenshinInfo("A13") Q14 = rsKenshinInfo("A14") Q15 = rsKenshinInfo("A15") Q16 = rsKenshinInfo("A16") end if else Response.redirect("index.asp") end if Action = Request.Form("KenshinKekka") if Action = "診断結果を見る" then A1 = Request.Form("A1") A2 = Request.Form("A2") A3 = Request.Form("A3") A4 = Request.Form("A4") A5 = Request.Form("A5") A6 = Request.Form("A6") A7 = Request.Form("A7") A8 = Request.Form("A8") A9 = Request.Form("A9") A10 = Request.Form("A10") A11 = Request.Form("A11") A12 = Request.Form("A12") A13 = Request.Form("A13") A14 = Request.Form("A14") A15 = Request.Form("A15") A16 = Request.Form("A16") if A1 = Q1 and A9 = Q9 then Session("kekka1") = True else Session("kekka1") = False end if if A2 = Q2 and A10 = Q10 then Session("kekka2") = True else Session("kekka2") = False end if if A3 = Q3 and A11 = Q11 then Session("kekka3") = True else Session("kekka3") = False end if if A4 = Q4 and A12 = Q12 then Session("kekka4") = True else Session("kekka4") = False end if if A5 = Q5 and A13 = Q13 then Session("kekka5") = True else Session("kekka5") = False end if if A6 = Q6 and A14 = Q14 then Session("kekka6") = True else Session("kekka6") = False end if if A7 = Q7 and A15 = Q15 then Session("kekka7") = True else Session("kekka7") = False end if if A8 = Q8 and A16 = Q16 then Session("kekka8") = True else Session("kekka8") = False end if Session("doctor_id") = doctor_id Session("A1") = A1 Session("A2") = A2 Session("A3") = A3 Session("A4") = A4 Session("A5") = A5 Session("A6") = A6 Session("A7") = A7 Session("A8") = A8 Session("A9") = A9 Session("A10") = A10 Session("A11") = A11 Session("A12") = A12 Session("A13") = A13 Session("A14") = A14 Session("A15") = A15 Session("A16") = A16 '診断結果へ Response.Redirect("kekka.asp") elseif Action = "もどる" then A1 = Session("A1") A2 = Session("A2") A3 = Session("A3") A4 = Session("A4") A5 = Session("A5") A6 = Session("A6") A7 = Session("A7") A8 = Session("A8") A9 = Session("A9") A10 = Session("A10") A11 = Session("A11") A12 = Session("A12") A13 = Session("A13") A14 = Session("A14") A15 = Session("A15") A16 = Session("A16") end if %>

問診票の問題を解き終えたら、右下の「診断結果を見る」をクリックして下さい。あなたの弱点をズバリ診断いたします。 まずは弱点をチェック 　 問診票 ●各英文のカッコ内に入る、適切と思われる語句をひとつずつ選んでください。 <%= rsKenshinInfo("J1")%> <%= rsKenshinInfo("E1")%> checked<%end if%>><%= rsKenshinInfo("Q1_1")%> checked<%end if%>><%= rsKenshinInfo("Q1_2")%> checked<%end if%>><%= rsKenshinInfo("Q1_3")%> <%= rsKenshinInfo("J2")%> <%= rsKenshinInfo("E2")%> checked<%end if%>><%= rsKenshinInfo("Q2_1")%> checked<%end if%>><%= rsKenshinInfo("Q2_2")%> checked<%end if%>><%= rsKenshinInfo("Q2_3")%> <%= rsKenshinInfo("J3")%> <%= rsKenshinInfo("E3")%> checked<%end if%>><%= rsKenshinInfo("Q3_1")%> checked<%end if%>><%= rsKenshinInfo("Q3_2")%> checked<%end if%>><%= rsKenshinInfo("Q3_3")%> <%= rsKenshinInfo("J4")%> <%= rsKenshinInfo("E4")%> checked<%end if%>><%= rsKenshinInfo("Q4_1")%> checked<%end if%>><%= rsKenshinInfo("Q4_2")%> checked<%end if%>><%= rsKenshinInfo("Q4_3")%> <%= rsKenshinInfo("J5")%> <%= rsKenshinInfo("E5")%> checked<%end if%>><%= rsKenshinInfo("Q5_1")%> checked<%end if%>><%= rsKenshinInfo("Q5_2")%> checked<%end if%>><%= rsKenshinInfo("Q5_3")%> <%= rsKenshinInfo("J6")%> <%= rsKenshinInfo("E6")%> checked<%end if%>><%= rsKenshinInfo("Q6_1")%> checked<%end if%>><%= rsKenshinInfo("Q6_2")%> checked<%end if%>><%= rsKenshinInfo("Q6_3")%> <%= rsKenshinInfo("J7")%> <%= rsKenshinInfo("E7")%> checked<%end if%>><%= rsKenshinInfo("Q7_1")%> checked<%end if%>><%= rsKenshinInfo("Q7_2")%> checked<%end if%>><%= rsKenshinInfo("Q7_3")%> <%= rsKenshinInfo("J8")%> <%= rsKenshinInfo("E8")%> checked<%end if%>><%= rsKenshinInfo("Q8_1")%> checked<%end if%>><%= rsKenshinInfo("Q8_2")%> checked<%end if%>><%= rsKenshinInfo("Q8_3")%> <%= rsKenshinInfo("J9")%> <%= rsKenshinInfo("E9")%> checked<%end if%>><%= rsKenshinInfo("Q9_1")%> checked<%end if%>><%= rsKenshinInfo("Q9_2")%> checked<%end if%>><%= rsKenshinInfo("Q9_3")%> <%= rsKenshinInfo("J10")%> <%= rsKenshinInfo("E10")%> checked<%end if%>><%= rsKenshinInfo("Q10_1")%> checked<%end if%>><%= rsKenshinInfo("Q10_2")%> checked<%end if%>><%= rsKenshinInfo("Q10_3")%> <%= rsKenshinInfo("J11")%> <%= rsKenshinInfo("E11")%> checked<%end if%>><%= rsKenshinInfo("Q11_1")%> checked<%end if%>><%= rsKenshinInfo("Q11_2")%> checked<%end if%>><%= rsKenshinInfo("Q11_3")%> <%= rsKenshinInfo("J12")%> <%= rsKenshinInfo("E12")%> checked<%end if%>><%= rsKenshinInfo("Q12_1")%> checked<%end if%>><%= rsKenshinInfo("Q12_2")%> checked<%end if%>><%= rsKenshinInfo("Q12_3")%> <%= rsKenshinInfo("J13")%> <%= rsKenshinInfo("E13")%> checked<%end if%>><%= rsKenshinInfo("Q13_1")%> checked<%end if%>><%= rsKenshinInfo("Q13_2")%> checked<%end if%>><%= rsKenshinInfo("Q13_3")%> <%= rsKenshinInfo("J14")%> <%= rsKenshinInfo("E14")%> checked<%end if%>><%= rsKenshinInfo("Q14_1")%> checked<%end if%>><%= rsKenshinInfo("Q14_2")%> checked<%end if%>><%= rsKenshinInfo("Q14_3")%> <%= rsKenshinInfo("J15")%> <%= rsKenshinInfo("E15")%> checked<%end if%>><%= rsKenshinInfo("Q15_1")%> checked<%end if%>><%= rsKenshinInfo("Q15_2")%> checked<%end if%>><%= rsKenshinInfo("Q15_3")%> <%= rsKenshinInfo("J16")%> <%= rsKenshinInfo("E16")%> checked<%end if%>><%= rsKenshinInfo("Q16_1")%> checked<%end if%>><%= rsKenshinInfo("Q16_2")%> checked<%end if%>><%= rsKenshinInfo("Q16_3")%>