<%If Request.QueryString("mc") <> "" Then%>
Ver Todas las Marcas
<%
On Error Resume Next
cas = "SELECT * FROM Marca WHERE id=" & Request.QueryString("mc")
Set acceso = Server.CreateObject("ADODB.RecordSet")
Set acceso = conexion.Execute(cas)
%>
<%Do While Not acceso.EOF%>
<%
acceso.MoveNext
Loop
%>
<%acceso.Close
set acceso = nothing%>
|
<%
cat_sql = "SELECT * FROM Categorias"
Set cat = Server.CreateObject("ADODB.RecordSet")
Set cat = conexion.Execute(cat_sql)
%>
<%Do while not cat.EOF%>
<%
buscaItem = "SELECT Referencias.referencia FROM Referencias INNER JOIN (Categorias INNER JOIN Subcategorias ON Categorias.id_categoria = Subcategorias.id_categoria) ON Referencias.subcategoria = Subcategorias.id_subcategoria WHERE (((Categorias.id_categoria)=" & cat.Fields("id_categoria") & ") AND ((Referencias.id_marca)=" & Request.QueryString("mc") & "))"
'response.write buscaItem
Set BI = Server.CreateObject("ADODB.RecordSet")
'Set BI = conexion.Execute(buscaItem)
BI.Open buscaItem,conexion,3,3
j=BI.RecordCount
%>
<%
BI.Close
Set BI = nothing
%>
<%If j>0 Then%>
| <%=cat.Fields("categoria")%> |
<%
subcat_sql = "SELECT * FROM Subcategorias WHERE id_categoria=" & cat.Fields("id_categoria")
Set subcat = Server.CreateObject("ADODB.RecordSet")
Set subcat = conexion.Execute(subcat_sql)
%>
<%Do While Not subcat.EOF%>
<%
buscaItem = "SELECT * FROM Referencias WHERE subcategoria=" & subcat.Fields("id_subcategoria") & " AND id_marca=" & Request.QueryString("mc")
'response.write buscaItem
Set BI = Server.CreateObject("ADODB.RecordSet")
'Set BI = conexion.Execute(buscaItem)
BI.Open buscaItem,conexion,3,3
i=BI.RecordCount
%>
<%
BI.Close
Set BI = nothing
%>
<%If i>0 Then%>
|
&filtro=2&marca=<%=Request.QueryString("mc")%>&mc=<%=Request.QueryString("mc")%>"><%=subcat.Fields("sub_categoria")%>(<%=i%>) |
<%End If%>
<%
subcat.MoveNext
Loop
%>
<%End If%>
<%
subcat.Close
set subcat=nothing
%>
<%cat.MoveNext
Loop%>
<%cat.Close
set cat = nothing%> |
<%End If%>
|
<%If Request.QueryString("mc") = "" Then%>
<%
On Error Resume Next
cas = "SELECT * FROM Marca WHERE idcatal=2 AND logo<>'' ORDER BY id"
Set acceso = Server.CreateObject("ADODB.RecordSet")
Set acceso = conexion.Execute(cas)
%>
<%Do While Not acceso.EOF%>
"> " border=0> |
<%
acceso.MoveNext
Loop
%>
<%acceso.Close
set acceso = nothing%>
<%End If%>
|
| <%If Request.QueryString("mc") <> "" Then%>
<%
On Error Resume Next
cas = "SELECT * FROM Marca WHERE id=" & Request.QueryString("mc")
Set acceso = Server.CreateObject("ADODB.RecordSet")
Set acceso = conexion.Execute(cas)
%>
<%Do While Not acceso.EOF%>
" border=0>
<%
acceso.MoveNext
Loop
%>
<%acceso.Close
set acceso = nothing%>
<%End If%> |
<%If Request.QueryString("subcat") <> "" Then%>
<%
On Error Resume Next
cas = "SELECT * FROM Subcategorias WHERE id_subcategoria=" & Request.QueryString("subcat")
Set subacceso = Server.CreateObject("ADODB.RecordSet")
Set subacceso = conexion.Execute(cas)
%>
<%Do While Not subacceso.EOF%>
 " border=0>
