<%@language="vbscript"%> <%conn.open(vConexao) sql="select * from publicidade" set RS = conn.execute(sql) if RS.eof then Response.write("") end if %> Untitled Document
<%if RS.eof then response.write("
Nenhuma Publicidade Cadastrada!!!
") else cont=0 Do while not RS.eof%> " width=128 height="83" border="4"><%=response.write("   ")%> <%cont=cont+1 if cont=4 then exit do RS.movenext loop%> <%end if%>