<% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' HTTP="true" ' Catalog="" ' Schema="" MM_bannerMapPath_STRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../databases/banner.mdb") & ";" %> <% set rsbanners = Server.CreateObject("ADODB.Recordset") rsbanners.ActiveConnection = MM_bannerMapPath_STRING rsbanners.Source = "SELECT * FROM banners WHERE disponible = 1" rsbanners.CursorType = 0 rsbanners.CursorLocation = 2 rsbanners.LockType = 3 rsbanners.Open() rsbanners_numRows = 0 %> <% Set re_rsbanners = New regexp re_rsbanners.Pattern = "SELECT (.*) FROM " re_rsbanners.Global = False re_rsbanners.IgnoreCase = True rrSource_rsbanners="Select Count(*) as RecCount From " & re_rsbanners.Replace(rsbanners.Source,"") rrRecCount_rsbanners=CInt(rsbanners.ActiveConnection.Execute(rrSource_rsbanners)("RecCount")) Set rrSource_rsbanners = Nothing Set re_rsbanners = Nothing %>

<% rsbanners.MoveFirst Randomize rsbanners.Move(Int((rrRecCount_rsbanners * Rnd) + 0)) %> <% Select Case Trim(rsbanners.Fields.Item("tipo").Value) Case "gif" %> " target="<%= Trim((rsbanners.Fields.Item("target").Value)) %>">" border="0" width="<%= ((rsbanners.Fields.Item("ancho").Value)) %>" height="<%= ((rsbanners.Fields.Item("alto").Value)) %>"> <% Case "swf" %> <% End Select %> <% rsbanners.MoveFirst 'RandomRecord_tail rsbanners %>

<% rsbanners.Close() %>

Mi Canasta Mis Pedidos DVDs DISCOS LIBROS REMERAS PROMOS

evento, lugar, dia, hora y lo que quieras agregar...   Para dar de alta a un evento lo único que tenés que hacer es completar el formulario existente en esta página. Una vez recibidos los datos, será incluído en nuestra cartelera de espectáculos. evento:         lugar         dia         hora:         comentario:         tu mail:

CHAT CON MUSICOS Elegi con quien querés conversar VOTA!! Buscamos los preferidos

Condiciones de venta Tipos de entrega Formas de pago Gastos de envío Preguntas frecuentes

1999 - <%=Year(Date)%> delUruguaY.net