Lo siento mucho, pensé que había bastantes más temas y os habíais olvidado de este, no volverá a ocurrir.
Pues he limado el código todo lo que he podido hasta dejarlo así:
Código:
<%
FUNCTION CambioCaracter(dato)
dato=Replace(dato,chr(13)+chr(10),"<BR>")
' dato=replace(dato, vbNewLine, "<br>")
dato=Replace(dato,CHR(34),"''")
CambioCaracter=dato
End Function
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "dsn=softtn.com.dumb2;;"
' Mostrar las noticas
sql="SELECT Noticias.Id, Noticias.TituloGeneral, Noticias.Resumen, Noticias.FechaAlta "
sql= sql & "FROM Noticias "
sql= sql & "WHERE (Noticias.Visibleweb)=Yes "
sql= sql & "ORDER BY Noticias.FechaAlta DESC "
Set RSnoticias=Conn.Execute(sql)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<!-- Titulo apartado (noticias)-->
<a name="inicio"></a></div>
<!-- Desarrollo noticas (titulo, resumen) -->
<%if Rsnoticias.Eof or Rsnoticias.Bof then
Response.Write "En este momento no hay ninguna noticia. Visítenos en breve plazo si quiere enterarse de las últimas novedades"
else
do while not Rsnoticias.eof%>
<table width="100%" border="1" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" bordercolor="#0078C8">
<tr>
<div ><b>
<a name="<%=Rsnoticias("id")%>">· (<%=Rsnoticias("FechaAlta")%>) <%=Rsnoticias("TituloGeneral")%></a>
</b></div>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<tr>
<td >
<table width="100%" border="0" cellspacing="10" cellpadding="0">
<tr>
<td class="todo" >
<%=CambioCaracter(Rsnoticias("Resumen"))%>
<br>
<%=(Rsnoticias("Resumen"))%> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<%
Rsnoticias.MoveNext
Loop
end if
%>
</body>
</html>
Y ahí ya no veo nada referente a estilos ni tipo de letra ni nada, ni ninguna referencia a una hoja de estilos css ni nada, se me ha pasado algo por alto? :S
Lo raro es que en el html si que me aparece el formato de la prueba de texto enriquecido que hice, os pego un cacho:
Código:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<!-- Titulo apartado (noticias)-->
<a name="inicio"></a></div>
<!-- Desarrollo noticas (titulo, resumen) -->
<table width="100%" border="1" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" bordercolor="#0078C8">
<tr>
<div ><b>
<a name="925">· (12/01/2010) Proba texto enriquecido</a>
</b></div>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<tr>
<td >
<table width="100%" border="0" cellspacing="10" cellpadding="0">
<tr>
<td class="todo" >
<ol><BR><li>Proba texto enriquecido</li><BR><li><strong>Proba texto enriquecido</strong></li><BR><li><span style=''font-size: medium;''><em><strong>Proba texto enriquecido</strong></em></span></li><BR><li><span style=''font-family: comic sans ms,sans-serif;''><em><span style=''text-decoration: underline;''><strong>Proba texto enriquecido</strong></span></em></span></li><BR><li><span style=''background-color: #ffff00;''><span style=''color: #ff0000;''><strong>Proba texto enriquecido</strong></span></span></li><BR></ol><BR><p><img src=''http://www.turismocostadamorte.com/ca/upload/pdt/ayu/10-f-dumbria.jpg'' alt='''' width=''75'' height=''75'' /></p><BR><p style=''text-align: center;''><span style=''background-color: #ffff00;''><span style=''color: #ff0000;''><strong><img title=''Smile'' src=''../jscripts/tiny_mce/plugins/emotions/img/smiley-smile.gif'' border=''0'' alt=''Smile'' /></strong></span></span></p><BR><p style=''text-align: center;''> </p><BR><table style=''width: 335px; height: 76px;'' border=''0''><BR><tbody><BR><tr><BR><td> </td><BR><td> </td><BR><td> </td><BR><td> </td><BR></tr><BR><tr><BR><td> </td><BR><td> </td><BR><td> </td><BR><td> </td><BR></tr><BR><tr><BR><td> </td><BR><td> </td><BR><td> </td><BR><td> </td><BR></tr><BR><tr><BR><td> </td><BR><td> </td><BR><td> </td><BR><td> </td><BR></tr><BR></tbody><BR></table>
<br>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<table width="100%" border="1" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" bordercolor="#0078C8">
<tr>
<div ><b>
Un saludo y mi más sincero agradecimiento por el tiempo que me estais brindando