MICROSOFT Surface Pen - lápiz activo - Bluetooth 4.0 - burdeos - EYU-00030
23
AÑOS
CONTIGO
2003 - 2026
0
Portada > PDA/GPS/Móvil > Accesorios para PDA - Agendas Electrónicas > MICROSOFT Surface Pen - lápiz activo - Bluetooth 4.0 - burdeos EYU-00030
sGaleriaAlt = Server.HTMLEncode(directorio_producto & " " & rs_partnumber)
sGaleriaUrlPrincipal = Trim("" & url_imagen)
sGaleriaMiniaturas = ""
iGaleriaTotal = 0
Set rsGaleriaProducto = Server.CreateObject("ADODB.Recordset")
rsGaleriaProducto.ActiveConnection = MM_dbai_STRING
sSQL = "SELECT " & _
"\tp.ImageID, " & _
"\tp.ContentGuid, " & _
"\tp.URL, " & _
"\tCOALESCE(p.ImageWeight, 0) AS ImageWeight, " & _
"\tCOALESCE(p.ImageWidth, 0) AS ImageWidth " & _
"FROM " & _
"\tproductos_fotos p " & _
"\tLEFT JOIN productos_fotos p2 " & _
"\t\tON p.Codigo = p2.Codigo " & _
"\t\tAND p.ImageID = p2.ImageID " & _
"\t\tAND COALESCE(p2.Activa, 1) = 1 " & _
"\t\tAND (" & _
"\t\t\tCOALESCE(p2.ImageWeight, 0) > COALESCE(p.ImageWeight, 0) " & _
"\t\t\tOR (COALESCE(p2.ImageWeight, 0) = COALESCE(p.ImageWeight, 0) AND COALESCE(p2.ImageWidth, 0) > COALESCE(p.ImageWidth, 0)) " & _
"\t\t\tOR (COALESCE(p2.ImageWeight, 0) = COALESCE(p.ImageWeight, 0) AND COALESCE(p2.ImageWidth, 0) = COALESCE(p.ImageWidth, 0) AND p2.ContentGuid > p.ContentGuid)" & _
"\t\t) " & _
"WHERE " & _
"\tp.Codigo = " & rs_codigo & " " & _
"\tAND COALESCE(p.Activa, 1) = 1 " & _
"\tAND p2.ImageID IS NULL " & _
"ORDER BY " & _
"\tCOALESCE(p.ImageWeight, 0) DESC, " & _
"\tCOALESCE(p.ImageWidth, 0) DESC, " & _
"\tp.ImageID"
rsGaleriaProducto.Source = sSQL
rsGaleriaProducto.CursorType = 0
rsGaleriaProducto.CursorLocation = 2
rsGaleriaProducto.LockType = 1
rsGaleriaProducto.Open()
If Not rsGaleriaProducto.Eof Then
While Not rsGaleriaProducto.Eof
sGaleriaUrlItem = Trim("" & rsGaleriaProducto("URL"))
If Len(sGaleriaUrlItem) > 0 Then
sGaleriaUrlItem = Replace(sGaleriaUrlItem, "http://", "https://")
iGaleriaTotal = iGaleriaTotal + 1
If iGaleriaTotal = 1 Then
sGaleriaUrlPrincipal = sGaleriaUrlItem
sGaleriaCssActiva = " Activa"
Else
sGaleriaCssActiva = ""
End If
sGaleriaMiniaturas = sGaleriaMiniaturas & _
""
End If
rsGaleriaProducto.MoveNext()
Wend
End If
rsGaleriaProducto.Close()
Set rsGaleriaProducto = Nothing
If iGaleriaTotal = 0 Then
iGaleriaTotal = 1
sGaleriaMiniaturas = ""
End If
%>
![]()
1/
Descatalogado
(desde el 1/5/2019)
- No contamos con stock ni se recibirá más material.
- Consulte los productos de similares características en stock.
- Puede consultar productos de la misma categoría.
- Contacte con nosotros si pudiésemos ayudarle.
- Garantía 2 años
- Código 5008631
- P/N EYU-00030
