查询出倒数第3行的数=倒数第6行的数=倒数第9行的数=倒数第12行的数！=倒数第15行的数

各位老师，如下图，查询出倒数第3行的数=倒数第6行的数=倒数第9行的数=倒数第12行的数！=倒数第15行的数

我用以下代码，查询多条信息的时候很慢，请问有什么更简便，运行更快的代码吗？谢谢！
ColumnName="*":Tablename="SD_HAOMAB":Orderby=" Order by SD_QIH Asc"
Set RZ=WS_S.HX_SetRSD(columnName,Tablename,Orderby)

 set RS_D15QI=WS_S.HX_SetRSD(ColumnName,Tablename," where SD_XUH='"&rz.recordcount-15&"'")
 set RS_D12QI=WS_S.HX_SetRSD(ColumnName,Tablename," where SD_XUH='"&rz.recordcount-12&"'")
 set RS_D09QI=WS_S.HX_SetRSD(ColumnName,Tablename," where SD_XUH='"&rz.recordcount-9&"'")
 set RS_D06QI=WS_S.HX_SetRSD(ColumnName,Tablename," where SD_XUH='"&rz.recordcount-6&"'")
 set RS_D03QI=WS_S.HX_SetRSD(ColumnName,Tablename," where SD_XUH='"&rz.recordcount-3&"'")
 set RS_D01QI=WS_S.HX_SetRSD(ColumnName,Tablename," where SD_XUH='"&rz.recordcount&"'")

 response.Write "<tr class=titletdbg><td align='center' valign='middle' nowrap>4个3相同</td>"

 If (RS_D15QI("SD_KJB")<>3) AND (RS_D12QI("SD_KJB")=3) AND (RS_D09QI("SD_KJB")=3) AND (RS_D06QI("SD_KJB")=3) AND (RS_D03QI("SD_KJB")=3) Then
 response.Write "<td class=titletdbg align=""center"" valign=""middle"">"4个3相同"</td>"
 Else response.Write "<td class=titletdbg align=""center"" valign=""middle"">没有相同数</td>" End If

:WS_S.HX_RSClose RS_D15QI:WS_S.HX_RSClose RS_D12QI:WS_S.HX_RSClose RS_D09QI:WS_S.HX_RSClose RS_D06QI:WS_S.HX_RSClose RS_D03QI:WS_S.HX_RSClose RS_D01QI