p2p.wrox.com Forums

Need to download code?

View our list of code downloads.


  Return to Index  

asp_databases thread: Help needed with loops & populating checkboxes


Message #1 by "Melinda Savoy" <msavoy@c...> on Fri, 21 Jul 2000 14:49:56
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 




  Return to Index