dividir celdas según recordset

[Adler]

Hola

Sería algo como esto

Código asp:

Nombre = 0
Materia = 1
Credito = 2
 
SQL ="SELECT Distinct(Nombre) FROM tabla" 
set rs = oConn.Execute(SQL)
registros = rs.getrows()
rs.Close
Set rs = Nothing
For i = 0 to ubound(registros,2)
response.write registros(Nombre,i) & "<br>"
 
SQL2 ="SELECT Nombre, Materia, Credito FROM tabla WHERE Nombre = '"&registros(Nombre,i)&"'" 
set rs2 = oConn.Execute(SQL2)
registros2 = rs2.getrows()
For j = 0 to ubound(registros2,2)
response.write registros2(Materio,j) & "-" registros2(Credito,j) & "<br>"
Next
rs2.Close
Set rs2 = Nothing
 

Suerte