<%
foto = Request.QueryString("foto")
If foto = "" Then foto = 1 End If
total_fotos = 15
%>
<%
for i = 1 to total_fotos
if int(foto) = i Then
Response.Write ""&i&""
Else
Response.Write ""&i&""
End If
Next
If int(foto) < total_fotos Then
fotoPage = foto + 1
Response.Write ">>"
End If
%>
<%
for i = 1 to total_fotos
if int(foto) = i Then
Response.Write ""&i&""
Else
Response.Write ""&i&""
End If
Next
If int(foto) < total_fotos Then
fotoPage = foto + 1
Response.Write ">>"
End If
%>
