DimoConn,ors,aRows

Dimi,j

SetoConn=Server.CreateObject("ADODB.Connection")

oConn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath("database/newasp.resx")

Setors=oConn.Execute("SelectTOP5SoftID,SoftNameFROMNC_SoftList")

Response.Write"RecordCount:"&ors.RecordCount&"<br/>"'-1

aRows=oRs.GetRows(-1)'oRs.Eof=True,aRows(col,row)

Setors=Nothing

oConn.Close()

SetoConn=Nothing

IfIsArray(aRows)Then

Response.Write"RecordCount:"&UBound(aRows,2)+1&"<br/>"

Fori=0ToUBound(aRows,2)

Forj=0ToUBound(aRows,1)

Response.WriteaRows(j,i)

Ifj<>UBound(aRows,1)ThenResponse.Write","

Next

Response.Write"<br/>"

Next

EndIf

%>