<% Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") DSNtest1="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath("/data/abav-pr.mdb") conn.Open DSNtest1 If Request.QueryString("codigo") > 0 Then sql = "select * from materia where codigomat = " & Request.QueryString("codigo") else sql = "select * from materia order by codigomat desc " End if Set rs = conn.Execute(sql) %> ABAV-PR - Abavs Estaduais
A ABAV-PR
QUEM SOMOS
NOSSOS OBJETIVOS
ESTATUTO
ASSOCIADOS
COMO FILIAR-SE
CAPACITAÇÃO TÉCNICA
CÓDIGO DE ÉTICA
FALE CONOSCO
NOTÍCIAS
AGENTE URGENTE
CIRCULARES
GUIA DE VIAGEM
Novo Sistema de Pagamentos BrasileiroNOVO SPB
ROTEIRO
Serviços
ABAV NACIONAL
ABAVs ESTADUAIS
CONVÊNIOS
CURRÍCULOS & EMPREGOS
CURSOS
LINKS INTERESSANTES
SALÃO DE TURISMO
VISTOS CONSULARES
Serviços
 

Forneça seu login e senha para entrar.

Login:

Senha:
 

Para cadastrar sua senha.
Esqueceu sua senha.

 
<%= rs("titulo") %> <% If Len(rs("imagem1")) > 3 Then %> " border="1" align="left" alt=""> <% ElseIf Len(rs("imagem")) > 3 Then %> " border="1" align="left" alt=""> <% End If %> <% If rs("temnot") Then %> <% nota = Replace(rs("nota"), chr(13), "

") %> <%= nota %> <% ElseIf rs("temres") Then %> <% nota = Replace(rs("resenha"), chr(13), "

") %> <%= nota %> <% Else %> Não cadastrado. <% End If %>
Matéria cedida por: <%= rs("credito") %>



Veja também:

<% If Request.QueryString("codigo") > 0 Then sql = "select * from materia where codigosec = 1 and codigomat <> " & Request.QueryString("codigo") & " order by data Desc" Set rs = conn.Execute(sql) Else rs.movenext End If Set rs = conn.Execute(sql) lin = 0 Do While not rs.EOF %> "><%= rs("titulo") %>

<% rs.movenext %> <% lin = lin + 1 %> <% If lin = 10 Then %> <% Exit Do %> <% End If %> <% Loop %>

 
 ABAV-PR News
 ANIVERSÁRIOS
<% sql = "select * from materia where codigosec = 9 order by data Desc" Set rs = conn.Execute(sql) %> ">DESTAQUES
<% rs.close Set rs = nothing conn.close Set conn = Nothing %>