Dim sqlSc As String = "SELECT * FROM School"
Dim objRecSc = Server.CreateObject("ADODB.Recordset")
objRecSc.Open(sqlSc, conn, 1, 3)
While Not objRecSc.EOF
Dim matt As Integer
matt(i) = objRecSc.Fields("Username").Value
Response.Write("<input type=\"hidden\" size=\"50\" maxlength=\"10\" name=\"User$i\" value=\"matt[i]\"/>")
i = (i + 1)
objRecSc.MoveNext()
End While