/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
HTML i en Access database ?
Fra : Max


Dato : 26-04-01 00:59

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&lt;br&gt; 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



 
 
Marten Ølgaard (26-04-2001)
Kommentar
Fra : Marten Ølgaard


Dato : 26-04-01 18:40

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&lt;br&gt; 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
>
>





Max (26-04-2001)
Kommentar
Fra : Max


Dato : 26-04-01 20:43

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&lt;br&gt; 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
> >
> >
>
>
>
>



Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408875
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste