<%@ Language=VBScript %>
<%
set conexion = Server.CreateObject ("ADODB.connection")
%>
<%
conexion.CursorLocation = 3
conexion.open
set registros = Server.CreateObject ("ADODB.RECORDSET")
registros.CursorLocation = 2
registros.CursorType = 2
registros.LockType = 3
sql="Select count(*) as total from recicla_vista_directorio where left(empresa,1)='"&request("letra")&"'"
registros.open sql,conexion,1
total_var=0
total_var=cint(registros("total"))
registros.Close()
sql="select * from recicla_vista_directorio where left(empresa,1)='"&request("letra")&"' order by empresa"
registros.open sql,conexion,1
dim letra_var
dim siguiente
letra_var=request("letra")
letra_var=asc(letra_var)
if letra_var = 122 then
siguiente="a"
else
siguiente=letra_var+1
siguiente=chr(siguiente)
end if
if letra_var = 97 then
anterior="z"
else
anterior=letra_var-1
anterior=chr(anterior)
end if
%>
RECICLA - directorio