<%@ Language=VBScript %> <% Option Explicit Dim diasemana,dia,mes,anno,mimes,misemana,estedia,lafecha Dim conexion,registros,sql,letra_var,total_var,idempresa,afiliada,iso Set conexion= Server.CreateObject ("ADODB.connection")%> <%conexion.CursorLocation = 1 conexion.Open Set registros = Server.CreateObject ("ADODB.RECORDSET") registros.CursorLocation = 2 registros.CursorType = 2 registros.LockType = 3 if request("id")<>"" then sql="select * from ciec_estadisticas_catalogo" registros.open sql,conexion,1 dim idempresa_var,fecha_var,hora_var,acto_var idempresa_var=request("id") fecha_var=date hora_var=time acto_var=1 registros.addnew registros("idempresa")=idempresa_var registros("fecha")=fecha_var registros("hora")=hora_var registros("acto")=acto_var registros.Update registros.close end if diasemana=weekday(now) dia=day(now) mes=month(now) anno=year(now) select case diasemana case 1 misemana="Domingo" case 2 misemana="Lunes" case 3 misemana="Martes" case 4 misemana="Miércoles" case 5 misemana="Jueves" case 6 misemana="Viernes" case 7 misemana="Sábado" end select select case mes case 1 mimes="enero" case 2 mimes="febrero" case 3 mimes="marzo" case 4 mimes="abril" case 5 mimes="mayo" case 6 mimes="junio" case 7 mimes="julio" case 8 mimes="agosto" case 9 mimes="septiembre" case 10 mimes="octubre" case 11 mimes="noviembre" case 12 mimes="diciembre" end select estedia = "Valencia, "+ misemana +" "+ Cstr(dia) +" de "+ mimes +" de "+ Cstr(anno) If request("texto")="" then If request("id")="" then response.redirect("listado.asp") end if end if %> Catalogo de Proveedores
   

inicio  |  requerimientos  |  mapa  |  política de privacidad  |  información

 

listado general    actualizar información   atrás atrás  

 

Catálogo de Proveedores

<% If request("texto")<>"" then If request("id")<>"" then letra_var=request("texto") sql="Select count(*) as total from ciec_vista_catalogo where cod_empresa = '"&request("id")&"' and activo<>0" registros.open sql,conexion,1 total_var=0 total_var=cint(registros("total")) registros.Close() sql="Select * from ciec_vista_catalogo where cod_empresa ='"&request("id")&"' and activo<>0 order by nom_produc" registros.open sql,conexion,1 Else letra_var=request("texto") sql="Select count(*) as total from ciec_vista_catalogo where (nom_produc LIKE '%"&trim(request("texto"))&"%' or descripcion_produc LIKE '%"&trim(request("texto"))&"%' or empresa LIKE '%"&trim(request("texto"))&"%' or contacto LIKE '%"&trim(request("texto"))&"%' or telefono LIKE '%"&trim(request("texto"))&"%' or direccion LIKE '%"&trim(request("texto"))&"%' or desc_ing LIKE '%"&trim(request("texto"))&"%' or claves LIKE '%"&trim(request("texto"))&"%') and nom_produc is not null and activo<>0" registros.open sql,conexion,1 total_var=0 total_var=cint(registros("total")) registros.Close() sql="Select * from ciec_vista_catalogo where (nom_produc LIKE '%"&trim(request("texto"))&"%' or descripcion_produc LIKE '%"&trim(request("texto"))&"%' or empresa LIKE '%"&trim(request("texto"))&"%' or contacto LIKE '%"&trim(request("texto"))&"%' or telefono LIKE '%"&trim(request("texto"))&"%' or direccion LIKE '%"&trim(request("texto"))&"%' or desc_ing LIKE '%"&trim(request("texto"))&"%' or claves LIKE '%"&trim(request("texto"))&"%') and nom_produc is not null and activo<>0order by nom_produc" registros.open sql,conexion,1 End If idempresa=request("id") if not registros.eof and not registros.bof then%> <%end if end If registros.close%>

<%=total_var%> Resultado(s) para la búsqueda: <%=letra_var%>
<%lafecha=registros("fecha") Do while registros.EOF=False Session("idcatalogo")=registros("nom_produc")%>
 
 

<%=registros("nom_produc")%>  

