|
|
|
|
|
|
<%
dim sql,con,rs
set con=server.createobject("ADODB.connection")
set rs=server.createobject("ADODB.RECORDSET")
conectar_vdm()
sql="select id_banner, nombre, imagen, url, alt from vdm_banners where activo = 1 order by nombre"
set rs=con.execute(sql)
while not rs.eof
response.write""
response.write""
response.write""
response.write" "
response.write""
response.write""
response.write " "
response.write" | "
response.write" "
response.write" "
response.write " "
rs.movenext
wend
%>
|
|