El FIrefox solo me detecta advertencias ningun error y son temas de valign que esta obsoleto, padding negativo...
el enlace está dividido en pedazos, xq es variable ( ahora muestra unso valores porque es el codigo fuente) pero segun la noticia tiene un ID distinto.
Tengo el IIS instalado en mi pc. La imagen es un circulo, como bie dices.
Yo tambien probé el codigo con dreamweaver y entra siempre al enlace.
Respecto ala barra de mi navegador, cuando estoy sobre el enlace, muestra la direccion correcta del enlace. Ademas como comento cuando hago varios clicks entra ( a veces a la primera...)
Visto que como tu dices nada soluciona mi problema....coloco el codigo de la funcion aunque es bastante pesado...
Llamada a la funcion:
Código PHP:
<%=FUNCION1("NoticiaxRama " & IDMS & ",0", "TITULO|DESCRIPCION", 4, 3, "", "#243e77","#000000", "#A0A2FF", "color:#000000;font-size:15px;text-decoration:none;text-align:justify;padding:0px 5px;","color:#000000;font-size:14px;text-decoration:none;text-align:justify;", 60, 80)%>
Funcion:
Código PHP:
FUNCTION FUNCION1 (byVal procItems, byVal camposMostrar, byVal maxItems, byVal numItemsFlash, byVal link1, byVal color1,byVal color2, byVal colorFondo, byVal style1, byVal style2, byVal maxTextoPorCampo, byval maxtextodescripcion)
dim retornoHTML : retornoHTML = ""
dim rsItems : set rsItems = Server.CreateObject("ADODB.RecordSet")
dim i : i = 1
dim j
dim controlNumItemsFlash: controlNumItemsFlash = 1
dim expirado : expirado = false
dim existennoticias : existennoticias = false
' Rercuperamos los items...
set rsItems = abreProc(procItems)
' Si no hay registros no devolvemos nada...
if rsItems.recordCount = 0 then exit function
retornoHTML = retornoHTML & "<div id=""fader"" style=""width:200px; height:240px; overflow:hidden""></div>"
retornoHTML = retornoHTML & vbcrlf & "<script type=""text/javascript"">" & vbcrlf
retornoHTML = retornoHTML & "<!-- Begin" & vbcrlf
retornoHTML = retornoHTML & "var texts = new Array(" & vbcrlf
do
If rsItems("FechaExpiracion") & "" <> "" Then
If rsItems("FechaExpiracion") <= CFechaInterna(Date) Then
expirado = True
Else
expirado = False
End If
Else
expirado = False
End If
If Not expirado Then
existennoticias = true
if cint(controlNumItemsFlash) = 1 then
retornoHTML = retornoHTML & "'"
'if link <> "" then retornoHTML = retornoHTML & "<'+'a href=""" & URLRaiz & link & """>"
end if
dim link
link = "VERNoticias.asp?IDMS=" & IDMS & "&IDNew=" & rsItems("IdNew") & "&menup="
' campos a mostrar... siempre el primero va en negrita...
for j = 0 to ubound(split(camposMostrar,"|"))
if j = 0 then retornoHTML = retornoHTML & "<img src=""" & URLRaiz & "images/boton.gif"" border=""0""><a href=""" & URLRaiz & link & """><'+'b style="" " & style1 & " "">"
if j = 1 then retornoHTML = retornoHTML & "<a href=""" & URLRaiz & link & """><span style="" " & style2 & " "">"
if j = 0 then retornoHTML = retornoHTML & mid(sRepJS(rsItems(split(camposMostrar,"|")(j))), 1, maxTextoPorCampo)
if j = 0 and len(rsItems(split(camposMostrar,"|")(j))) > maxTextoPorCampo then retornoHTML = retornoHTML & "..."
if j = 1 then retornoHTML = retornoHTML & mid(sRepJS(rsItems(split(camposMostrar,"|")(j))), 1, maxtextodescripcion)
if j = 1 and len(rsItems(split(camposMostrar,"|")(j))) > maxtextodescripcion then retornoHTML = retornoHTML & "..."
if j = 0 then retornoHTML = retornoHTML & "</'+'b>"
if j = 1 then retornoHTML = retornoHTML & "</span>"
if rsItems(split(camposMostrar,"|")(j)) <> "" then retornoHTML = retornoHTML & "<br>"
retornoHTML = retornoHTML & "</'+'a>"
next
if cint(controlNumItemsFlash) = cint(NumItemsFlash) then
retornoHTML = retornoHTML & "</'+'span>"
if link <> "" then retornoHTML = retornoHTML & "</a>"
end if
if cint(controlNumItemsFlash) = cint(NumItemsFlash) then
retornoHTML = retornoHTML & "',"
controlNumItemsFlash = 1
else
retornoHTML = retornoHTML & "<br>"
controlNumItemsFlash = controlNumItemsFlash + 1
end if
i = i + 1
End If
rsItems.moveNext
loop until i = cint(maxItems) or rsItems.EOF
if not existennoticias then
retornoHTML = ""
exit function
end if
' Hay dos formas de acabar... sólo...
if right(retornoHTML,1) = "," then
retornoHTML = mid(retornoHTML,1,len(retornoHTML)-1) ' quitamos la última coma...
else
retornoHTML = retornoHTML & "'"
end if
retornoHTML = retornoHTML & ");" & vbcrlf
''AQUI VAN UNA SERIE DE FUNCIONES PARA TRATAR CAMBIOS DE COLORES Y DEMAS QUE SUPRIMO PORQUE ENTIENDO QUE NO TIENE QUE VER
CON ELLO, YA QUE COMO DIGO SUPONGO NO IMPORTEN!!!
retornoHTML = retornoHTML & "// End -->" & vbcrlf
retornoHTML = retornoHTML & "</script>" & vbcrlf
FUNCION1 = retornoHTML
END FUNCTION
Espero que vosotros veais algo mal en ese codigo que pueda dar con el error, gracias por anticipado!