<%if registros("imagen")<>"" then%> " align="left" hspace="8" vspace="4" style="border: 2px solid #BDCEBD"> <%end if%> <%=registros("descripcion_produc")%> <%If registros("desc_ing")<>"" then%>

In english:
<%=registros("desc_ing")%> <%end if%> <%If registros("prod1")<>"" then%>

Nuestros productos o servicios:

  • <%=registros("prod1")%>
    <%If registros("descripcion1")<>"" then%><%=registros("descripcion1")%><%end if%>
    • <%end if If registros("prod2")<>"" then%>
  • <%=registros("prod2")%>
    <%If registros("descripcion2")<>"" then%><%=registros("descripcion2")%>
    • <%end if%> <%end if If registros("prod3")<>"" then%>
  • <%=registros("prod3")%>
    <%If registros("descripcion3")<>"" then%><%=registros("descripcion3")%>
    • <%end if%> <%end if If registros("prod4")<>"" then%>
  • <%=registros("prod4")%>
    <%If registros("descripcion4")<>"" then%><%=registros("descripcion4")%>
    • <%end if%> <%end if If registros("prod5")<>"" then%>
  • <%=registros("prod5")%>
    <%If registros("descripcion5")<>"" then%><%=registros("descripcion5")%>
    • <%end if%>     <%end if%>

Nuestra dirección es: <%=registros("direccion")%> - Venezuela.
<%If registros("telefono")<>"" then%> Comunícate por los teléfonos: (+58) <%=registros("telefono")%>
<%End If%> <%If registros("fax")<>"" then%> O por fax: (+58) <%=registros("fax")%>
<%End If%>

Servicios
  <%if registros("afiliado")=1 then%> <%end if if registros("iso")=1 then%> <%end if%>
<%If registros("mision")<>"" or registros("calidad")<>"" or registros("ambiental")<>"" then%> <%end if%> <%If registros("web")<>"" then%> " title="Click aquí ver la página Web de <%=registros("empresa")%>" target="_blank"> » Visitar nuestra página Web
 <%End If%> <%If registros("email")<>"" then%> <%End If%> "> » Imprimir este catálogo
Afiliada a la CIEC
 
Certificada ISO
 
 

<% registros.movenext() loop %> <%else%>

<%=total_var%> Resultados

En estos momento se encuentra en proceso de suscripción un proveedor de este rubro.


Escribe lo que buscas

 
<%If request("id")<>"" then%>

Estadísticas de este catalogo
 <%if lafecha (Válidas desde el 14 de octubre de 2004) <%else%> (Válidas desde el <%select case month(lafecha) case 1 mimes="enero" case 2 mimes="febrero" case 3 mimes="marzo" case 4 mimes="abril" case 5 mimes="mayo" case 6 mimes="junio" case 7 mimes="julio" case 8 mimes="agosto" case 9 mimes="septiembre" case 10 mimes="octubre" case 11 mimes="noviembre" case 12 mimes="diciembre" end select%> <%=Cstr(day(lafecha)) +" de "+ mimes +" de "+ Cstr(year(lafecha))%> ) <%end if%>

<%sql = "select count(*) as total from ciec_estadisticas_catalogo where idempresa='"&idempresa&"' and acto=1" registros.open sql,conexion,1%>

<%=registros("total")%> visitas al catálogo
<%registros.close sql = "select count(*) as total from ciec_estadisticas_catalogo where idempresa='"&idempresa&"' and acto=2" registros.open sql,conexion,1%> <%=registros("total")%> contactos recibidos
<%registros.close sql = "select count(*) as total from ciec_estadisticas_catalogo where idempresa='"&idempresa&"' and acto=3" registros.open sql,conexion,1%> <%=registros("total")%> boletines enviados
<%registros.close sql = "select count(*) as total from ciec_estadisticas_catalogo where idempresa='"&idempresa&"' and acto=4" registros.open sql,conexion,1%> <%=registros("total")%> cotizaciones recibidas

<%registros.close end if set registros = Nothing conexion.close set conexion = Nothing%>

Proveedores
» Actualice su información
 

Puede modificar el contenido de su catálogo (datos de contacto, información de su empresa y de sus productos).
» Notifique a compradores
 

Puede enviar notificaciones cortas a todos sus compradores, a través de boletines periódicos.

 
 
atrás atrás
 

inicio  |  requerimientos  |  mapa  |  política de privacidad  |  información

Diseño y desarrollo: