<% Response.Buffer = true %> <% Dim nFormato Dim nMatricula Dim nNumero Dim nFilas Dim nColumnas Dim nImagen Dim nGrande Dim i Dim j If Request("Formato") Then nFormato = CInt(Request("Formato")) Else nFormato = 0 End If If Request("Matricula") <> "" Then nMatricula = Cstr(Request("Matricula")) Else nMatricula = "" End If If Request("Numero") Then nNumero = CInt(Request("Numero")) Else nNumero = 0 End If If Request("Grande") Then nGrande = CInt(Request("Grande")) Else nGrande = 0 End If %> <% 'Response.Write (nFormato) 'Response.Write (nMatricula) 'Response.Write (nNumero) 'Response.Write (nFilas) 'Response.Write (nColumnas) 'Response.Write (nImagen) 'Response.Write (nGrande) 'Response.Write (i) 'Response.Write (j) %> <% If nFormato = 1 Then %> <% nFilas = 3 %> <% nColumnas = 3 %>

<% nImagen = 1 %> <% For i=1 To nFilas %> <% For j=1 To nColumnas %> <% nImagen = nImagen + 1 %> <% Next %> <% Next %> <% If nImagen = nGrande Then nImagen = nImagen + 1 End If %>

<% End If %> <% If nFormato = 2 Then %> <% nFilas = 1 %> <% nColumnas = nNumero - 1 %>

<% nImagen = 1 %> <% For i=1 To nFilas %> <% For j=1 To nColumnas %> <% nImagen = nImagen + 1 %> <% Next %> <% Next %> <% If nImagen = nGrande Then nImagen = nImagen + 1 End If %>

<% End If %> <% If nFormato = 3 Then %> <% nFilas = (nNumero - 1) / 2 %> <% nColumnas = 2 %>

<% nImagen = 1 %> <% For i=1 To nFilas %> <% For j=1 To nColumnas %> <% nImagen = nImagen + 1 %> <% Next %> <% Next %> <% If nImagen = nGrande Then nImagen = nImagen + 1 End If %>

<% End If %> <% If nFormato = 4 Then %> <% nFilas = nNumero - 1 %> <% nColumnas = 1 %>

<% nImagen = 1 %> <% For i=1 To nFilas %> <% For j=1 To nColumnas %> <% nImagen = nImagen + 1 %> <% Next %> <% Next %> <% If nImagen = nGrande Then nImagen = nImagen + 1 End If %>

<% End If %>