<% Set cn = Server.CreateObject ("ADODB.Connection") Set reg = Server.CreateObject ("ADODB.Recordset") reg.CursorLocation = 3 cn.Open Application("strcnn") Query = "select * from directorio where activo='s' and categoria='apuestas' and seccion='quiniela' order by pr DESC" 'response.write Query reg.open Query,cn,0,3 reg.ActiveConnection = Nothing cn.close %>
<% while (not Reg.Eof) Response.Write("") Reg.MoveNext Wend Reg.close %>

CATEGORIA LOTERIA Y APUESTAS - SECCIÓN QUINIELA
 
" & reg("titulo") & " - " & reg("url") & " PR" & reg("pr") & "
" & reg("descripcion") & "


Añadir sitio en esta categoría - Volver al directorio web
Directorio web Página creada y gestionada por:
Nexus Consultores ®