%
uploadDir = "\\192.168.1.4\tesisgalicia.es\www\imagenes\ofertas\"
'uploadDir = "d:\xvrt\asired.es\html\desarrollo\Tesis001\imagenes\ofertas\"
'uploadDir = "e:\InetPub\wwwroot\desarrollo\tesisGalicia\imagenes\ofertas\"
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 ofertas"
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 ofertas"
Set RsOfertas = ObjDbConnection.execute(SqlQuery)
If pag <> 0 Then
RsOfertas.Move (pag*ipp)
End If
%>
<%if inf=0 then%>
Páginade <%=numpag+1%>
<%else%>
<%end if%>
<%if inf=0 then%>
<%
if not RsOfertas.Eof then
cuenta=1
do while not RsOfertas.Eof
if Cuenta > ipp Then
Exit Do
end if
%>
<%if not RsOfertas.eof then%><%=fichitas%><%cuenta=cuenta+1%><%RsOfertas.movenext%><%else%><%end if%>
<%if not RsOfertas.eof then%><%=fichitas%><%else%><%end if%>
<%
if not RsOfertas.eof then
cuenta=cuenta+1
RsOfertas.movenext
End If
loop
%>
<%end if%>