쿼리_1

Sub bizInfo()
Dim strSQL, lngRow, arrData, lngDataCnt

strSQL = ""
strSQL = strSQL & "SELECT * FROM "
strSQL = strSQL & " (SELECT COL1, COL2, ROW_NUMBER() OVER (ORDER BYCOL3 DESC) AS RN "
strSQL = strSQL & " FROM TABLE) "
strSQL = strSQL & "WHERE RN BETWEEN 1 AND 6 "

DB.ExecuteRs strSQL
DB.GetRows arrData, lngDataCnt

For lngRow = 0 To lngDataCnt-1 Step 1
Response.Write "<a href=""" & arrData(0, lngRow) & """>" & arrData(1, lngRow) & "</a><br />"
Next

End Sub