I have a form that has checkboxes. These checkboxes were on the previous
page. I now trying to recall those checkboxes on the same form but for
editing purposes on another page. The form displays a question and answer
that was entered for each product and each platform that was checked.
Therefore, I have one question, one answer and multiple product and
platforms. Please note that the same recordset is assigned to different
variables. Using the code below, I am only seeing the last row of my
record: (PLEASE HELP, thank you.)
'***** Select statement to populate the original input form for editing
purposes. ***** strSQLStatement = "SELECT question_answer.question_id,
question_answer.question_descr, question_answer.answer_descr,
question_answer.keyword, question_answer.dateentered,
question_answer.username, question_answer.disable_flag,
prod_link_qa.prod_id, platform_link_qa.platform_id,
software_link_qa.software_id, product.prod_descr, platform.platform_descr,
platform.base_descr, software.software_descr " & _
"FROM question_answer LEFT OUTER JOIN prod_link_qa " & _
"ON question_answer.question_id = prod_link_qa.question_id " & _ "LEFT
OUTER
JOIN product " & _ "ON prod_link_qa.prod_id = product.prod_id " & _ "LEFT
OUTER JOIN platform_link_qa " & _
"ON question_answer.question_id = platform_link_qa.question_id " & _ "LEFT
OUTER JOIN platform " & _
"ON platform_link_qa.platform_id = platform.platform_id " & _ "LEFT OUTER
JOIN software_link_qa " & _
"ON question_answer.question_id = software_link_qa.question_id " & _ "LEFT
OUTER JOIN software " & _
"ON software_link_qa.software_id = software.software_id " & _
"WHERE question_answer.question_id = " & intQuestion_id & _
"ORDER BY question_answer.question_id DESC "
Set rs = KB_PSSstaff.Execute(strSQLStatement)
' Response.Write strSQLStatement & "
" Do While Not rs.EOF
strquestion_descr = rs("question_descr")
stranswer_descr = rs("answer_descr")
strkeyword = rs("keyword")
strdateentered = Request.Form("dateentered")
strusername = rs("username")
strdisable_flag = rs("disable_flag")
strprod_id = rs("prod_id")
strplatform_id = rs("platform_id")
strsoftware_id = rs("software_id")
strplatform_descr = rs("platform_descr")
strbase_descr = rs("base_descr")
strsoftware_descr = rs("software_descr")
intquestion_id = rs("question_id")
iCounter = iCounter + 1
rs.MoveNext Loop
intProd_id = icounter - 1
Response.Write strprod_id & "<br>"
Response.Write strplatform_id & "<br>"
rs.Close