% @LCID = 1034 %> <% Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" ValorIVA = Application("IVA") Set conn = Server.CreateObject("ADODB.Connection") strConn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=www.gextcomputer.com;DATABASE=deltashop;UID=gextcomputer;PWD=deltashop05; OPTION=3" conn.open strConn sub tiranArt (rs, pag, PageURL, TotalPaginas, cod) if TotalPaginas > 1 then if pag = "" then pag = 1 pn = pag - 5 if pn < 6 then pn = 1 PagAnterior = pag - 1 if PagAnterior < 1 then PagAnterior = TotalPaginas rs.AbsolutePage = 1 ArtPrimero = rs("codart") rs.AbsolutePage = TotalPaginas ArtUltimo = rs("codart") rs.AbsolutePage = PagAnterior ArtAnterior = rs("codart") %> < Anterior 1... <% PaginaTope = pn + 9 if PaginaTope > TotalPaginas then PaginaTope = TotalPaginas for i = pn to PaginaTope if i > 0 and i =< TotalPaginas then if CInt(pag) = CInt(i) then %> <%=i%> <% if CInt(pag) <> TotalPaginas then response.write " | " %> <% else rs.AbsolutePage = i ArtActual = rs("codart") %> <%=i%> | <% end if end if next if TotalPaginas > 11 then if CInt(pag) <> TotalPaginas then %> ...<%=TotalPaginas %> <% end if %> <% end if PagSiguiente = pag + 1 if PagSiguiente > TotalPaginas then PagSiguiente = 1 rs.AbsolutePage = PagSiguiente ArtSiguiente = rs("codart") %> Siguiente> <% rs.AbsolutePage = pag 'Se restaura pag end if end sub %>
|
|
<%
on error resume next
strCODART=request.querystring("s_CODART")
cod=request.querystring("cod")
if cod = "" then cod = 1
sql = "select idfam, idmarca from tbl_art where codart = '" & strCODART & "'"
set rs=conn.Execute(sql)
idfamart = rs("idfam")
idmarcart = rs("idmarca")
rs.close
if cod = 2 then 'Artículos
strWhere = "tbl_Marcas.idmarca = " & idmarcart & " ORDER BY FAMILIA, codart ASC"
else 'Marcas
strWhere = "tbl_Familias.idfam = " & idfamart & " ORDER BY NOMARCA, codart ASC"
end if
strSQL="SELECT idart, codart, descrip, tbl_Marcas.idmarca, tbl_Familias.idfam, pvd, pvp, tbl_art.nomimg, caracter, linkart, FAMILIA, NOMARCA FROM tbl_art INNER JOIN tbl_Familias ON tbl_art.idfam = tbl_Familias.IDFAM INNER JOIN tbl_Marcas ON tbl_art.idmarca = tbl_Marcas.idmarca WHERE " & strWhere
ArticulosPagina = 1
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3 'adUserClient
rs.CursorType = 3 'adOpenStatic
rs.LockType = 4 'adLockBatchOptimistic
rs.Open strSQL, conn
if rs.eof then response.redirect("index.asp")
'Situamos el puntero en el primer registro para buscar desde ahi
rs.MoveFirst
rs.Find "codart = '" & strCODART & "'"
'Asignamos el numero de la foto dentro del recordset
NumArt = rs.AbsolutePosition
'Calculamos la pagina a la que pertenece
NumPagina = int((NumArt - 1) / ArticulosPagina) + 1
rs.PageSize = 1
pag = NumArt
TotalPaginas = rs.Pagecount
PaginaTope = pag + 9
if PaginaTope > TotalPaginas then PaginaTope = TotalPaginas
'Siguiente
PaginaActual = pag
If rs.AbsolutePage < rs.PageCount Then
pag = pag + 1
strAlts = "Siguiente"
Else
pag = rs.PageCount
strAlts = "Ultima"
end if
rs.AbsolutePage = pag
pag = PaginaActual
'Anterior
If pag > 1 Then
pag = pag - 1
strAlta = "Anterior"
Else
pag = 1
strAlta = "Primera"
End If
rs.AbsolutePage = pag
pag = PaginaActual
rs.AbsolutePage = pag
TotalPaginas = rs.PageCount
codart = rs("codart")
Session("PaginaOrigen") = "tb_artsel.asp?s_CODART=" & codart & "&cod=" & cod
if NOT rs.EOF THEN
IDARTICULO = rs("idart")
%>
Gextcomputer, S.L. - <%=rs("FAMILIA")%><% if Session("UID") <>"" then %> Cliente: <%=ucase(Session("NOMBREUSER"))%> <% end if %> <% tiranArt rs, pag, "tb_artsel.asp", TotalPaginas, cod %> Artículo <%=pag & " de " & rs.PageCount%> artículos <%=FormatDateTime(DateAdd("h", +Application("HoraMadrid"), Now), vbLongDate)%>
<% tiranArt rs, pag, "tb_artsel.asp", TotalPaginas, cod %> <% if session("TIPOUSER") = 9 then %> <% end if %>
|
Distribuidores de Material Informático Gextcomputer, S.L. Unipersonal c/Magnolia, 7 28522 Rivas Urbanizaciones (Madrid) Spain Tfno: 91 499 03 02 - Fax: 91 499 03 29
Copyright © 2003-<%=year(now)%> manbos.com |