%
uploadDir = "\\192.168.1.4\tesisgalicia.es\www\imagenes\marcas\"
' uploadDir = "d:\xvrt\asired.es\html\desarrollo\Tesis001\imagenes\marcas\"
'uploadDir = "e:\InetPub\wwwroot\desarrollo\tesisGalicia\imagenes\marcas\"
ipp=6
pag = int("0" & Request.QueryString("pag"))
inf = int("0" & Request.QueryString("inf"))
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
SqlQuery="Select Count(*) as cuenta from marcas"
SET RsTotal = OBJdbConnection.Execute(SQLQuery)
total = RsTotal("Cuenta")
SET RsTotal = Nothing
numpag = int((total-1)/ipp)
if pag > numpag then pag=pag-1 END IF
if pag < 0 then pag=0 END IF
SQlQuery="Select * from marcas"
Set RsMarcas = ObjDbConnection.execute(SqlQuery)
If pag <> 0 Then
RsMarcas.Move (pag*ipp)
End If
%>
<%if inf=0 then%>
Páginade <%=numpag+1%>
<%else%>
<%end if%>
<%if inf=0 then%>
<%
if not RsMarcas.Eof then
cuenta=1
do while not RsMarcas.Eof
if Cuenta > ipp Then
Exit Do
end if
%>
<%if not RsMarcas.eof then%><%=fichitas_Marcas%><%cuenta=cuenta+1%><%RsMarcas.movenext%><%else%><%end if%>
<%if not RsMarcas.eof then%><%=fichitas_Marcas%><%else%><%end if%>
<%
if not RsMarcas.eof then
cuenta=cuenta+1
RsMarcas.movenext
End If
loop
%>
<%end if%>