%
set objProducto = new TBProducto
sControl = objProducto.Opentabla
if err.number = 0 then
'Response.Write("Abrio Tabla")
else
'response.Write("Apertura no Logrado")
end if
'set objNoticias = Nothing
%>
|
| |
Productos |
| Haga click en su producto, nuestras prestigiadas marcas GLAMOROUS extensiones de cabellos y LOVELY extensiones de cabellos |
| |
| Extensiones de Cabello que son extensiones de pelo 100% natural |
|
<%Objproducto.rs.filter= "Tipo=1"%>
<% if objProducto.rs.recordcount >0 then
objProducto.rs.movefirst%>
|
<%
cc=0
While Not objProducto.Rs.EOF
objProducto.AsignaCampos
TxtId=objProducto.IdProducto
TxtDescripcion=trim(objProducto.Titulo)
TxtImagen=Rutaimg&objProducto.Imagen
cc=cc+1
%>
|
<%
If cc=2 then ' aca le dan la cantidad de columnas que kieres tener
Response.Write(" | ")
cc=0
End If
%>
<%
objProducto.Rs.MoveNext
Wend
%>
<%else%>
No Existen Productos de Tipo Extensiones de Pelo |
<%end if%>
| |
| Sistemas de Fusión |
|
<%Objproducto.rs.filter= "Tipo=2"%>
<% if objProducto.rs.recordcount >0 then
objProducto.rs.movefirst%>
|
<%
cc=0
While Not objProducto.Rs.EOF
objProducto.AsignaCampos
TxtId=objProducto.IdProducto
TxtDescripcion=trim(objProducto.Titulo)
TxtImagen=Rutaimg&objProducto.Imagen
cc=cc+1
%>
|
<%
If cc=2 then ' aca le dan la cantidad de columnas que kieres tener
Response.Write(" | ")
cc=0
End If
%>
<%
objProducto.Rs.MoveNext
Wend
%>
<%else%>
No Existen Productos de Tipo Sistemas de Fusión |
<%end if%>
| |
|
|
 |
|
|