ciao a tutti spero ke qualcuno mi aiuti a costruire quanti record per pagina voglio visualizzare in "questa pagina" aiuto

Const ImageFilePath = "/up/todb/images/large"
Const DeleteButtonLabel = "Invio"

Dim objFSO
Dim objFolder
Dim objFile

Dim strFileName
Dim strFileExtension

Dim blnShowImages

If Request.QueryString("ShowImages") = "" Then
blnShowImages = False
Else
blnShowImages = CBool(Request.QueryString("ShowImages"))
End If

If Request.Form("btnDelete") = DeleteButtonLabel Then
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

For Each strFileName In Request.Form("delete")
objFSO.DeleteFile(Server.MapPath(ImageFilePath & "/" & _
strFileName))
Next

Set objFSO = Nothing
End If
%>

<form action="<%= Request.ServerVariables("URL") %>" method="post">

<%


Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath))

For Each objFile In objFolder.Files
strFileExtension = LCase(Mid(objFile.Name, _
InStrRev(objFile.Name, ".", -1, 1) + 1))

If strFileExtension = "gif" Or strFileExtension = "jpg" Or _
strFileExtension = "jpeg" Then
' Original image file identification option:
'If objFile.Type = "GIF Image" Or _
'objFile.Type = "JPEG Image" Then
%>
<%= objFile.Name %></a> </td>
<%
If blnShowImages Then
%>
[img]<%= ImageFilePath & [/img]" align="center" />

<%
Else
%>
<a target="_blank" href="<%= ImageFilePath & "/" & objFile.Name %>">
[img]<%= ImageFilePath & [/img]" width="68" height="40" align="right">
<%
End If
%>
<input type="checkbox" name="delete"
value="<%= objFile.Name %>" /> [img]images/del1.jpg[/img]</td>
<%
End If
Next

Set objFolder = Nothing
Set objFSO = Nothing
%>

<input type="submit" name="btnDelete"
value="<%= DeleteButtonLabel %>">
</form>


ps a ki interessa questo codice lo può prendere tranquillamente, serve a cancellare le immagini in un folder. attenzione però: per postarlo ho evitato il codice html quindi ki lo utilizza lo dovrà strutturare.