Cámara de Industriales del Estado Carabobo

<%@ Language=VBScript %> <% Option Explicit dim conexion, registros, sql, registros2 set conexion = Server.CreateObject ("ADODB.connection") %><% conexion.CursorLocation = 3 conexion.open set registros = Server.CreateObject ("ADODB.RECORDSET") sql="select count(*) as cuantos from ciec_banners" registros.open sql,conexion dim numero, NumeroBanner, banner randomize numero=registros("cuantos") NumeroBanner=int((rnd*numero)+1) registros.close sql="select * from ciec_banners where id='"&NumeroBanner&"'" registros.open sql,conexion banner=registros("nombre") registros.close %> Cámara de Industriales del Estado Carabobo