Du havde ret
- "Response.Write RS("Rubriknavn")" - gjorde det !!!
mange tak
MAX
"Marten Ølgaard" <oelgaard@comonto.dk> skrev i en meddelelse
news:9c9mdj$gqd$1@news.inet.tele.dk...
> Prøv at lade være med at HTMLEncode dit output fra databasen. Det skulle
> gerne løse dit problem (så vidt jeg kan se).
>
>
> /Marten
>
> "Max" <maxbn@wanad00.dk> wrote in message
> news:KrJF6.133$Qi4.80094325@news.mobilixnet.dk...
> > Hej
> >
> > er der en venlig sjæl der kan hjælpe mig ?
> >
> > jeg ønsker at indsætte HTML koder i et "notes" felt i min access
database
> > 97 - således at teksten er formateret- når den vises på min hjemmeside.
> >
> > Når jeg åbner siden vises koden i teksen = "hej <br>Max "- og ved vis
> kilde
> > står der = "hej<br> Max"
> >
> > Min kode ser således ud.
> >
> > <%
> > Set Conn = Server.CreateObject("ADODB.Connection")
> > DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath
> > ("../cgi-bin/max.mdb")
> > Conn.Open DSN
> > %>
> > <%
> > sql = "SELECT Rubrik.Rubrikheader, Rubrik.Startdato,
> Rubrik.Rubriktekst,
> > Rubrik.Billed, Rubrik.Slutdato FROM Rubrik WHERE
> > (((Rubrik.Startdato)<Date()) AND ((Rubrik.Slutdato)>Date())) "
> > If cstr(Param) <> "" And cstr(Data) <> "" Then
> > sql = sql & " And [" & cstr(Param) & "] = " & cstr(Data)
> > End If
> > sql = sql & " ORDER BY Rubrik.Slutdato "
> > Set rs = Server.CreateObject("ADODB.Recordset")
> > rs.Open sql, conn, 3, 3
> > %>
> > <%
> > On Error Resume Next
> > rs.MoveFirst
> > do while Not rs.eof
> > %>
> > <!-- RUBRIK 1 -->
> > <font
> >
>
class="DATE"><%=Server.HTMLEncode(rs.Fields("Startdato").Value)%></font>&nbs
> > p;<font
> >
>
class="RUBRIKHEADER"><%=Server.HTMLEncode(rs.Fields("Rubrikheader").Value)%>
> > </font>
> > <br>
> > <p
class="RUBRIK"><%=Server.HTMLEncode(rs.Fields("Rubriktekst").Value)%><%
> > rs.MoveNext
> > loop%>
> > </td></tr>
> > </table>
> > <%
> > ' Luk databaseforbindelse
> > Conn.Close
> > Set Conn = Nothing
> > %>
> >
> >
> >
> >
> > på forhånd tak.
> > MAX
> >
> >
>
>
>
>