|
<%'------------------ escreve links ---------------------------------
Set rs = connection.Execute("SELECT * FROM links WHERE idr=1 ORDER BY id DESC")
do until rs.eof%>
<%
response.write(""&rs("id")&": "& rs("titulo")& "")
response.write(" |
")
response.write(rs("descricao") &" ")
response.write("Data:"& " "& rs("data") &" ")
response.write(" |
")
response.write(""& rs("url")& "")
response.write(" | ")
response.write("| Editar Dados | ")
response.write(" Eliminar Link | ")
rs.movenext
response.write(" |
")
response.write(" |
")
loop
set rs=nothing
connection.close
%>