No se mucho aun de ASP, mucho HTML sí...
A ver yo muestro en la página principal del directorio los link hacia todas las categorias...
Luego muestro toda la base de datos:
Código:
<%
Dim oConn, rs, SQL
Dim PaginaActual
Dim PaginasTotales
Dim TamPagina
Dim CuantosRegistros
TamPagina=10
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source="&Server.MapPath("../../db/directorio.mdb")&";"
SQL="SELECT Id, titulo, URL, categoria, categoria_link, descripcion, fecha, visitas FROM directorio ORDER BY entradas DESC;"
rs.PageSize=TamPagina
rs.CacheSize=TamPagina
rs.Open SQL, oConn, 1, 2
PaginasTotales=rs.PageCount
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
if PaginasTotales=0 then
Response.Write("<p class=""texto3"" align=""center""><b>No se encontraron resultados</b></p>")
else
rs.AbsolutePage=PaginaActual
Response.Write("<p class=""texto2"">Página " & PaginaActual & " de " & PaginasTotales & "</p>")
Response.Write("<table width=""540"" border=""0"" cellspacing=""0"" cellpadding=""0"">")
Response.Write("<tr>")
Response.Write("<td width=""540"" height=""15"" background=""../imagenes/puntos.gif"">")
Response.Write("</td>")
Response.Write("</tr>")
CuantosRegistros=0
do while not rs.EOF and CuantosRegistros < TamPagina
Response.Write("<tr>"&VbCrLf)
Response.Write("<td valign=""top"" width=""540"">")
Response.Write("<p class=""texto3"">")
Response.Write("<a target=""_brank"" href=""../enlaces_externos/directorio.asp?pagina="&rs.Fields("URL")&"&Id="&rs.Fields("Id")&"""><b>"&rs.Fields("titulo")&"</b></a><br>")
Response.Write("<a target=""_brank"" href=""../enlaces_externos/directorio.asp?pagina="&rs.Fields("URL")&"&Id="&rs.Fields("Id")&"""><font color=""#000000"">"&rs.Fields("descripcion")&"</font></a><br>")
Response.Write("<b>URL</b>: <a target=""_brank"" href=""../enlaces_externos/directorio.asp?pagina="&rs.Fields("URL")&"&Id="&rs.Fields("Id")&""">"&rs.Fields("URL")&"</a><br>")
Response.Write(""&rs.Fields("fecha")&" - "&rs.Fields("visitas")&" visitas - <a href="""&rs.Fields("categoria_link")&".asp""><font color=""#000000"">"&rs.Fields("categoria")&"</font></a><br>")
Response.Write("</p>")
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td width=""540"" height=""15"" background=""../imagenes/puntos.gif"">")
Response.Write("</td>")
Response.Write("</tr>")
CuantosRegistros=CuantosRegistros+1
rs.MoveNext
loop
Response.Write("</table>")
end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
Response.Write("<p class=""texto2"" align=""right"">")
if PaginaActual > 1 then
Response.Write("« [ <a href=""default.asp?pagina="& PaginaActual-1& _
""">Anteriores</a> ]")
end if
if PaginaActual < PaginasTotales then
Response.Write(" [ <a href=""default.asp?pagina=" & PaginaActual+1 & _
""">Siguientes</a> ] »")
end if
%>
Está ordenado por 'entradas' que un campo numerico, le envio un link a las web para poner un enlace hacia mi sitio e incrementa un número su campo 'entradas' mediante la ID
Código:
<a target="_brank" href="http://www.navegandaluz.com/directorio/entradas.asp?Id=aqui_ID_del_registro">Navegandaluz.com</a>
Y llama a esta página:
Código:
Suma en 'entradas'...
<%
Set con = Server.CreateObject("ADODB.Connection")
Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("../../db/directorio.mdb"))
sqlUPDATE = "UPDATE directorio SET entradas = entradas + 1 WHERE Id=" & Request.QueryString("Id")
Con.Execute(sqlUPDATE)
%>
Y redirige
<%
Response.Write "<meta http-equiv=refresh content=3;URL=""http://www.navegandaluz.com/"">"
%>
Lo único que necesito es saber como tal como muestro de esta forma toda la base de datos, mostrar unicamente los registro que tenga, por ejemplo en el campo 'categoria_link' arte_cultura