I have the following i am able to see the data under reponse.write, please can you help me bind the data to a datagrid(datagrid1)

result1 = myobj.getSubCategoryList("MOT-V300", "GSM", "jamaica", 294, 1, 1)
Dim i As Integer

For i = 0 To result1.results.GetLength(0) - 1
With result1.results(i)
Response.Write(.description)
Response.Write(.fatherId)
Response.Write(.id())
Response.Write(.lastLevel())
Response.Write(.orderBy())
Response.Write(.systemcat())
End With
Next

Thank you very much for the information.