here is one example :
Dim GivenToCust
Dim GivenToCust_cmd
Dim GivenToCust_numRows
Set GivenToCust_cmd = Server.CreateObject("ADODB.Command")
GivenToCust_cmd.ActiveConnection = Conn
GivenToCust_cmd.CommandText = "select GivenToCust from crmconfig where module='SPARES USED'"
GivenToCust_cmd.Prepared = true
Set GivenToCust = GivenToCust_cmd.Execute
Dim arrGivenToCust
arrGivenToCust = GivenToCust.GetRows()
dim i
response.write "<table>"
For i = 0 to ubound(arrGivenToCust , 2)
response.write "<tr>"
response.write("<td>" + trim(i+1))
response.write("<table><tbody><tr><td>" + trim(arrGivenToCust (0,i)))
next
response.write "</td></tr></tbody></table></td></tr></tbody></table></td></tr></table>"