|
[A]
[B] [C]
[D] [E]
[F] [G]
[H] [I]
[J] [K]
[L] [M]
[N] [O]
[P] [Q]
[R] [S]
[T] [U]
[V] [W]
[X] [Y]
[Z]
<%
DIM strQuery, objRS, objConn,strconnection, Mensaje, IdMensaje,idAfil,imgAfil,idLetra2
DIM letras(28),idletra,i,j,k,letra, letraAnt,cambioLetra, hayEmpresa, fin, numletras
numLetras=3
%><%
letras(1) ="A"
letras(2) ="B"
letras(3) ="C"
letras(4) ="D"
letras(5) ="E"
letras(6) ="F"
letras(7) ="G"
letras(8) ="H"
letras(9) ="I"
letras(10)="J"
letras(11)="K"
letras(12)="L"
letras(13)="M"
letras(14)="N"
letras(15)="O"
letras(16)="P"
letras(17)="Q"
letras(18)="R"
letras(19)="S"
letras(20)="T"
letras(21)="U"
letras(22)="V"
letras(23)="W"
letras(24)="X"
letras(25)="Y"
letras(26)="Z"
idletra= request.QueryString("prmletra")
if idletra="" then
idletra= 1
end if
idLetra2= idletra + numletras
if idletra2 > 27 then
idletra2= idletra2-27
end if
j=idletra
for i=1 to numLetras
strquery="SELECT idEmpresa,nbEmpresa,idAfiliacion "
strquery= strquery & " FROM EMPRESAS WHERE (left(EMPRESAS.nbEmpresa,1)='" & letras(j) & "' "
strquery= strquery & ") ORDER By nbEmpresa"
Set objRS = objConn.Execute(strQuery)%>
| <%=letras(j)%> |
 |
| |
<% if objRS.eof then ' No hay datos cargados en la Base de Datos para las letras seleccionadas
%>
| |
No
hay empresas que empiecen por <%=letras(j)%>
|
<%else %>
<% Do while (not objRS.eof)
if isNull(objRS("idAfiliacion")) then
idAfil=0 ' No es afiliado
imgAfil=" "
else
idAfil=1 ' Es afiliado
imgAfil=" "
end if
%>
| <%=imgAfil%> |
<%=objrs("nbEmpresa")%> |
<% objRS.movenext
loop %>
<%end if
j=j+1
if j=27 then
j=1
end if
next
objRS.close
objConn.close
Set objRS = Nothing
set objConn = Nothing%>
|
