¿como podria hacer para mostrar el campo web solo en el caso de que haya algo en contenido?
Me encuentro con links de usuarios que no tienen web y el link apunta hacia
alli
¿me podriais ayudar?
<%
Dim oConn, rs, SQL
Dim PaginaActual ' en qué pagina estamos
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina ' cuantos registros por pagina
Dim CuantosRegistros ' para imprimir solo el nº de registro por pagina que queramos
'MODIFICAR AQUI PARA CAMBIAR EL Nº DE REGISTRO POR PAGINA
TamPagina=30
'Leemos qué página mostrar. La primera vez será la inicial
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")
' Conexión por OLEDB
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/cgi-bin/dealers.mdb")&";"
SQL=" SELECT * FROM tiendas WHERE Idzona In ('andalucia') order by ALIADO, nombretienda asc "
' Defino el tamaño de las páginas
rs.PageSize=TamPagina
rs.CacheSize=TamPagina
' Abro el recordset
rs.Open SQL, oConn, 1, 2
'Cuento las páginas
PaginasTotales=rs.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("<BR><P><font face=verdana><font size=1><center>No se encontraron resultados.<BR><P>")
Response.Write("<BR><P><BR><P><BR><P><BR><P><BR><P ><BR><P>")
else
'Vamos a paginar
rs.AbsolutePage=PaginaActual
response.write "<center><table width=400 valign=top><tr>"
c=1
do while not rs.eof
if (c<2) then
response.write "<td valign=top><BR><font face=verdana size=1><img src=img/"&RS("logo")&" "&" align=right><B>"&RS("nombretienda")&" "&" <BR></B><font face=verdana size=1>"&RS("direccion")&" "&"</B><BR><font face=verdana size=1> "&RS("poblacion")&" "&" ("&RS("provincia")&") "&"<BR>Tlf: "&RS("telefono")&" "&"<BR><a href=mailto:"&RS("email")&" "&">E-mail</A> - <a href="&RS("web")&" "&" target=_blank>Web</A></td>"
c=c+1
else
response.write "</tr><tr><td><BR><font face=verdana size=1><img src=img/"&RS("logo")&" "&" align=right><B>"&RS("nombretienda")&" "&" <BR></B><font face=verdana size=1>"&RS("direccion")&" "&"</B><BR><font face=verdana size=1> "&RS("poblacion")&" "&" ("&RS("provincia")&") "&"<BR>Tlf: "&RS("telefono")&" "&"<BR><a href=mailto:"&RS("email")&" "&">E-mail</A> - <a href="&RS("web")&" "&" target=_blank>Web</A></td>"
c=2
end if
rs.movenext
loop
response.write "</table>"
CuantosRegistros=0
do while not rs.EOF and CuantosRegistros < TamPagina
'Pinto una línea de la tabla por cada registro
if colorfila = 0 then
color= "#ffffff"
colorfila=1
else
color="#ffffff"
colorfila=0
end if
'Imprimimos el registro con el bgcolor
response.write "<Table width=675 bordercolor=#e8e8d9 valign=middle bordercolorlight=#e8e8d9 bordercolordark=#e8e8d9 border=2px><tr>"
response.write "<td width='675' valign=middle bgcolor='"&color&"'><font face='verdana' size='2'> <img src=/edirol/img/mini_"&rs.fields("imagen")&" align=left >"
response.write "<B> <font size=2><A HREF=detalle.asp?id="& rs.fields("id") & ">"&rs.fields("modelo")&"</a></B><BR>"
response.write "<font face='verdana' size='1'>"&rs.fields("subtitulo")&"</font></td></tr></Table><BR>"
CuantosRegistros=CuantosRegistros+1
rs.MoveNext
loop
Response.Write("")
end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
'Muestro los enlaces
Response.Write("<center><B><BR><P><BR><P>")
if PaginaActual > 1 then
Response.Write("<A HREF=cronicas.asp?pagina="& PaginaActual-1& ">Anterior</A> ")
end if
if PaginaActual < PaginasTotales then
Response.Write("<A HREF=cronicas.asp?pagina=" & PaginaActual+1 &">Siguiente</A><BR><P>")
end if
%>
