I have a recordset full of questions. what i am tryin to do is display the answers in a form and when the user clicks the submit button it passes the value back to the original page and increments the recordset by 1, thus displayin the next question. heres my code. a bit simple but works all the same, NE Ideas??
dim Conn, Questions, Conn2, Answers
Set Conn = Server.CreateObject("ADODB.Connection"
Set Questions = Server.CreateObject("ADODB.Recordset"
Set Conn2 = Server.CreateObject("ADODB.Connection"
Set Answers = Server.CreateObject("ADODB.Recordset"
Conn.Open "Provider =Microsoft.Jet.OLEDB.4.0;" &_
"Data Source = C:\Inetpub\ &_
"Persist Security Info=False"
strSQL = "SELECT * FROM questions"
Questions.Open strSQL, Conn, adOpenDynamic
'Questions.MoveFirst
Conn2.Open "Provider =Microsoft.Jet.OLEDB.4.0;" &_
"Data Source = C:\Inetpub\ &_
"Persist Security Info=False"
strSQL = "SELECT * FROM student"
Answers.Open strSQL, Conn, adOpenDynamic
'Answers.MoveFirst
%>
<H2>You are currently on question number <%Response.Write Questions("Question Number"
%><BR><BR><BR>
<%Response.Write Questions("Question"
%><BR>
<form action="test.asp" method="post">
<p><input TYPE="radio" NAME="Answer" VALUE="A"><%Response.Write Questions("Answer A"
%></p>
<p><input TYPE="radio" NAME="Answer" VALUE="B"><%Response.Write Questions("Answer B"
%></p>
<p><input TYPE="radio" NAME="Answer" VALUE="C"><%Response.Write Questions("Answer C"
%></p>
<p><input TYPE="radio" NAME="Answer" VALUE="D"><%Response.Write Questions("Answer D"
%></p>
<input type="submit" Value ="Forwards"<%Questions.MoveNext%>>
</form>
dim Conn, Questions, Conn2, Answers
Set Conn = Server.CreateObject("ADODB.Connection"
Set Questions = Server.CreateObject("ADODB.Recordset"
Set Conn2 = Server.CreateObject("ADODB.Connection"
Set Answers = Server.CreateObject("ADODB.Recordset"
Conn.Open "Provider =Microsoft.Jet.OLEDB.4.0;" &_
"Data Source = C:\Inetpub\ &_
"Persist Security Info=False"
strSQL = "SELECT * FROM questions"
Questions.Open strSQL, Conn, adOpenDynamic
'Questions.MoveFirst
Conn2.Open "Provider =Microsoft.Jet.OLEDB.4.0;" &_
"Data Source = C:\Inetpub\ &_
"Persist Security Info=False"
strSQL = "SELECT * FROM student"
Answers.Open strSQL, Conn, adOpenDynamic
'Answers.MoveFirst
%>
<H2>You are currently on question number <%Response.Write Questions("Question Number"
<%Response.Write Questions("Question"
<form action="test.asp" method="post">
<p><input TYPE="radio" NAME="Answer" VALUE="A"><%Response.Write Questions("Answer A"
<p><input TYPE="radio" NAME="Answer" VALUE="B"><%Response.Write Questions("Answer B"
<p><input TYPE="radio" NAME="Answer" VALUE="C"><%Response.Write Questions("Answer C"
<p><input TYPE="radio" NAME="Answer" VALUE="D"><%Response.Write Questions("Answer D"
<input type="submit" Value ="Forwards"<%Questions.MoveNext%>>
</form>