<%@Language=VBScript%> <% Response.Buffer = True dim MyConn ' Database connection object dim RS ' Recordset object dim Fld ' Field object dim Connect_String ' ADO Connection String dim SQL ' SQL Statement dim SQL_Ext ' SQL Extension Statement dim SQLMaster ' SQL Statement dim SQL_ExtMaster ' SQL Extension Statement dim CellValue ' data value dim Err_String dim QuoteChar dim QuoteDate dim Fields dim ItemValue dim I dim CADWHERE dim CADFABRICANTE dim FILTRO dim CADGRUPO dim LLEVAACCESORIOS dim VECTOR dim CAMBIAGRUPO dim NUEVOGRUPO dim xx dim inicio dim fin dim contador dim pagnum dim valorpag dim totalpag pagnum = int(request("gtp")) 'pagnum = parseint("pagnum") xx=request("direccion") CellValue = Request("G") '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ rutina de protección ######################################################################## VECTOR = array("""","@","-","'","DROP","UNION","DELETE","UPDATE","CREATE","TRUNCATE","RENAME","ALTER","&","/","\",">","<","(",")") For I = 0 to ubound(VECTOR) CellValue = REPLACE(CellValue,VECTOR(I),"") xx = REPLACE(xx,VECTOR(I),"") 'Response.Write VECTOR(i) 'Response.Write "
" next If pagnum > 0 Then session("pagina") = pagnum Else if xx = "Atras" then session("pagina") = session("pagina")-1 if session("pagina")< 1 then session("pagina") = 1 'evitamos el error por reload end if else if xx="Adelante" then session("pagina") = session("pagina")+1 else session("pagina") = 1 'primera pasada end if end if End If %> <% Err_String = "" set MyConn=Server.CreateObject("ADODB.Connection") set RS=Server.CreateObject("ADODB.Recordset") MyConn.Open Connect_String if err <> 0 then Err_String = Err_String& "Error:Mientras se abria el juego de registros
" Err_String = Err_String& "DescripcíonImposible acceder a la base de datos
" err = 0 end if CADWHERE = "" CADWHERE = CADWHERE & " Where " & vbCrLf If CellValue = "" Then CADWHERE = CADWHERE & " (TABLAGRUESOS.DISPONIBLE = 'VERDADERO') and (TABLAGRUESOS.PVPOFERTAM2 > 0) " & vbCrLf Else CADWHERE = CADWHERE & " (TABLAMATERIALES.GRUPO = '" & CellValue & "') and " & vbCrLf CADWHERE = CADWHERE & " (TABLAGRUESOS.DISPONIBLE = 'VERDADERO') and (TABLAGRUESOS.PVPOFERTAM2 > 0) " & vbCrLf End If SQL = "" Redim Fields(17) Fields(0) = "TABLAGRUESOS.`IDGRUESO`" Fields(1) = "TABLAMATERIALES.`NOMBRE`" Fields(2) = "TABLAGRUESOS.`PVPM2`" Fields(3) = "TABLAGRUESOS.`MINIFOTO`" Fields(4) = "TABLAGRUESOS.`URL`" Fields(5) = "TABLAGRUESOS.`DISPONIBLE`" Fields(6) = "TABLAMATERIALES.`GRUPO`" Fields(7) = "TABLAGRUESOS.`FORMATO`" Fields(8) = "TABLAMATERIALES.`DENOMINACIONES`" Fields(9) = "TABLAMATERIALES.`LOGOFABRICANTE`" Fields(10) = "TABLAMATERIALES.`SUBGRUPO`" Fields(11) = "TABLAMATERIALES.`TIPO`" Fields(12) = "TABLAGRUESOS.`FORMATO`" Fields(13) = "TABLAGRUESOS.`TERMINACION`" Fields(14) = "TABLAGRUESOS.`PVPOFERTAM2`" Fields(15) = "TABLAGRUESOS.`IDMATERIAL`" Fields(16) = "TABLAGRUESOS.`UDVENTA`" SQL = SQL & " Select" & vbCrLf SQL = SQL & " TABLAGRUESOS.`IDGRUESO`," & vbCrLf SQL = SQL & " TABLAMATERIALES.`NOMBRE`," & vbCrLf SQL = SQL & " TABLAGRUESOS.`PVPM2`," & vbCrLf SQL = SQL & " TABLAGRUESOS.`MINIFOTO`," & vbCrLf SQL = SQL & " TABLAGRUESOS.`URL`," & vbCrLf SQL = SQL & " TABLAGRUESOS.`DISPONIBLE`," & vbCrLf SQL = SQL & " TABLAMATERIALES.`GRUPO`," & vbCrLf SQL = SQL & " TABLAGRUESOS.`FORMATO`," & vbCrLf SQL = SQL & " TABLAMATERIALES.`DENOMINACIONES`," & vbCrLf SQL = SQL & " TABLAMATERIALES.`LOGOFABRICANTE`," & vbCrLf SQL = SQL & " TABLAMATERIALES.`SUBGRUPO`," & vbCrLf SQL = SQL & " TABLAMATERIALES.`TIPO`," & vbCrLf SQL = SQL & " TABLAGRUESOS.`FORMATO`," & vbCrLf SQL = SQL & " TABLAGRUESOS.`TERMINACION`," & vbCrLf SQL = SQL & " TABLAGRUESOS.`PVPOFERTAM2`," & vbCrLf SQL = SQL & " TABLAGRUESOS.`IDMATERIAL`," & vbCrLf SQL = SQL & " TABLAGRUESOS.`UDVENTA`" & vbCrLf SQL = SQL & " From" & vbCrLf SQL = SQL & " TABLAGRUESOS INNER JOIN TABLAMATERIALES ON TABLAMATERIALES.IDMATERIAL = TABLAGRUESOS.IDMATERIAL " & vbCrLf SQL = SQL & CADWHERE & vbCrLf SQL = SQL & " ORDER BY " & vbCrLf SQL = SQL & " GRUPO, SUBGRUPO, SERIE, NOMBRE, PVPM2 " & vbCrLf rs.CursorLocation = adUseClient RS.Open SQL, MyConn, 3, 1, 1 If Rs.EOF then Response.redirect("http://www.piedra.com/piedras/piedranoencontrada.asp") End If %> OFERTAS MARMOLES GRANITOS PIZARRAS CALIZAS PIEDRA PRODUCTOS PARA PIEDRA
PIEDRA.com

   

 

 
    OFERTAS PIEDRA.COM.  
  <% rs.pagesize = 10 If int(session("pagina")) > int(rs.pagecount) then session("pagina") = rs.pagecount 'evitamos el error de reload end if 'REsponse.Write "session(pagina) " & session("pagina") & " session(pagina)
