ASP cyclic row number Output function _ Application techniques

After the Big Bird's guidance has made comprehensive changes, I limited ability can only do the following this step:

Asp/visual Basic code

Copy Code code as follows:

<%
Const p=6 ' every page 2 piece
Set rs = Server.CreateObject ("Adodb.recordset")
sql = "SELECT * from show order by ID Desc"
Rs. Open sql,conn,1

I=0
Do as not rs.eof
%> <td align= "center" height= ">"
<a href= "show.asp?id=<%=rs (" id ")%>" >
</a> "
</td>
<%
If (i+1) Mod 3 =0 Then
Response.Write "</tr>"
If i< (p-1) Then Response.Write "<tr>"
End If
I=i+1
If I>p then Exit Do
Rs.movenext
Loop
If I Mod 3 <>0 Then
For m=3-(I Mod 3) to 1 Step-1
Response.Write "<td> </td>"
Next
Response.Write "</tr>"
End If
If i = 3 Then
Response.Write "<td> </td><td> </td><td> </td></tr>"
End If
Rs.close
Set rs=nothing
%>

The previous code has not changed

Copy Code code as follows:

<%
Const p=6 ' every page 2 piece
Set rs = Server.CreateObject ("Adodb.recordset")
sql = "SELECT * from show order by ID Desc"
Rs. Open sql,conn,1

I=1
Do as not rs.eof
%> <td align= "center" height= ">"
<a href= "show.asp?id=<%=rs (" id ")%>" >
</a> "
</td>
<%
If I mod 3 = 0 Then
Response.Write ("</tr><tr>")
End If
I=i+1
If I>p then Exit Do
Rs.movenext
Loop
Rs.close
Set rs=nothing
%>