<% Response.expires = 0 %> <%Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("http://www.geocities.com/cobradore_ss/banco.mdb")%> EXECUTIVE INC'S

<% SQL = "SELECT * FROM tabela ORDER BY id DESC" Set RS = conn.execute(SQL) If Not Rs.EOF Then Do While Not Rs.EOF %> <%=Left(Rs("nome"), 5) & "
" %> <%Rs.MoveNext Loop%> <%Else%>
A
EXECUTIVE INC`S
conta com
profissionais
qualificados
e
especializados
em
Juizado Especial
Justiça comum
e
Justiça Federal
tudo aliado a
alta tecnologia
Hosted by www.Geocities.ws

<%End If%>

Horizontal Drop Down Menus - Parte 3
Hosted by www.Geocities.ws

1