ต้องการดึงข้อมูลจากตารางที่บันทึกเข้าไป 5 อันดับล่าสุดมาแสดงที่หน้าแรกครับ

<%
Dim RecCount
RecCount = 0
If ConnectDB() = True Then
sql = "SELECT * FROM Firstpage2 ORDER BY ID DESC"
Set rs = Conn.Execute(sql)
If rs.BOF Or rs.EOF Then
Response.Write "<br><br><br><br>"
Response.Write "<p align=center><b>ไม่พบข้อมูลต้องการ กรุณาตรวจสอบข้อมูลใหม่อีกครั้ง</b></p>"
Response.End
End If
%>
<% Do While Not rs.EOF %>
<tr>
<td class="c1"><a href="news.asp?fid=<%=rs("id")%>"><%=Replace(rs("FHead"),vbCrLf,"")%></a></td>
<td class="style17"><%=Replace(rs("FOwner"),vbCrLf,"")%></td>
<input type="hidden" name="fid" value="<%=rs("id")%>">
</tr>
<%
RecCount = RecCount + 1
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End If
%>