Output sub-processes by table based on input recordset object instance

Function iif (cond, expr1, expr2)
If cond then
Iif = expr1
Else
Iif = expr2
End if
End function
Sub outinfo (rst)
Allcount = rst. Recordcount-1
Response. write "<TABLE id = tablemx> <form method = post action = manage. asp>"
    
Response. write "<TR> <TD> all <input type = checkbox NAME = allselect> </TD>"
    
For k = 0 to rst. fields. count-1
Response. write "<TD>" & rst (k). name & "</TD>"
Next
Response. write "</TR>"
 
For I = 0 to allcount
Response. write "<TR> <TD>" & I & "<INPUT TYPE = checkbox NAME = su_no value = '" & rst ("su_no ") & "'> </TD>"
For k = 0 to rst. fields. count-1
Response. write "<TD>" & rst (k). value & "</TD>"
Next
Response. write "</TR>" & vbcrlf
Rst. movenext
Next
Response. write "</TABLE> Total records [" & allcount + 1 & "] </FORM>"
End sub