<%
subacceso.MoveNext
Loop
%>
<%subacceso.Close
set subacceso = nothing%>
<%End If%> |
<%'aqui empieza el correo%>
<%If Request.QueryString("mail")=1 Then%>
<%If Request.Form("id") = 1 Then%>
<%
mensaje = "Envia el mensaje: " & Request.Form("nombre") & VBNEWLINE
mensaje = mensaje & "Su teléfono es: " & Request.Form("tel") & VBNEWLINE
mensaje = mensaje & "Su e-mail: " & Request.Form("email") & VBNEWLINE & VBNEWLINE
mensaje = mensaje & "Departamento de contacto: " & Request.Form("departamento") & VBNEWLINE & VBNEWLINE
mensaje = mensaje & "El comentario: " & Request.Form("comentario")
'Response.Write mensaje
mes = ""
IsSuccess = false
sTo = "julian@adelectronics.com.co"
sFrom = Trim(Request.Form("email"))
sSubject = "Ad Electronics - Mensaje via web - Desde Servicio al Usuario"
sMailServer = "127.0.0.1"
sBody = mensaje
Set objMail = Server.CreateObject("CDO.Message")
Set objConf = Server.CreateObject("CDO.Configuration")
Set objFields = objConf.Fields
With objFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
With objMail
Set .Configuration = objConf
.From = sFrom
.To = sTo
.Subject = sSubject
.TextBody = sBody
End With
Err.Clear
on error resume next
objMail.Send
if len(Err.Description) = 0 then
mes = "Mensaje enviado satisfactoriamente"
IsSuccess = true
else
mes = "Errores se generaron y no se envio el mensaje"
end if
Set objFields = Nothing
Set objConf = Nothing
Set objMail = Nothing
%>
<%If IsSuccess Then%>
El mensaje se ha enviado satisfactoriamente.
Estaremos en contacto con usted proximamente.
<%Else%>
lo sentimos, pero su información no se ha podido enviar.
Intentelo de nuevo dando click aqui
<%End If%>
<%Else%>
<%End If%>
<%End If%>
<%'aqui termina el correo%>
<%If Request.QueryString("tg")=1 Then%>
AD ELECTRONICS S.A, garantiza para sus productos el servicio de reparación gratuita por cualquier defecto de fábrica, incluyendo la mano de obra necesaria para diagnostico y reparación dentro del periodo de garantía específico el cual inicia a partir de la fecha de la compra del artículo (Ver tabla PERIODOS DE GARANTIA, impresa en la parte posterior, para cada tipo de producto).
CONDICIONES DE LA GARANTIA
- para hacer efectiva la garantía, el consumidor presentará este certificado de Garantía debidamente diligenciado, junto con la factura de venta del producto, la que debe cumplir con todos los requisitos exigidos por las autoridades tributarias de Colombia. En caso de pérdida de la factura, para efectos de demostración de la legalidad del producto, puede presentarse copia de la declaración de importación, que se anexa dentro de la bolsa plástica adherida a la caja del producto.
- El servicio de garantía solo se prestará en los Centros de Servicio Autorizados AD, señalados en la parte posterior de este certificado.
- El presente certificado de garantía es válido únicamente en el territorio de la Republica de Colombia, para los productos importados directamente por AD Electronics.
- El cliente será responsable por los daños producidos en el transporte de sus productos.
CASOS EN LOS QUE LA GARANTIA NO ES VALIDA
- Cuando el equipo presenta daños por maltrato, accidente, catástrofes naturales o como consecuencia de éstos, uso distinto al indicado en las instrucciones de manejo, uso en condiciones ambientales deficientes, deficiente instalación y/o programación del producto.
- Daños causados por las fluctuaciones de voltaje de la energía eléctrica o descargas eléctricas atmosféricas.
- En el evento en que el aparato haya sido abierto por cualquier persona o Centro de Servicio Autorizado por AD o los daños producidos por éste evento, y en general, los daños ocasionados por la adaptación e instalación de piezas o accesorios no genuinos ni autorizados por AD Electronics.
- Daños ocasionados por falta de cuidado en el producto o factores ajenos a AD Electronics, tales como rayaduras, decoloración, oxidación, exceso de polvo, golpes o ruptura del mueble o gabinete exterior del producto.
- Cuando el producto no tiene número de serie de la fabrica o ha sido alterado.
- Si al electrodoméstico se le somete a sobresaturación de uso, por ejemplo: Alquiler de Lavadoras, etc.
LA GARANTÍA NO CUBRE
- Baterías, Control Remoto, Cintas, partes plásticas, gabinetes, antenas, agujas, pilas y demás accesorios consumibles, no están cubiertos por la garantía.
- El desgaste por uso normal de las partes y piezas mecánicas, metálicas, eléctricas, plásticas y de caucho.
- Accesorios faltantes una vez recibido el producto.
GARANTIAS ESPECIALES
AD Electronics; ofrece una Garantía Especial para algunas partes de algunos productos de acuerdo a la consignación en la columna GARANTIA ESPECIAL de la tabla de Períodos de Garantía.
Las condiciones de validez de esta Garantía Especial son las siguientes:
- El período de Garantía Especial inicia a partir de la fecha de comprado el artículo. Durante éste período AD Electronics reemplazará sin costo para el cliente la parte cubierta por esta Garantía.
- Esta Garantía Especial será válida únicamente a través de los Centros de Servicio Autorizado por AD Electronics. Posterior al periodo de Garantía Normal el valor de la mano de obra será acordado entre el cliente y el Centro de Servicio y será asumido por el primer.
GARANTIAS EXTENDIDAS
Señor Cliente, en el caso de ud haber adquirido una garantía extendida con su producto, AD Electronics le ofrece una extensión en tiempo de la Garantía normal de nuestros productos dependiendo de la zona y/o condiciones comerciales de la misma. Las condiciones de validez de esta garantía son las siguientes:
- El periodo de Garantía Extendida será válida a partir de expirado según fecha de Factura al tiempo de la Garantía Normal y presentando la póliza de garantía extendida debidamente diligenciada.
- Solo será validada en la Red de CSA por AD Electronics
- AD Electronics S.A. garantiza el servicio de Reparación Gratuita, incluyendo mano de obra y repuestos por cualquier defecto de fábrica, exceptuando el desgaste normal de los productos.
Señor Cliente, por favor tome atenta nota de lo siguiente:
- EN EL MOMENTO DE LA COMPRA, EXIJA QUE SU DISTRIBUIDOR LE ENTREGUE LA FACTURA LEGAL QUE OFICIALICE LA TRANSACCIÓN.
- VERIFIQUE QUE DENTRO DE LA CAJA SE ENCUENTREN TODOS LOS ACCESORIOS DE SU PRODUCTO, LUEGO DE QUE SE RETIRE EL ARTICULO DE LAS INSTALACIONES DEL DISTRIBUIDOR, NO SE ACEPTARAN RECLAMOS POR FALTA DE ACCESORIOS.
- ANTES DE OPERAR EL APARATO, LEA CUIDADOSAMENTE EL MANUAL DE USUARIO Y EL CERTIFICADO DE GARANTIA.
<%End If%>
<%If Request.QueryString("pid")<>"" Then%>
<%If Not subacceso.EOF Then%>
<%
subruta = Split(subacceso.Fields("imagen"),"\")
for i=1 to 3
ruta = ruta & "/" & subruta(i)
Next
%>
<%Else%>
<%End If%>
<%
subacceso.Close
Set subacceso = nothing
%> |
<%=Request.QueryString("ref")%> |
<%
On Error Resume Next
mancat = "SELECT * FROM Caracteristicas WHERE id_referencia=" & Request.QueryString("pid")
Set acceso = Server.CreateObject("ADODB.RecordSet")
Set acceso = conexion.Execute(mancat)
%>
<%Do While Not acceso.EOF%>
- <%=acceso.Fields("caracteristicas")%>
<%
acceso.MoveNext
Loop
%>
<%
acceso.Close
Set acceso = Nothing
%>
|
<%
On Error Resume Next
mancat = "SELECT * FROM Manuales WHERE id_referencia=" & Request.QueryString("pid")
Set acceso = Server.CreateObject("ADODB.RecordSet")
Set acceso = conexion.Execute(mancat)
%>
<%If Not acceso.EOF Then%>
| Tipo de Manual |
Manual |
Observaciones |
<%Do While Not acceso.EOF%>
<%If acceso.Fields("tipo_manual")=1 OR acceso.Fields("tipo_manual")=6 OR acceso.Fields("tipo_manual")=7 Then%>
| <%
On Error Resume Next
submanual = "SELECT * FROM `Tipo Manual` WHERE id_manual=" & acceso.Fields("tipo_manual")
Set subacceso = Server.CreateObject("ADODB.RecordSet")
Set subacceso = conexion.Execute(submanual)
%>
<%Do While Not subacceso.EOF%>
<%=subacceso.Fields("tipo_manual")%>
<%
subacceso.MoveNext
Loop
%>
<%
subacceso.Close
Set subacceso = nothing
%> |
<%
div1 = Split(acceso.Fields("manual"),"#")
manual = Split(div1(0),"\")
For i=4 to 7
rutam = rutam & "/" & manual(i)
Next
%>
<%=manual(7)%> |
<%=acceso.Fields("observaciones")%> |
<%End If%>
<%
rutam = ""
acceso.MoveNext
Loop
%>
<%End If%>
<%
acceso.Close
Set acceso = nothing
%>
<%End If%>
<%If Request.QueryString("subcat")<>"" AND Request.QueryString("filtro")<>"" Then%>
<%
prod_sql = "SELECT * FROM Referencias WHERE subcategoria=" & Request.QueryString("subcat") & " AND id_marca=" & Request.QueryString("marca")
Set acceso = Server.CreateObject("ADODB.RecordSet")
Set acceso = conexion.Execute(prod_sql)
%>
<%Do while not acceso.EOF%>
| <%
On Error Resume Next
img = "SELECT * FROM Imagenes WHERE id_referencia=" & acceso.Fields("id_referencia")
Set subacceso = Server.CreateObject("ADODB.RecordSet")
Set subacceso = conexion.Execute(img)
ruta = ""
%>
<%
subacceso.Close
Set subacceso = nothing
%> |
|
<%acceso.MoveNext%>
<%If Not acceso.EOF Then%>
| <%
On Error Resume Next
img = "SELECT * FROM Imagenes WHERE id_referencia=" & acceso.Fields("id_referencia")
Set subacceso = Server.CreateObject("ADODB.RecordSet")
Set subacceso = conexion.Execute(img)
ruta = ""
%>
<%
subacceso.Close
Set subacceso = nothing
%> |
<%End If%> |
<%
If Not acceso.EOF Then
acceso.MoveNext
End If
Loop
%>
<%acceso.Close
set acceso = nothing%>
<%End If%>
<%If Request.QueryString("csa")=1 Then%>
<%End If%>
<%If Request.QueryString("ord")=1 Then%>
<%End If%>
<%If Request.QueryString("down")<>"" Then%>
<%
On Error Resume Next
cas = "SELECT * FROM manuales"
Set acceso = Server.CreateObject("ADODB.RecordSet")
Set acceso = conexion.Execute(cas)
%>
| Referencia |
Descripción |
Manual |
<%Do While Not acceso.EOF%>
| <%=acceso.Fields("Referencia")%> |
<%=acceso.Fields("descripcion")%> |
"><%=acceso.Fields("archivo")%> |
<%
acceso.MoveNext
Loop
%>
<%
acceso.Close
Set acceso = nothing
%>
<%End If%>
<%If Request.QueryString("tips")<>"" Then%>
<%
On Error Resume Next
cas = "SELECT * FROM tips"
Set acceso = Server.CreateObject("ADODB.RecordSet")
Set acceso = conexion.Execute(cas)
%>
<%Do While Not acceso.EOF%>
| <%=acceso.Fields("titulo")%> |
Referencia :<%=acceso.Fields("referencia")%>
<%=acceso.Fields("consejo")%> |
<%
acceso.MoveNext
Loop
%>
<%
acceso.Close
Set acceso = nothing
%>
<%End If%> <%If Request.QueryString("filtro")="" AND Request.QueryString("ref")="" Then%>
<%End If%>
|
