<%@ Language=VBScript %>
<%
Option Explicit
Dim lafecha,mimes
Dim conexion,registros,sql,letra_var,total_var,idempresa,afiliada,iso
Dim texto_var2,largo,i,caracter
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
If request("texto")="" then
If request("id")="" then
response.redirect("listado.asp")
end if
end if
%>
CIEC Centro de Negocios | 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%>
<%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%>
<%texto_var2=registros("descripcion_produc")
largo=len(texto_var2)
for i=1 to largo
caracter=mid(texto_var2,i,1)
Response.Write(caracter)
if asc(caracter)=13 then
Response.Write(" ")
end if
next%>
<%If registros("desc_ing")<>"" then%>
In english:
<%texto_var2=registros("desc_ing")
largo=len(texto_var2)
for i=1 to largo
caracter=mid(texto_var2,i,1)
Response.Write(caracter)
if asc(caracter)=13 then
Response.Write(" ")
end if
next%>
<%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%>
En estos momento se encuentra en proceso de suscripción un proveedor de este rubro.
<%end if
end If
registros.close%>
<%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%>
