Dim Demo(),DemoRs,i
Set DemoRs=Server.CreateObject("ADODB.Recordset")
DemoRs.Open "your database",objconn ,adOpenStatic,,Adcmdtext
ReDim Demo(DemoRs.RecordCount)
For i=1 to DemoRs.RecordCount
Demo(i)=DemoRs("your feild")
Response.Write Demo(i)
DemoRs.MoveNext
Next
Response.Write "That's all"