How do I update each record in a dynamically generated HTML list with a different value?

Hello,

I am working on a classroom database for a small nonprofit organization
and have fun into a dilema. I have an HTML form that allows instructors
to select a class from a drop down list and it displays the students
enrolled in the class like this:



if request.form("Classes") <> "" then
session("UClass") = request.Form("Classes")
else
end if

if session("UClass") <> "" then
dim strSQL
set rst = server.CreateObject("adodb.recordset")
rst.activeconnection= MM_pima_string
rst.locktype = 3
rst.cursortype = 3

strSQL = "select * from vwLSTStatus where (intClass = '" &
session("UClass") & "') and (strStatus='Active')"
rst.open strSQL
else
end if

<%
if not rst.eof then
do until rst.eof
%>

<%=session("UC")%>
href="LST_Inforfmation.asp?Inst=<%=rst.fields("intIDInstance")%>"><%=rst.fields("strFNameCL")%>
 <%=rst.fields("strLNameCL")%>


<%
rst.movenext
loop
else
end if%>

I would like to allow instructors to type a different comment for each
student in the list and submit all of the comments simultaneously. I
have no idea how I would grab the different comments since there is
technically only one object named 'Comments'. I am so stuck. Ideas
anyone? TIA.

Hi marca31,

Instead of naming all the comments fields the same, give them a unique name
that you can map back to the corresponding record.

"
/>

Then, in the code that handles the form post, you could do something like:

For Each q in Request.Form
If UCase(Left(q & " ", 8)) = "COMMENTS" Then
intIDInstance = Replace(q,"Comments","")
If IsNumeric(intIDInstance) Then
sSQL = "UPDATE something SET comment = '" &
Safen(Request.Form(q)) & "' WHERE intIDInstance = " & intIDInstance
yourADOObject.Execute sSQL,,129
End If
End If
Next

Function Safen(s)
Safen = Replace(s,"'", "''")
End Function


Ray at work

wrote in message
news:1121054181.823217.95400@z14g2000cwz.googlegroups.com...
> Hello,
>
> I am working on a classroom database for a small nonprofit organization
> and have fun into a dilema. I have an HTML form that allows instructors
> to select a class from a drop down list and it displays the students
> enrolled in the class like this:
>
>
>
> if request.form("Classes") <> "" then
> session("UClass") = request.Form("Classes")
> else
> end if
>
> if session("UClass") <> "" then
> dim strSQL
> set rst = server.CreateObject("adodb.recordset")
> rst.activeconnection= MM_pima_string
> rst.locktype = 3
> rst.cursortype = 3
>
> strSQL = "select * from vwLSTStatus where (intClass = '" &
> session("UClass") & "') and (strStatus='Active')"
> rst.open strSQL
> else
> end if
>
> <%
> if not rst.eof then
> do until rst.eof
> %>
>
> <%=session("UC")%>
> >
href="LST_Inforfmation.asp?Inst=<%=rst.fields("intIDInstance")%>"><%=rst.fie
lds("strFNameCL")%>
>  <%=rst.fields("strLNameCL")%>
>
>
> <%
> rst.movenext
> loop
> else
> end if%>
>
> I would like to allow instructors to type a different comment for each
> student in the list and submit all of the comments simultaneously. I
> have no idea how I would grab the different comments since there is
> technically only one object named 'Comments'. I am so stuck. Ideas
> anyone? TIA.
>