Galeria de fotos en Asp

[affv]

Bueno despues de 2 horas aqui tengo el codigo para una galeria de fotos con FSO sin base de datos tan solo Drag and Drop y listo.

Código PHP:

  <%
Set MyFso = CreateObject("Scripting.FileSystemObject")
Set MyFolder = MyFso.GetFolder(Server.MapPath("images/"))
Pagina = Request.QueryString("Pagina")
MyConter1 = 0
MyConter2 = 0
 
Response.Write("<table>")
Response.Write("<tr>")
For Each MyFile in MyFolder.Files
    If Cint(MyConter2) >= Cint(Pagina) Then
        If MyConter1 < 16 Then
            If MyConter1 Mod 4 = 0 Then    Response.Write("</tr><tr>")    End if
            Response.Write("<td><img src='images/"&MyFile.Name&"'></td>")
            MyConter1 = MyConter1 + 1
        End If
    End If
    MyConter2 = MyConter2 + 1
Next
Response.Write("</tr>")
Response.Write("</table>")
 
Response.Write("<table width='100%'>")
Response.Write("<tr>")
If Cint(Pagina) >= 16 Then
    Response.Write("<td width='50%'><p align='left'><a href='?pagina="&Cint(Pagina) - 16&"'>&lt;&lt; Back</a></p></td>")
End If
If Pagina + 16 < MyFolder.Files.Count Then
    Response.Write("<td width='50%'><p align='right'><a href='?pagina="&Cint(Pagina) + 16&"'>Next &gt;&gt;</a></p></td>")
End If
Response.Write("</tr>")
Response.Write("</table>")
 
Set MyFile = Nothing
Set MyFso = Nothing
%> 
   

Ahora sigo con el resto de la galeria luego les paso mas codigo.