<% @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 %>
www.gextcomputer.com

 

Teléfono centralita: 91 499 03 02    Fax:  91 499 03 29

Gextcomputer, S.L., Distribuidores de material informático

 Inicio | Cesta | Contactar | Condiciones | RMA | Pedidos | Mis datos | Desconectar


Principal


Lista de Productos

<% strSQL = "SELECT * FROM tbl_Familias order by FAMILIA" set rs=conn.Execute(strSQL) do while not rs.EOF %>

="" style="text-decoration: none" target="_self" onmouseover="this.style.textDecoration='underline'" onmouseout="this.style.textDecoration='none'" href='tb_articulos.asp?IDFAMILIA=<%=rs("IDFAM")%>'> <%=rs("FAMILIA")%> <% rs.MoveNext loop rs.Close %>


Nuestras Marcas

Condiciones

RMA

Bolsa de trabajo


Registro

Alta de clientes


Precios por familias

Precios por marcas

Lista de precios


 
<% 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")%> - <%=rs("NOMARCA")%> - <%=rs("DESCRIP")%>

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)%>

Gextcomputer, S.L. - <%=rs("DESCRIP")%> <% strPrecio = "" if Session("UID") <> "" AND Session("TIPOUSER") > 0 then strPrecio = "PVD: " & FormatNumber(rs("PVD"),2,-1,-1) & " € " strPrecioPtas = FormatNumber(rs("PVD") * 166.386, 0,-1,-1) & " Ptas." strIVA = "IVA no incluido" else strPrecio = "PVP: " & FormatNumber(rs("PVP") + (rs("PVP") * ValorIVA),2,-1,-1) & " € " strPrecioPtas = FormatNumber((rs("PVP") * 166.386) + (rs("PVP") * 166.386) * ValorIVA, 0,-1,-1) & " Ptas." strIVA = "IVA incluido" end if %> <% if cod = 1 then I1 = "tb_articulos.asp?IDFAMILIA=" & rs("IDFAM") I2 = "tb_articulosm.asp?IDMARCA=" & rs("IDMARCA") T1 = ucase(rs("FAMILIA")) T2 = ucase(rs("NOMARCA")) else I2 = "tb_articulos.asp?IDFAMILIA=" & rs("IDFAM") I1 = "tb_articulosm.asp?IDMARCA=" & rs("IDMARCA") T2 = ucase(rs("FAMILIA")) T1 = ucase(rs("NOMARCA")) end if %> <% if isnull(rs("NOMIMG")) or rs("NOMIMG") = "" then NombreImagen = "GEXT50.JPG" else NombreImagen = rs("NOMIMG") end if %>

<%=T1%>

<%=T2%>

Artículo: <%=rs("CODART")%>

<%=rs("DESCRIP")%>

<%=strPrecio%> (<%=strPrecioPtas%>) <%=strIVA%>

<%=strPrecio%>

<%=strIVA%>

<% strCaracter = rs("CARACTER") if strCaracter <> "" then strDescrip = replace(strCaracter, vbcrlf, "
") else strDescrip = "- Sin descripción -" end if %>

<%=strDescrip%>

<% if rs("LINKART") <> "" then %>

Pinche aquí para más información del producto. <% end if %>

<% end if %>

 

<% tiranArt rs, pag, "tb_artsel.asp", TotalPaginas, cod %>

 

<% if session("TIPOUSER") = 9 then %>

Editar artículo

<% end if %>

Inicio | Cesta | Registrarse | Desconectar | Precios por marcas | Precios por familias | Lista de precios

Dónde estamos | Quiénes somos | Política de privacidad

 

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

<% rs.close set rs=nothing set conn=nothing %>