" rs.absolutepage = session("pagina") inicio = 1+(session("pagina")-1) * rs.pagesize fin = inicio + ( rs.pagesize -1 ) if fin > rs.recordcount then fin = rs.recordcount end if ' Response.Write "Pagesize " & rs.pagesize & "
" ' Response.Write "AbsolutePage " & rs.AbsolutePage & "
Page counbt " & rs.pagecount ' Response.Write "
Recordcount " & Rs.Recordcount ' Response.Write "
PAGNUM " & Pagnum & "
xx " & xx NUEVOGRUPO = Rs("SUBGRUPO") CAMBIAGRUPO = TRUE %>

Presentamos nuestra oferta de productos de cuidado y mantenimiento para piedras naturales, y las ofertas de empresas asociadas a PIEDRA.com.

  • Registros <%=inicio%> al <%=fin%> de <%=rs.recordcount%>
  •          
    • <%if session("pagina")<> 1 then %>
  • <%="«"%>
  •  
    • <%end if%> <% For I = 1 to Rs.Pagecount If I = int(Rs.Absolutepage) Then Response.Write "
  • " Response.Write I Else Response.Write "
  • " Response.Write "" Response.Write I & " " End If Response.Write "
    • " Next %> <%if int(session("pagina")) < int(rs.pagecount) then%>
  •  
  • <%="»"%>
    • <%end if%>
  •      
<% Response.Write "" contador=0 Do While contador < rs.pagesize and NOT rs.EOF If CAMBIAGRUPO = TRUE Then Response.Write "" CAMBIAGRUPO = FALSE Response.Write "" End If End If End If 'del CAMBIAGRUPO = FAlse Loop Response.Write "
" Response.Write "    OFERTAS " & Rs("SUBGRUPO") & "
" ELSE Response.Write "
" If Rs("URL") = "-1" Then CellValue = "http://www.piedra.com/piedras/material.asp?Id=" & Rs("IDGRUESO") Else CellValue = Rs("URL") & """target=""_blank""" End If Response.Write "" Response.Write "" Response.Write "
" Response.Write "
" Response.Write Rs("UDVENTA") & " " Response.Write Rs("FORMATO") & "
" Response.Write Rs("TIPO") & " " Response.Write Rs("NOMBRE") & "
" Response.Write Rs(13) & "
" Response.Write "" Response.Write "
" Response.Write Rs("SUBGRUPO") & "
" Response.Write "
" If Rs(14) <= 0 Then CellValue = "" & QSFormatNumber(Rs("PVPM2"),2,-1,0,-1) & "" Response.Write CellValue & " € + IVA.

" Else Response.Write "Antes: " & Rs(14) & " € + IVA.
AHORA " CellValue = "" & QSFormatNumber(Rs("PVPM2"),2,-1,0,-1) & "" Response.Write CellValue & " € + IVA.

" End If Response.Write "
" If Rs("URL") = "-1" Then CellValue = "http://www.piedra.com/piedras/material.asp?Id=" & Rs("IDGRUESO") Else CellValue = Rs("URL") & """target=""_blank""" End If %>
<% NUEVOGRUPO = Rs("SUBGRUPO") Rs.MoveNext contador=contador+1 If not RS.EOF Then If Rs("SUBGRUPO") = NUEVOGRUPO Then CAMBIAGRUPO = FALSE Response.Write "" Else CAMBIAGRUPO = TRUE NUEVOGRUPO = Rs("SUBGRUPO") Response.Write "


" Rs.MovePrevious %>
  • Registros <%=inicio%> al <%=fin%> de <%=rs.recordcount%>
  •          
    • <%if session("pagina")<> 1 then %>
  • <%="«"%>
  •  
    • <%end if%> <% For I = 1 to Rs.Pagecount If I = int(Rs.Absolutepage) Then Response.Write "
  • " Response.Write I Else Response.Write "
  • " Response.Write "" Response.Write I & " " End If Response.Write "
    • " Next %> <%if int(session("pagina")) < int(rs.pagecount) then%>
  •  
  • <%="»"%>
    • <%end if%>
  •      
  • Página <%=session("pagina")%> de <%=rs.pagecount%>
  •      
<%RS.Close set RS = Nothing MyConn.Close set MyConn = Nothing Response.Write "
" Response.Write "
" Response.Write "" Response.Write "

" Response.Write "" %>








Tienda Online de productos para piedra natural www.dermopiedra.com






PIEDRA.com
Camino Ventas del Escorial, 16.
28400 C Villalba Madrid.ESPAÑA.

Tel:  91 827 80 36
       667 62 88 74
Correo Electrónico: info@piedra.com